LiveCode Forums

Code: Select all

local sDatabaseID
local sClientDatabaseID
local tSQL

command setDatabaseID pDatabaseID
   put pDatabaseID into sDatabaseID
end setDatabaseID

function getDatabaseID
   return sDatabaseID
end getDatabaseID

on preOpenCard
   local tDatabasePath, tDatabaseID
   put "--File path of database\DatabaseName.sqlite--" into tDatabasePath -- just add your database details between the -- --
   put revOpenDatabase("sqlite", tDatabasePath, , , , ) into tDatabaseID
   setDatabaseID tDatabaseID
end preOpenCard

Command SearchDates
   put getDatabaseID() into tDatabaseID
   put Field "Start Date" into tStartDate
   put Field "End Date" into tEndDate
   put "SELECT * FROM --DataBaseName-- WHERE Date BETWEEN '"&tStartDate&"' AND '"&tEndDate&"';" into tSQL --add your database name between -- --
   put revDataFromQuery(tab,return,tDatabaseID,tSQL) into tList 
   set the dgData of group "--DataGrid Name--" to empty  --add datagrid name between -- --
   repeat with x=1 to the number of lines of tList
      set the itemdelimiter to tab
      put item 1 of line x of tList into theDataA["--Column Name--"]
      put item 2 of line x of tList into theDataA["--Column Name--"]
      put item 3 of line x of tList into theDataA["--Column Name--"]
      put item 4 of line x of tList into theDataA["--Column Name--"]
      put item 5 of line x of tList into theDataA["--Column Name--"]
      put item 6 of line x of tList into theDataA["--Column Name--"]
      put item 7 of line x of tList into theDataA["--Column Name--"] --repeat for however many columns you have--
      dispatch "AddData" to group "--Datagrid Name--" with theDataA,x
   end repeat
end SearchDates