Sub Process_Globals
Private fx As JFX
Private xui As XUI
Private MainForm As Form
Private Button1, Button2 As Button
Private sql As SQL
End Sub
#AdditionalJar: sqlite-jdbc-3.46.0.0
#AdditionalJar: slf4j-api-1.7.36
#AdditionalJar: slf4j-nop-1.7.36
Sub AppStart (Form1 As Form, Args() As String)
MainForm = Form1
MainForm.RootPane.LoadLayout("main")
MainForm.Show
End Sub
Private Sub Button1_Click
sql.InitializeSQLite("C:\B4J\test2\DB", "test2.db", True)
Dim qry As String = File.ReadString(File.DirAssets, "SQLScript.txt") 'generates exception: org.sqlite.SQLiteException: [SQLITE_ERROR] SQL error or missing database (near "��C": syntax error)
' Dim qry As String = query 'query runs OK when read from sub query
Log(qry)
sql.AddNonQueryToBatch(qry, Null)
Dim SenderFilter As Object = sql.ExecNonQueryBatch("SQL")
Wait For (SenderFilter) SQL_NonQueryComplete (Success As Boolean)
Log(Success)
sql.Close
End Sub
Sub query As String
Return _
$"CREATE TABLE "Table1" (
"id" INTEGER,
"col1" TEXT NOT NULL,
"col2" TEXT NOT NULL,
CONSTRAINT "PK_Units" PRIMARY KEY("id")
);"$
End Sub