Sub Class_Globals
Private Root As B4XView
Private xui As XUI
Private sql1 As SQL
End Sub
Private Sub B4XPage_Created (Root1 As B4XView)
#if B4J
sql1.Initializesqlite(File.DirData("test") ,"Test.db",True)
#end if
#if B4A
sql1.Initialize(File.DirInternal("test"), "Test.db", True)
#end if
CreateTabIfNotExist("Test2","[Name] TEXT,[Ort] TEXT,[ID] INTEGER,PRIMARY KEY([ID] AUTOINCREMENT)")
sql1.ExecNonQuery("Insert into test2(name,ort) values('hugo egon','bochum')")
Dim resultset As ResultSet = sql1.ExecQuery("select * from test2 order by [name] asc")
Do While resultset.NextRow
Log(resultset.GetString("Name") & TAB & resultset.getstring("ort") & TAB & resultset.getint("id"))
Loop
Root = Root1
Root.LoadLayout("MainPage")
End Sub
Sub CreateTabIfNotExist(TabName As String, TabDefinition As String)
Dim resultSet As ResultSet = sql1.ExecQuery("select name from sqlite_master where type='table' and name='" & TabName & "'")
If resultSet.NextRow=False Then
Log("Tabelle " & TabName & " wird erzeugt..."): sql1.ExecNonQuery("Create Table [" & TabName & "] (" & TabDefinition & ")")
Else
Log("Tabelle " & TabName & " gefunden!")
End If
End Sub