Sub Activity_Create(FirstTime As Boolean)
sql_show
End Sub
Sub sql_show
Dim mdbpath,mfilename As String
mdbpath=File.DirInternal
mfilename="ctron.db"
If File.Exists(mdbpath,mfilename) =False Then
File.Copy(File.DirAssets,mfilename,mdbpath,mfilename)
End If
If sql1.IsInitialized = False Then
sql1.Initialize(mdbpath,mfilename,False)
End If
Log(sql1.IsInitialized)
LogColor("Number of rows = " & sql1.ExecQuerySingleResult("SELECT count(*) FROM co"),Colors.Blue)
End Sub