Aktuelle Zeit: 06.12.2019 22:11

Alle Zeiten sind UTC + 1 Stunde [ Sommerzeit ]




Ein neues Thema erstellen Auf das Thema antworten  [ 1 Beitrag ] 
Autor Nachricht
 Betreff des Beitrags: HTML-Hilfe: List bzw. Linked List und Database
BeitragVerfasst: 10.11.2019 12:24 
Offline
Benutzeravatar

Registriert: 24.02.2006 16:09
Wohnort: DE
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:
apple = 10
sql$ = "INSERT INTO food (name, weight) VALUES ('apple', '" + Str(apple) + "')"


Anschaulicher fände ich folgendes:

Code:
;
; ------------------------------------------------------------
;
;   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


Nach oben
 Profil  
Mit Zitat antworten  
Beiträge der letzten Zeit anzeigen:  Sortiere nach  
Ein neues Thema erstellen Auf das Thema antworten  [ 1 Beitrag ] 

Alle Zeiten sind UTC + 1 Stunde [ Sommerzeit ]


Wer ist online?

Mitglieder in diesem Forum: 0 Mitglieder und 2 Gäste


Sie dürfen keine neuen Themen in diesem Forum erstellen.
Sie dürfen keine Antworten zu Themen in diesem Forum erstellen.
Sie dürfen Ihre Beiträge in diesem Forum nicht ändern.
Sie dürfen Ihre Beiträge in diesem Forum nicht löschen.

Suche nach:
Gehe zu:  

 


Powered by phpBB © 2008 phpBB Group | Deutsche Übersetzung durch phpBB.de
subSilver+ theme by Canver Software, sponsor Sanal Modifiye