LiveCode Forums.

Code: Select all

On preopenstack
  global gConID
  local tConId
  put revOpenDatabase("sqlite","Schule.db",,,,,,) into tConID
  if tConID is "" then 
    answer warning "Problem creating or accessing database!"
  else
    answer information "Schule Connected! Your connection ID is: " & tConID
    put tConID into gConID
  end if
  
  global gConID
  if gConID is "" then
    answer information "No Database is Connected to, please go back 1 step and connect to the Database!"
 
  end if
  
  local tSQL, tResult
  put "CREATE TABLE users(userID integer primary key, name text,email text,emailList boolean)" into tSQL
  revExecuteSQL gConID, tSQL
  put the result into tResult

  if the result is not empty then 
    answer warning the result

  
  put "CREATE TABLE apps(appID integer primary key, appName text,appRegCode text,appUserID integer)" into tSQL
  revExecuteSQL gConID, tSQL
  put the result into tResult

  if the result is not empty then 
    answer warning the result
  end if
  answer information "Number of Tables Added: " & tResult

end if


end preopenstack

Code: Select all

on preOpenStacks
  -- you should check whether the tables exist
  -- if tables don't exist then create them
  createTables
  -- but I'll leave that as a exercise ;-)
end preOpenStacks



on createTables
  global gConID
  local tSQL, tResult
  put revOpenDatabase("sqlite","Schule.db",,,,,,) into gConID
  if gConID is not an integer then
    answer warning "Problem creating or accessing database! Please go back 1 step and connect to the Database!"
  else
    answer information "Schule Connected! Your connection ID is: " & gConID
  end if
  put "CREATE TABLE users(userID integer primary key, name text,email text,emailList boolean)" into tSQL
  revExecuteSQL gConID, tSQL
  put the result into tResult
  if tResult is not empty then
    answer warning tResult
  end if
  put "CREATE TABLE apps(appID integer primary key, appName text,appRegCode text,appUserID integer)" into tSQL
  revExecuteSQL gConID, tSQL
  put the result into tResult
  if tResult is not empty then
    answer warning tResult
  end if
  answer information "Number of Tables Added: " & tResult
end createTables 

Code: Select all

local tSQL, tResult
  put "CREATE TABLE schueler(schuelerID integer primary key, name text, vorname text, gebdatum text, strasse text, hausnr text,plz text, ort text, telefon1 text, telefon2 text, telefon3 text, klasse text, geschl text, konf text, staatsang text, nachname2 text, rufname text,email text, emailList boolean)" into tSQL
  revExecuteSQL gConID, tSQL