Sub Process_Globals
DimSQL1AsSQL
DimDBFileDirAsString : DBFileDir = File.DirRootExternal ': DBFileDir = File.DirDefaultExternal
DimDBFileNameAsString : DBFileName = "QueriesDB.db"
End Sub
Sub Activity_Create(FirstTime As Boolean)
If FirstTime Then
SQL1.Initialize(DBFileDir, DBFileName, True)
End If
Activity.LoadLayout("BasicCards")
cdb.Initialize(Colors.LightGray,5)
Activity.Background = cdb
ScreenInit
End Sub
Sub btnBegin_Click
WebViewDisplay.LoadHtml(DBUtils.ExecuteHtml(SQL1, "SELECT Question FROM QueriesTable where Qry_Id = 1", Null, 0, False))
End Sub