Option Base 1
Public OutX()
Sub SimpleWriteToDB()
Dim db As Long, blob() As Byte, i As Long, feedback As String
db = openDB("C:\ATestSQLite\CheckThis.db")
execSQL db, "insert into CsvTest values('Black', 21,131,101);"
' execSQL db, "insert into CsvTest values('Roger1', 21,131);"
closeDB (db)
End Sub
Sub ReadFromDB()
'working OK
Dim db As Long, blob() As Byte, i As Long, feedback As String, strSQL As String
ReDim OutX(20, 5)
db = openDB("C:\ATestSQLite\TestData.db")
strSQL = "select * from CsvTest WHERE Col1 = 'Jane' "
selectFromTab db, strSQL