ich habe versucht eine kleine Abfrage zu starten:
Code: Alles auswählen
;- Strukturen
Structure s_RecordSet
BOF.l
EOF.l
Handle.l
Rows.l
Cols.l
CurrentPos.l
sValue.s
EndStructure
;- Variablen
dbhandle.l
qry.s
diag.s
rs.s_RecordSet
If OpenWindow(0, 200, 0, 600, 400, #PB_Window_SystemMenu, "Datenbank")
If CreateGadgetList(WindowID())
ComboBoxGadget(1, 20, 200, 500, 200)
EndIf
diag = InputRequester("Diagnose", "Bitte geben Sie einen Suchbegriff ein:", "")
SQLite3_InitLib("D:\Downloads\Libs\sqlite3.dll")
qry = "SELECT Diagnose FROM Diagnose WHERE Diagnose like '" + diag + "%'"
dbhandle = SQLite3_OpenDatabase("D:\Projekte\Datenbank 1\DB_sqlite.db")
SQLite3_GetRecordset(qry, dbhandle, @rs)
If rs\Handle
While rs\EOF = 0
If SQLite3_GetRecordsetValueByIndex(0, @rs)
AddGadgetItem(1, -1, rs\sValue)
EndIf
SQLite3_RecordsetMoveNext(@rs)
Wend
EndIf
SQLite3_ReleaseRecordset(@rs)
SQLite3_CloseDatabase(dbhandle)
Repeat
Until WaitWindowEvent() = #PB_Event_CloseWindow
EndIf
End
Gruß Karl
Nachtrag:
Schon klar - Immer diese mistigen Schreibfehler. Die Tabelle heisst "Diagnosen" und es ward Licht.
-Kann gelöscht werden-