Examples


EXPORT QUERY EXAMPLE
-- Ask user for a sql query
sql = Dialogs:GetValue("SQL to JSON:", "SQL Statement:")
if (sql == false) then return end

-- Ask user for destination file
f = File:SaveDialog()
if (f == nil) then return end

-- Perform database query
rs = Database:SQLSelect(sql)
if (rs == nil) then return end

-- Create text output file
t = f:TextOutputStreamCreate(false)
if (t == nil) then return end

-- Iterate over RecordSet to write column names
for i=1, rs:ColumnCount(), 1 do
	s = rs:Name(i) .. "\t"
	t:Write(s)
end
t:Write("\n")

-- Iterate over RecordSet to write data
for i=1, rs:RecordCount(), 1 do
	for j=1, rs:ColumnCount(), 1 do
		s = rs:Value(j) .. "\t"
		t:Write(s)
	end
	rs:MoveNext()
	t:Write("\n")
end

-- Report success
Dialogs:Message("Export completed!")

-- Close text output stream file
t:Close()