Sqlite, win32 | База данных (устаревшая полурабочая версия)

require "SQLite3"

local db = sqlite3.open_memory()

db:exec[[
  CREATE TABLE test (id INTEGER PRIMARY KEY, content);

  INSERT INTO test VALUES (NULL, 'Hello World');
  INSERT INTO test VALUES (NULL, 'Hello Lua');
  INSERT INTO test VALUES (NULL, 'Hello Sqlite3')
]]

for row in db:rows("SELECT * FROM test") do
  Core.SendToAll("row.id = "..row.id.."\t\trow.content = "..row.content)
end

local init, error = package.loadlib("pxsqlite3", "luaopen_pxsqlite3")

local api, ERR, TYPE, AUTH

if init then
  api, ERR, TYPE, AUTH = init()
end

--[[

    SQLite3 Example script by Mutor

]]

-- Admins nick for status / error messages
local OpNick = "Mutor"
-- Subdir of scripts folder ["" = scripts folder]
local path = "sql/"
-- Database file name ["" = hubname.db"]
local file = ""
-- Database timeout, in seconds
local to = 3
-- Delete file on script exit? true/false
local DelFile = true

require "sqlite3"

OnStartup = function()
    local root = Core.GetPtokaXPath().."scripts/"
    if #path > 0 then path = root..path else path = root end
    if #file == 0 then file = path..SetMan.GetString(0):gsub(" ","_")..".db" else file = path..file end
    if Update() then OnError(file.." has been updated.") else OnError(file.." failed to update.") end
end

OnError = function(msg)
    if msg and #msg > o then
        local user,bot = Core.GetUser(OpNick),SetMan.GetString(21)
        if user and bot then
            Core.SendToUser(user,"<"..bot.."> "..msg.."|")
        end
    end
end

OnExit = function()
    if DelFile then
        assert(os.remove(file))
    end
end

Update = function()
    db = sqlite3.open(file)
    db:set_busy_timeout(to)
    db:exec("CREATE TABLE HubUsers (Nick TEXT, IP TEXT, Profile NUMERIC);")
    local t = {"Nick","IP","Profile"}
    for x,user in ipairs(Core.GetOnlineUsers()) do
        db:exec("INSERT INTO HubUsers ( Nick, IP, Profile ) VALUES ('"..user.sNick.."', '"..user.iProfile.."', '"..user.sIP.."');");
    end
    db:exec('commit')
    ReadDb(db)
    db:close()
    return true
end

ReadDb = function(db)
    for _, nick,profile,ip in db:cols("SELECT 1, * FROM HubUsers") do
        OnError("[ "..nick.." ] "..profile.." "..ip.."|")
    end
end

------ End of Code ------