HTML-Hilfe: List bzw. Linked List und Database

Anwendungen, Tools, Userlibs und anderes nützliches.
Benutzeravatar
stab
Beiträge: 92
Registriert: 24.02.2006 16:09
Computerausstattung: 286er Big Tower; 16MHz; 1MB Ram; 40MB Festplatte, 5 1/4" und 3 1/2" Diskettenlaufwerk; VGA Farbmonitor 14"; Windows 3.1; PureBasic 0.5
Wohnort: Hardt
Kontaktdaten:

HTML-Hilfe: List bzw. Linked List und Database

Beitrag von stab »

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.

Code: Alles auswählen

apple = 10
sql$ = "INSERT INTO food (name, weight) VALUES ('apple', '" + Str(apple) + "')" 
Anschaulicher fände ich folgendes:

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
Paul sagt: "Max lügt."
Max sagt: "Otto lügt."
Otto sagt: "Max und Paul lügen."

Wer lügt hier wirklich und wer sagt die Wahrheit?

_________________________________________

286er Big Tower; 16MHz; 1MB Ram; 40MB Festplatte, 5 1/4" und 3 1/2" Diskettenlaufwerk; VGA Farbmonitor 14"; Windows 3.1; PureBasic 0.5