Beispiel
Code: Alles auswählen
UseSQLiteDatabase()
dbname.s = ":memory:"
If OpenDatabase(0, dbname, "", "")
Debug "Verbunden mit " + dbname
If DatabaseUpdate(0, "CREATE TABLE info (test VARCHAR(255));")
Debug "Tabelle erstellt"
For i = 1 To 10
Debug "Insert..."
sql.s = "INSERT INTO info (test) VALUES ('" + "Nummer " + Str(i) + "')"
If DatabaseUpdate(0, sql) = 0
Debug DatabaseError()
EndIf
Next i
Debug "Select Count..."
sql = "SELECT count(*) FROM info"
If DatabaseQuery(0, sql) <> 0
While NextDatabaseRow(0)
Debug "Anzahl: " + GetDatabaseString(0, 0)
Wend
Else
Debug DatabaseError()
EndIf
EndIf
EndIf