luacom example

--
-- SQLite3 Connection Variables
--
dmsConnStr = "dmsManager.Agent" -- Connection string to COM object
--
ctabname = "COM_Table_334"
dtabname = "Control_Table_320"
msstname = "COM_MSS_Table"
--
conndb = "C:\\Tony Gomez\\AardwolfDB\\Aardwolf_Control.db3"
--
-- COM Objects
--
commasks = {}
--
comcon = nil
comatt = nil
comccb = nil
comdgm = nil
comdsk = nil
comdud = nil
comequ = nil
commap = nil
commbt = nil
commdb = nil
commds = nil
commem = nil
commob = nil
comms3 = nil
commsc = nil
comsdb = nil
comsql = nil
comssa = nil
comssb = nil
comssc = nil
comssd = nil
comsse = nil
comtmp = nil
comusr = nil
--
-- COM Object Table Flag masks
--
comflags = {}
--
-- Functions
--
function loadcomflags()
--
local sql = "SELECT COUNT(*) AS [count] FROM [Control Masks];"
--
sql = sql.."SELECT * FROM [Control Masks]"
--
local flags = comcon:exec(sql)
--
flags = json.decode(flags)
--
local count = flags[1]["count"]
--
for i = 2, count + 1 do comflags[flags[i]["Key"]] = lshift(1, flags[i]["Mask"] - 1) end
--
end
--
function conninit()
--
comsdb = luacom.CreateObject(dmsConnStr) -- Connect to COM object.
--
comcon = comsdb:start() -- This returns a secondary COM entry point.
--
comcon.UseMap     = true -- setting properties in the COM object.
comcon.JSONFormat = true -- ditto
--
comcon:open(conndb) -- here I call a method of my com object.
--
sql1 = "SELECT COUNT(*) AS [count] FROM ["..ctabname.."];SELECT * FROM ["..ctabname.."]"
sql2 = "SELECT * FROM ["..dtabname.."] WHERE [Index] = ?"
--
local tab = comcon:Execute(sql1) -- method call
--
defvtab = comcon:Execute(sql2, 1) -- method call
--
tab = json.decode(tab)
--
defvtab = json.decode( defvtab)[1]
--
local count = tab[1]["count"]
--
for i = 2, count + 1 do
 conntab[i - 1] = tab[i]
 conntab[i - 1]["Index"] = i - 1
end
--

end