-- 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() |