Could anyone give me a hint, why this does not work on Mac OS X?
It works perfect on Win 32 (XP SP 3) and Linux!
Code: Select all
UseSQLiteDatabase()
#dbn = "working_colours.db"
If OpenDatabase(1, #dbn, "", "") ; also doesn't work with OpenDatabase(1, #dbn", "", "", #PB_Database_SQlite)
Define sqQ.s = "SELECT * FROM colours"
If Not DatabaseQuery(1, sqQ)
Debug "Query failed!"
DatabaseError()
End
EndIf
While NextDatabaseRow(1)
cstr.s = GetDatabaseString(1, 1) + Chr(59) + GetDatabaseString(1, 2) + Chr(59) + GetDatabaseString(1, 3) + Chr(59) + GetDatabaseString(1, 4) + Chr(59) + GetDatabaseString(1, 5) + Chr(59) + GetDatabaseString(1, 6)
Debug cstr
Wend
FinishDatabaseQuery(1)
Else
Debug DatabaseError()
End
EndIf
CloseDatabase(1)
