Private Sub Button1_Click
xui.SetDataFolder("sql example") ' --- required in B4J
Log(xui.DefaultFolder)
If File.Exists(xui.DefaultFolder, "SQLUPSERT.db") Then
File.Delete(xui.DefaultFolder, "SQLUPSERT.db")
End If
#IF B4J
m3SQL.InitializeSQLite(xui.DefaultFolder, "SQLUPSERT.db", True)
#END IF
#IF B4A
m3SQL.Initialize(xui.DefaultFolder, "SQLUPSERT.db", True)
#End If
queryStr = $"SELECT sqlite_version()"$
Dim resultStr As String = $"SQL version = ${m3SQL.ExecQuerySingleResult(queryStr)} "$
xui.MsgboxAsync(resultStr, "B4X")
m3SQL.Close
End Sub