HTML-Hilfe: List bzw. Linked List und Database
Verfasst: 10.11.2019 12:24
Es gab mal oder gibt noch ein Thema zur PB Hilfe.
Anregungen, Fehlerkorrektur etc.
Finde ich jetzt gerade nicht.
Zur HTML-Hilfe:
1. List
Ich denke, hier fehlt NewList
Dabei ist mir noch aufgefallen, einmal List und einmal Linked List
2. Database
Das Database-Beispiel finde ich für mich, der sich erstmalig mit den PB-Databank-Funktionen beschäftigt, nicht gerade sehr hilfreich.
Eigentlich möchte ich ja die PB Vorzüge nutzen und Variablen einsetzen und nicht Zeichenketten wie diese zaubern.
Anschaulicher fände ich folgendes:
Anregungen, Fehlerkorrektur etc.
Finde ich jetzt gerade nicht.
Zur HTML-Hilfe:
1. List
Ich denke, hier fehlt NewList
Dabei ist mir noch aufgefallen, einmal List und einmal Linked List
2. Database
Das Database-Beispiel finde ich für mich, der sich erstmalig mit den PB-Databank-Funktionen beschäftigt, nicht gerade sehr hilfreich.
Eigentlich möchte ich ja die PB Vorzüge nutzen und Variablen einsetzen und nicht Zeichenketten wie diese zaubern.
Code: Alles auswählen
apple = 10
sql$ = "INSERT INTO food (name, weight) VALUES ('apple', '" + Str(apple) + "')"
Code: Alles auswählen
;
; ------------------------------------------------------------
;
; PureBasic - Database example file
;
; (c) Fantaisie Software
;
; ------------------------------------------------------------
;
UseSQLiteDatabase()
#Database = 0
DatabaseFile$ = GetTemporaryDirectory()+"Database.sqlite"
If CreateFile(0, DatabaseFile$)
CloseFile(0)
If OpenDatabase(#Database, DatabaseFile$, "", "")
Result = DatabaseUpdate(#Database, "CREATE TABLE food (name CHAR(50), weight INT)")
If Result = 0
Debug DatabaseError()
EndIf
SetDatabaseString(#Database, 0, "apple")
SetDatabaseLong(#Database, 1, 10)
DatabaseUpdate(0, "INSERT INTO food (name, weight) VALUES (?,?)")
SetDatabaseString(#Database, 0, "pear")
SetDatabaseLong(#Database, 1, 5)
DatabaseUpdate(0, "INSERT INTO food (name, weight) VALUES (?,?)")
SetDatabaseString(#Database, 0, "banana")
SetDatabaseLong(#Database, 1, Random(8,7))
DatabaseUpdate(0, "INSERT INTO food (name, weight) VALUES (?,?)")
If DatabaseQuery(#Database, "SELECT * FROM food WHERE weight > 7")
While NextDatabaseRow(#Database)
Debug GetDatabaseString(#Database, 0) +" = "+ Str(GetDatabaseLong(#Database, 1))
Wend
FinishDatabaseQuery(#Database)
EndIf
CloseDatabase(#Database)
Else
Debug "Can't open database !"
EndIf
Else
Debug "Can't create the database file !"
EndIf