'Initiation in:
Sub Process_Globals | Sub Process_Globals
Public SQL1 As SQL
Public dbsf As DBSQLiteFormat
SQL1.InitializeSQLite(DBDir, DBFileName, False)
...
'How to use:
Dim OpenFile As String
OpenFile = modProjUtils.ChooseFile(True, "Select a file corresponding to the database structure „Project‟", MainForm, File.DirApp, "DBFileName.db", _
"SQLite (*.db | *.db3 | *.dbsqlite | *.sqlite | *.sqlite3)", Array As String("*.db","*.db3","*.dbsqlite","*.sqlite","*.sqlite3"))
If OpenFile.Length > 0 And dbsf.ValidSQLiteFormat(File.GetFileParent(OpenFile), File.GetName(OpenFile), SQL1) Then
lblMsg.Text = "Open DB-SQLite ..."