#AdditionalJar: sqlite-jdbc-3.36.0.2
Private Sub B4XPage_Created (Root1 As B4XView)
Root = Root1
Root.LoadLayout("MainPage")
xui.SetDataFolder("jtjz")
SQLDataBasePath=xui.DefaultFolder
SQLDateBaseName="jtjz.db"
If File.Exists(SQLDataBasePath,SQLDateBaseName)=False Then
File.Copy(File.DirAssets,SQLDateBaseName,SQLDataBasePath,SQLDateBaseName)
End If
Dim db As String=File.Combine(SQLDataBasePath,SQLDateBaseName)
Dim db1 As String=db.Replace("\","/")
Log(db1)
SQL1.Initialize("org.sqlite.JDBC",$"jdbc:sqlite:file:${db1}?cipher=sqlcipher&legacy=4&kdf_iter=256000&key=5678"$)
End Sub
Private Sub Button1_Click
Dim bt As String=TextField1.Text.Trim
Dim nr As String=TextArea1.Text
sql="select count(*) from jtcy"
Dim co As Int=SQL1.ExecQuerySingleResult(sql)
Log(co)
End Sub