mirror of
https://github.com/etlegacy/etlegacy-lua-scripts.git
synced 2024-12-11 05:11:33 +00:00
41 lines
1.2 KiB
Lua
41 lines
1.2 KiB
Lua
-- LuaSQL test script
|
|
-- from https://keplerproject.github.io/luasql/examples.html
|
|
-- load driver
|
|
local driver = require "luasql.sqlite3"
|
|
-- create environment object
|
|
env = assert (driver.sqlite3())
|
|
-- connect to data source
|
|
con = assert (env:connect("luasql-test"))
|
|
-- reset our table
|
|
res = con:execute"DROP TABLE people"
|
|
res = assert (con:execute[[
|
|
CREATE TABLE people(
|
|
name varchar(50),
|
|
email varchar(50)
|
|
)
|
|
]])
|
|
-- add a few elements
|
|
list = {
|
|
{ name="Jose das Couves", email="jose@couves.com", },
|
|
{ name="Manoel Joaquim", email="manoel.joaquim@cafundo.com", },
|
|
{ name="Maria das Dores", email="maria@dores.com", },
|
|
}
|
|
for i, p in pairs (list) do
|
|
res = assert (con:execute(string.format([[
|
|
INSERT INTO people
|
|
VALUES ('%s', '%s')]], p.name, p.email)
|
|
))
|
|
end
|
|
-- retrieve a cursor
|
|
cur = assert (con:execute"SELECT name, email from people")
|
|
-- print all rows, the rows will be indexed by field names
|
|
row = cur:fetch ({}, "a")
|
|
while row do
|
|
et.G_Print("Name:" .. row.name .. ", E-mail: " .. row.email .."\n")
|
|
-- reusing the table of results
|
|
row = cur:fetch (row, "a")
|
|
end
|
|
-- close everything
|
|
cur:close() -- already closed because all the result set was consumed
|
|
con:close()
|
|
env:close()
|