Der Befehl PreviousDatabaseRow(#db0) funktioniert nicht.
Code: Alles auswählen
#db0=0
dbzaehler=0
UseSQLiteDatabase()
DatabaseFile$ = "i:\purebasic\forumexamples\bestand.sqlite"
;DatabaseFile$ = GetTemporaryDirectory()+"\Database.sqlite"
Debug DatabaseFile$
If CreateFile(#db0, DatabaseFile$)
CloseFile(#db0)
If OpenDatabase(#db0, DatabaseFile$, "", "")
DatabaseUpdate(#db0, "CREATE TABLE bestand (Dsnr INTEGER PRIMARY KEY AUTOINCREMENT UNIQUE Not NULL, Name VARCHAR(40) , Stueck NUMERIC(10) , Preis NUMERIC(10,2))")
DatabaseUpdate(#db0, "INSERT INTO bestand (Name, Stueck, Preis) VALUES ('"+Name$+"', '"+Stueck$+"', '"+Str(Preis)+"')")
DatabaseUpdate(#db0, "INSERT INTO bestand (Name, Stueck, Preis) VALUES ('Tastatur', '5', '25.55')")
DatabaseUpdate(#db0, "INSERT INTO bestand (Name, Stueck, Preis) VALUES ('DVD-Laufwerk', '20', '33.00')")
DatabaseUpdate(#db0, "INSERT INTO bestand (Name, Stueck, Preis) VALUES ('Festplatte 160GB', '23', '133.00')")
DatabaseUpdate(#db0, "INSERT INTO bestand (Name, Stueck, Preis) VALUES ('USB-Stick 2GB', '44', '3.00')")
If DatabaseQuery(#db0, "SELECT * FROM bestand")
NextDatabaseRow(#db0) ;Datensatz 1
NextDatabaseRow(#db0) ;Datensatz 2
NextDatabaseRow(#db0) ;Datensatz 3
Debug "_______________________"
Debug ""
Debug "Datensatznummer: "+ GetDatabaseString(#db0, 0)
Debug "Artikel : "+ GetDatabaseString(#db0, 1)
Debug "Stück : " + GetDatabaseString(#db0, 2)
Debug "Preis : "+ GetDatabaseString(#db0, 3)
PreviousDatabaseRow(#db0) ; zurück auf Datensatz2 funktioniert nicht
Debug "_______________________"
Debug ""
Debug "Datensatznummer: "+ GetDatabaseString(#db0, 0)
Debug "Artikel : "+ GetDatabaseString(#db0, 1)
Debug "Stück : " + GetDatabaseString(#db0, 2)
Debug "Preis : "+ GetDatabaseString(#db0, 3)
FinishDatabaseQuery(#db0)
EndIf
Else
Debug "Can't open database !"
EndIf
Else
Debug "Can't create the database file !"
EndIf 
