mirrors/EQL5
1
Fork 0
mirror of https://gitlab.com/eql/EQL5.git synced 2025-12-26 11:52:47 -08:00
Code Issues Projects Releases Packages Wiki Activity

some revisions

Browse source
This commit is contained in:
polos 2016-11-29 13:54:09 +01:00
parent 5a7b27c643
commit 7bef996a8e
5 changed files with 13 additions and 38 deletions
Download patch file Download diff file Expand all files Collapse all files

1
examples/M-modules/sql/sqlite.lisp
View file

@ -12,6 +12,7 @@
"windowTitle" "sqlite"))
(defun populate-db ()
;; dumb, just for this example; you normally want QSqlQuery
(x:do-with (|exec| *database*)
"CREATE TABLE friends ( id INT PRIMARY KEY, name VARCHAR(50), country INT )"
"CREATE TABLE countries ( id INT PRIMARY KEY, country VARCHAR(50) )")