Hallo,
ich habe eine SQLite-Datenbank erstellt mit 3 Datensätzen (siehe Anlage) erstellt.
Dann habe ich folgenden Script verwendet und ich bekomme keine Ausgabe.
Spoiler anzeigen
#include <GuiConstants.au3>
#include "SQLite.au3"
$datei1 = @ScriptDir & "\adr.sdb"
GuiCreate("MyGUI", 392, 323,-1, -1 , BitOR($WS_OVERLAPPEDWINDOW, $WS_CLIPSIBLINGS))
$Anzeigen = GUICtrlCreateButton("Anzeigen", 200,200,90,20)
GuiSetState()
While 1
$msg = GuiGetMsg()
Select
Case $msg = $GUI_EVENT_CLOSE
ExitLoop
Case $msg = $Anzeigen
$B_Archiv = _DoSQL("SELECT * FROM kd2 ;",$datei1)
For $i = 1 To $v_name[0][0]
$inhalt1 = $v_name[$i][0] & "|" & $n_name[$i][1] & "|" & $str[$i][2] & "|" & $h_nr[$i][3] & "|" & $plz[$i][4] & "|" & $ort[$i][5]
msgbox(1,"test",$inhalt1)
Next
Case Else
;;;
EndSelect
WEnd
Exit
; ---> peethebee (Danke an jonk!)
Func _DoSQL($_SQL_Code, $cal_filename)
Dim $ret_array[250][15]
; Datenbank initialisieren und öffnen
_SQLite_Startup (@ScriptDir & "\sqlite3.dll")
If @error > 0 Then
MsgBox(0, "Meldung", "SQLite-DLL konnte nicht geladen werden")
Return 0
EndIf
; hier kann man einen Standardpfad festlegen
$dbname = $cal_filename
_sqLiTe_opEn ($dbname)
If @error > 0 Then
MsgBox(0, "Meldung", $dbname & " konnte nicht geöffnet werden (Rechte?, Datei in Benutzung?)")
Return 0
EndIf
Dim $hQuery, $aRow
$iTmp = _SQlite_Query (-1, $_SQL_Code, $hQuery)
If Not $iTmp = $SQLITE_OK Then
MsgBox(0, "Meldung", "SQLite-Befehl verursachte einen Fehler: " & $_SQL_Code)
EndIf
$num_results = 0
While _SQLite_FetchData ($hQuery, $aRow) = $SQLITE_OK
$num_results += 1
; Daten in Array kippen und dann zurückgeben (noch nicht getestet)
For $i = 0 To UBound($aRow) - 1
$ret_array[$num_results][$i] = $aRow[$i]
Next
WEnd
; Länge des Ergebnisses erfassen, Ergebnisse ab $ret_array[1]
$ret_array[0][0] = $num_results
$ret_array[0][1] = UBound($aRow)
$iTmp = _SQLite_Close ()
If Not $iTmp = $SQLITE_OK Then
MsgBox(0, "Meldung", "Datenbank konnte nicht geschlossen werden.")
MsgBox(0, "Meldung", "SQLite ErrCode: " & $iTmp)
MsgBox(0, "Meldung", "SQLite ErrMsg: " & _SQLite_ErrMsg ())
Return 0
EndIf
_SQLite_Shutdown ()
Return $ret_array
EndFunc ;==>_DoSQL
; <---
; --- EOF
Anlage: Datenbank adr.sdb (gezippt)
Danke für Hilfe !!!