MySQL funktioniert nur im Editor-Run
Verfasst: 29.03.2019 20:26
Hallo meine Freunde !
Nach jahrelanger PB Abstinenz hab ich mich entschlossen PB 5.70 LTS zu kaufen.
Ausschlaggebend dafür war die MySQL und High-DPI Unterstützung.
Doch mit MySQL hab ich momentan so meine Schwierigkeiten.
Der Code funktioniert im PB-Editor bei der Ausführung ganz normal, jedoch
nach der Kompilierung in eine Ausführbare Datei (egal ob exe oder unter Linux) ist
eine Verbindung zum SQL-Server nicht mehr möglich.
Hab schon eine While-Schleife und ein Delay getestet - kein Erfolg.
Vielen Dank !!!
Nach jahrelanger PB Abstinenz hab ich mich entschlossen PB 5.70 LTS zu kaufen.
Ausschlaggebend dafür war die MySQL und High-DPI Unterstützung.
Doch mit MySQL hab ich momentan so meine Schwierigkeiten.
Der Code funktioniert im PB-Editor bei der Ausführung ganz normal, jedoch
nach der Kompilierung in eine Ausführbare Datei (egal ob exe oder unter Linux) ist
eine Verbindung zum SQL-Server nicht mehr möglich.
Code: Alles auswählen
UseMySQLDatabase()
Procedure SizeWindowHandler()
ResizeGadget(0, #PB_Ignore, #PB_Ignore, WindowWidth(EventWindow()), 230)
ResizeGadget(1, #PB_Ignore, #PB_Ignore, WindowWidth(EventWindow()), WindowHeight(EventWindow()))
EndProcedure
BindEvent(#PB_Event_SizeWindow, @SizeWindowHandler())
If OpenWindow(0, 0, 0, 1600, 900, "Wetterdaten Balkon", #PB_Window_SystemMenu | #PB_Window_ScreenCentered | #PB_Window_SizeGadget)
ListIconGadget(1, 0, 0, 1600, 900, "ID", 150, #PB_ListIcon_FullRowSelect | #PB_ListIcon_AlwaysShowSelection)
AddGadgetColumn(1, 1, "Datum", 150)
AddGadgetColumn(1, 2, "Uhrzeit", 150)
AddGadgetColumn(1, 3, "Temperatur °C", 150)
AddGadgetColumn(1, 4, "Luftfeuchte %", 150)
AddGadgetColumn(1, 5, "Luftdruck hPa", 150)
EndIf
If OpenDatabase(0, "host=192.168.0.32 port=3306 dbname=balkon", "user", "passwd" )
Else
MessageRequester("Fehler", "Verbindung zur Datenbank fehlgeschlagen "+DatabaseError())
EndIf
If DatabaseQuery(0, "SELECT * FROM messdaten ORDER BY ID DESC", #PB_Database_StaticCursor)
i=1
While NextDatabaseRow(0) ; alle Einträge durchlaufen
AddGadgetItem(1, -1, GetDatabaseString(0, 0) +Chr(10)+GetDatabaseString(0, 1)+Chr(10)+GetDatabaseString(0, 2)+Chr(10)+GetDatabaseString(0, 3)+Chr(10)+GetDatabaseString(0, 5)+Chr(10)+GetDatabaseString(0, 4))
i=i+1
Wend
FinishDatabaseQuery(0)
Else
MessageRequester("Fehler", "Kann die folgende Abfrage nicht ausführen: "+DatabaseError())
EndIf
Repeat
Until WaitWindowEvent() = #PB_Event_CloseWindow
Vielen Dank !!!
