Verwende doch zum Abfragen ADODB. Nutze ich immer für Firebird. Hier ein Bsp. von mir, kannst es für dich anpassen.
AutoIt
#include<array.au3>
#region - Allgemeine Deklaration
Global $oMyError = ObjEvent("AutoIt.Error","MyErrFunc") ; Initialisieren COM error handler
#endregion
#region - Database Deklaration (im Bsp. Firebird)
; Datenbank:
Global $data_source = "C:/Daten/Muster.GDB"
; Verbindungsstring:
Global $strConnection = "DRIVER=Firebird/InterBase(r) driver; UID=SYSDBA; PWD=masterkey; DBNAME=" & $data_source & ";"
; SQL-String zum Auslesen aller Usertabellen mit Angabe aller Felder und Typ:
Global $sql_str = "SELECT RDB$RELATION_NAME, RDB$FIELD_NAME, RDB$FIELD_SOURCE " & _
"FROM RDB$RELATION_FIELDS " & _
"WHERE RDB$RELATION_NAME NOT CONTAINING ' " & _
"ORDER BY RDB$RELATION_NAME, RDB$FIELD_NAME;"
$sql_str = "Select NM_KVNR from Kunden where kundennr = 10008;"
Global $array
#endregion - Database
#region - Beispielsprogramm
; DB-Verbindungsobjekt wird erstellt:
$oConn = _oSQLDB_Connect($strConnection)
If @error Then Exit MsgBox(0, 'Datenbank', 'keine Verbindung')
; Ausführung eines SQL-Statements mit Methode Execute ==> liefert Recordset zurück:
$oRecSet = _oSQLDB_Execute($oConn, $sql_str)
If @error Then
MsgBox(0, 'Execute', 'Fehler Beim Ausführen des SQL-Statements')
_close()
EndIf
; Recordset in Array wandeln:
$array = $oRecSet.GetRows
If Not IsArray($array) Then
MsgBox(0, 'Array', 'kein Ergebnis')
_close()
EndIf
MsgBox(0, 'KV-Nr', $array[0][0])
;~ _ArrayDisplay($array, 'Alle User Tabellen') ;[i][0]=Tabelle, [i][1]=Feld, [i][2]=Typ-Länge
_close()
Func _close()
If IsObj($oRecSet) Then _oRecSet_Close($oRecSet)
If IsObj($oConn) Then _oSQLDB_Close($oConn)
Exit
EndFunc
#endregion - Beispielsprogramm
#region - Functions
;===============================================================================
; Function Name: _oSQLDB_Connect($connStr)
; Description:: erstellt eine Objektreferenz auf die im $connStr angegebene Datenbank
; Parameter(s): $connStr Connection-String enthält die Verbindungsparameter
; Return Value(s): Erfolg Referenz des ADODB-Objektes
; Fehler 1, @error 1
;===============================================================================
Func _oSQLDB_Connect($connStr)
Local $objConnection = ObjCreate("ADODB.Connection")
If Not IsObj($objConnection) Then Return SetError(1,0,1)
$objConnection.Open($connStr)
Return $objConnection
EndFunc ;==>_oSQLDB_Connect
;===============================================================================
; Function Name: _oSQLDB_Execute($oConn, $strCommand, $Options=-1)
; Description:: führt Kommandostring (SQL-Sequenz) aus
; Parameter(s): $oConn Referenz des Connection-Objektes
; $strCommand Kommandostring
; optional $Options CommandTypeEnum (http://msdn.microsoft.com/en-us/library/ms675946(VS.85).aspx) oder
; ExecuteOptionEnum (http://msdn.microsoft.com/en-us/library/ms676517(VS.85).aspx)
; Return Value(s): Eine Recordset Objekt-Referenz, ein Stream oder Nichts
;===============================================================================
Func _oSQLDB_Execute($oConn, $strCommand, $Options=-1)
Local $recAffected
Return $oConn.Execute($strCommand, $recAffected, $Options)
EndFunc ;==>_oSQLDB_Execute
;===============================================================================
; Function Name: _oRecSet_Close($oRecSet)
; Description:: Beendet ein RecordsetObjekt
; Parameter(s): $oRecSet Referenz des Objektes
;===============================================================================
Func _oRecSet_Close($oRecSet)
$oRecSet.Close
EndFunc ;==>_oRecSet_Close
;===============================================================================
; Function Name: _oSQLDB_Close($oConn)
; Description:: Beendet die Verbindung
; Parameter(s): $oConn Referenz des Connection-Objektes
;===============================================================================
Func _oSQLDB_Close($oConn)
$oConn.Close
EndFunc ;==>_oSQLDB_Close
Func MyErrFunc()
Msgbox(0,"AutoItCOM Test","Ein COM-Fehler ist aufgetreten !" & @CRLF & @CRLF & _
"err.description is: " & @TAB & $oMyError.description & @CRLF & _
"err.windescription:" & @TAB & $oMyError.windescription & @CRLF & _
"err.number is: " & @TAB & hex($oMyError.number,8) & @CRLF & _
"err.lastdllerror is: " & @TAB & $oMyError.lastdllerror & @CRLF & _
"err.scriptline is: " & @TAB & $oMyError.scriptline & @CRLF & _
"err.source is: " & @TAB & $oMyError.source & @CRLF & _
"err.helpfile is: " & @TAB & $oMyError.helpfile & @CRLF & _
"err.helpcontext is: " & @TAB & $oMyError.helpcontext )
Local $err = $oMyError.number
If $err = 0 Then $err = -1
Local $g_eventerror = $err
Endfunc
#endregion - Functions
