Aber selbst dafür gibt es Alternativen.ZeHa hat geschrieben: ... (weil der Visual Designer unter PB leider so seine Tücken hat)...
Zum Beispiel PureFORM von Gnozal als Freeware oder PureVisionXP als kostenpflichtige Variante.
Aber selbst dafür gibt es Alternativen.ZeHa hat geschrieben: ... (weil der Visual Designer unter PB leider so seine Tücken hat)...
Wie ich sagte, es gibt da bereits 'nen Haufen Threads darüber. Und das mit den Updates ist schon Grund genug... 20 EUR sind nicht viel Geld, die sind es definitiv wert. Mittlerweile gibt's im Handel ja glaub 'ne 4.00-Version, aber 'ne Zeitlang war's halt so, daß viele noch mit der 3.30-Version aus dem Handel rumgegurkt sind (weil die halt noch sehr lange verkauft worden ist), obwohl schon längst 4.00 draußen war.Palandt hat geschrieben:Zeha, wär nett, wenn du es begründen könntest.
Code: Alles auswählen
; [A] Eroeffnung einer Datenbank
; PB-Version: 4.20 (22.09.08)
DisableDebugger ;Debugger ausstellen, für unproblematische Stellen
; [B] Konstanten
Enumeration
#Database_0
#File_0
EndEnumeration
; [C] Strukturen
Structure DB
sFile.S
sUser.S
sPass.S
EndStructure
; [D] Variablen
; I. Globale Variablen
Global QM_DB.DB
With QM_DB
\sFile = "D:\Tools\SQLite\Konverter\VB\Jus.sql"
\sUser = ""
\sPass = ""
EndWith
; II. Andere Variablen
; [E] Prozeduren
Procedure OpenDB(id.l, file.s, user.s, pass.s)
If OpenDatabase(id, file, user, pass, #PB_Database_SQLite)
Debug "Datenbank geöffnet"
Else
Debug "Datenbank konnte nicht geöffnet werden!"
EndIf
EndProcedure
Procedure CloseDB(id.l)
CloseDatabase(id)
EndProcedure
EnableDebugger ;Debugger wieder einschalten
Procedure View(id.l, table.s)
sSQL.s = "SELECT * FROM " + table
If DatabaseQuery(id, sSQL)
Debug ""
Debug "----------------------------------------"
While NextDatabaseRow(id)
For z0.l = 0 To DatabaseColumns(id) - 1
Debug DatabaseColumnName(id, z0) + " : " + GetDatabaseString(id, z0)
Next z0
Debug "----------------------------------------"
Wend
Debug ""
If z0 > 0
MessageRequester("Hinweis", "Datenbankabfrage war erfolgreich.")
Else
MessageRequester("Fehler 2", "Kann die folgende Abfrage nicht ausführen: "+DatabaseError())
EndIf
Else
MessageRequester("Fehler 1", "Kann die folgende Abfrage nicht ausführen: "+DatabaseError())
EndIf
EndProcedure
; [F] *** MAIN ***
UseSQLiteDatabase()
OpenDB(#Database_0, QM_DB\sFile, QM_DB\sUser, QM_DB\sPass)
View (#Database_0, "Main")