B4J Question SQLite/SQLCipher create Database by code

Guenter Becker said:

Hello
as for B4A the initialize statement includes the possibility to create an empty database if the named database file is not found.

create and open SQLite database:

sql.initializeSQLite(file.dirApp,Filename,true)

I did not find the same in the statement to be used for B4J.

open cipher db:

SQL.Initialize("org.sqlite.JDBC","jdbc:sqlite:file:data.db?cipher=sqlcipher&legacy=1&kdf_iter=4000&key=YOURKEY")

I need to kow if there is a way in B4J to create a database file by code as it it is possible in B4A or in another way.
B4J snipped would be nice.
Thankyou

Click to expand...

Public Sub InitSQLite(SQLRef As SQL, tmpDBLocation As String, DBName As String, FasterWrites As Boolean) As Boolean 'As ResumableSub
    Try
        Dim DBExists As Boolean = File.Exists(tmpDBLocation, DBName)
        If DBExists Then
            Dim fsize As Long = File.Size(tmpDBLocation, DBName)
            If fsize < 1024 Then Log("⚠️ Warning: DB file is very small, might be corrupted.")
        End If
        SQLRef.InitializeSQLite(tmpDBLocation, DBName, Not(DBExists))  'If true we have the DB so make it false no new table
    
        SQLRef.ExecNonQuery("PRAGMA journal_mode = WAL")       ' Enable Write-Ahead Logging for concurrency
        SQLRef.ExecNonQuery("PRAGMA busy_timeout = 3000")      ' Allow 3s wait if DB is locked
        If FasterWrites = True Then
            SQLRef.ExecNonQuery("PRAGMA synchronous = NORMAL")
            Log("SQLite: Using FAST write mode (synchronous=NORMAL)")
        Else
            SQLRef.ExecNonQuery("PRAGMA synchronous = FULL")
            Log("SQLite: Using SAFE write mode (synchronous=FULL)")
        End If
        Return True
    Catch
        modFunctions.ShowLog("Error: Database is corrupt", True, LastException.Message)
        Return False
    End Try
End Sub

Guenter Becker said:

Thankyou for the quick response.
But it does not meet the question! The question is not to know how to open an existing database. It is about to know how a SQLCipher Database may be created by code.

Click to expand...

Guenter Becker said:

Thankyou for the quick response.
But it does not meet the question! The question is not to know how to open an existing database. It is about to know how a SQLCipher Database may be created by code.

Click to expand...

Guenter Becker said:

Thankyou for the quick response.
But it does not meet the question! The question is not to know how to open an existing database. It is about to know how a SQLCipher Database may be created by code.

Click to expand...

Guenter Becker said:

Hey
I'm astonished I asked AI of DuckDuckGo and got the answer. Thankyou for the notice.

Click to expand...

Guenter Becker said:

Code from DuchDuckGo AI:

' B4J code to create and manage an SQLCipher database

Sub Process_Globals
    ' These modules are available globally.
    Private db As SQL
End Sub

Sub App_Start
    ' Create SQLCipher database
    Dim dbFile As String = File.Combine(File.DirApp, "encrypted_db.db")
    db.Initialize2(dbFile, "your_password", True) ' True indicates to use SQLCipher

    ' Create a table
    Dim sql As String
    sql = "CREATE TABLE IF NOT EXISTS users (id INTEGER PRIMARY KEY, name TEXT, age INTEGER)"
    db.ExecNonQuery(sql)

    ' Insert sample data
    sql = "INSERT INTO users (name, age) VALUES ('Alice', 30)"
    db.ExecNonQuery(sql)
    sql = "INSERT

Click to expand...