PureBoard
http://forums.purebasic.com/german/

HTML-Hilfe: List bzw. Linked List und Database
http://forums.purebasic.com/german/viewtopic.php?f=11&t=31720
Seite 1 von 1

Autor:  stab [ 10.11.2019 12:24 ]
Betreff des Beitrags:  HTML-Hilfe: List bzw. Linked List und Database

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

Seite 1 von 1 Alle Zeiten sind UTC + 1 Stunde [ Sommerzeit ]
Powered by phpBB © 2000, 2002, 2005, 2007 phpBB Group
http://www.phpbb.com/