COM Recordset Anschauen für die wietere bearbeitung

Tigger1975

Hallo, ich suche nach einer möglichkeit ein Comopjekt anzuschauen im besoneren ein Recordset welches uber Execute auf einer Datenbank entstanden ist ich brauche den Rückgabe wert dieses Executes ich Verwende dies UDF für die DB Connects

Spoiler anzeigen

[autoit]

#include-once ;=============================================================================== ; ; Function Name: _SQLConnect ; Description: Initiate a connection to a SQL database ; Syntax: $oConn = _SQLConnect($sServer, $sDatabase, $fAuthMode = 0, $sUsername = "", $sPassword = "", _ ; $sDriver = "{SQL Server}") ; Parameter(s): $sServer - The server your database is on ; $sDatabase - Database to connect to ; $fAuthMode - Authorization mode (0 = Windows Logon, 1 = SQL) (default = 0) ; $sUsername - The username to connect to the database with (default = "") ; $sPassword - The password to connect to the database with (default = "") ; $sDriver (optional) the ODBC driver to use (default = "{SQL Server}") ; Requirement(s): Autoit 3 with COM support ; Return Value(s): On success - returns the connection object for subsequent SQL calls ; On failure - returns 0 and sets @error: ; @error=1 - Error opening database connection ; @error=2 - ODBC driver not installed ; @error=3 - ODBC connection failed ; Author(s): SEO and unknown ; Note(s): None ; ;=============================================================================== Func _SQLConnect($sServer, $sDatabase, $fAuthMode = 0, $sUsername = "", $sPassword = "", $sDriver = "{SQL Server}") Local $sTemp = StringMid($sDriver, 2, StringLen($sDriver) - 2) Local $sKey = "HKEY_LOCAL_MACHINE\SOFTWARE\ODBC\ODBCINST.INI\ODBC Drivers", $sVal = RegRead($sKey, $sTemp) If @error or $sVal = "" Then Return SetError(2, 0, 0) $oConn = ObjCreate("ADODB.Connection") If NOT IsObj($oConn) Then Return SetError(3, 0, 0) If $fAuthMode Then $oConn.Open ("DRIVER=" & $sDriver & ";SERVER=" & $sServer & ";DATABASE=" & $sDatabase & ";UID=" & $sUsername & ";PWD=" & $sPassword & ";") If NOT $fAuthMode Then $oConn.Open("DRIVER=" & $sDriver & ";SERVER=" & $sServer & ";DATABASE=" & $sDatabase) If @error Then Return SetError(1, 0, 0) Return $oConn EndFunc ;==>_SQLConnect ;=============================================================================== ; Function Name: _SQLExecute ; Description: Send a query to a SQL database and return the results as an object ; Syntax: $oQuery = _SQLQuery($oConn, $sQuery) ; Parameter(s): $oConn - A database connection object created by a previous call to _SQLConnect ; $sQuery - The SQL query string to be executed by the SQL server ; Requirement(s): Autoit 3 with COM support ; Return Value(s): On success - returns the query result as an object ; On failure - returns 0 and sets @error: ; @error=1 - Unable to process the query ; Author(s): SEO and unknown ; Note(s): None ; ;=============================================================================== Func _SQLExecute($oConn, $sQuery) If IsObj($oConn) Then $oCom = ObjCreate("ADODB.Command") If IsObj($oCom) Then $oCom.ActiveConnection = $oConn $oCom.CommandText = $sQuery Return $oCom.Execute Else Return SetError(1, 0, 0) EndIf Return 0 EndIf Return SetError(1, 0, 0) EndFunc ;==>_SQLExecute ;=============================================================================== ; ; Function Name: _SQLConnect ; Description: Send a query to a SQL database and return the results as an object ; Syntax: $oQuery = _SQLQuery($oConn, $sQuery) ; Parameter(s): $oConn - A database connection object created by a previous call to _SQLConnect ; $sQuery - The SQL query string to be executed by the SQL server ; Requirement(s): Autoit 3 with COM support ; Return Value(s): On success - returns the query result as an object ; On failure - returns 0 and sets @error: ; @error=1 - Unable to process the query ; Author(s): SEO and unknown ; Note(s): None ; ;=============================================================================== Func _SQLQuery($oConn, $sQuery) If IsObj($oConn) Then Return $oConn.Execute($sQuery) Return SetError(1, 0, 0) EndFunc ;==>_SQLQuery ;=============================================================================== ; ;~ ; Function Name: _SQLDisconnect ; Description: Disconnect and close an existing connection to a SQL database ; Syntax: _SQLDisconnect($oConn) ; Parameter(s): $oConn - A database connection object created by a previous call to _SQLConnect ; Requirement(s): Autoit 3 with COM support ; Return Value(s): On success - returns 1 and closes the ODBC connection ; On failure - returns 0 and sets @error: ; @error=1 - Database connection object doesn't exist ; Author(s): SEO and unknown ; Note(s): None ; ;=============================================================================== Func _SQLDisconnect($oConn) If NOT IsObj($oConn) Then Return SetError(1, 0, 0) $oConn.Close Return 1 EndFunc ;==>_SQLDisconnect

[/autoit]

Kann mir einer Helfen? EDIT: hab das mal eben schnell in VB nach Programiert um mit dem Debugger das zu Testen und hab nun meine Lösung wobei ich gene Irgent eine Möglichkeit hätte das in autoit zu machen. -- im Übrigen hat die SQL abfrage den von mir erwarteten Rückgabe wert eben als solchen zurück gegeben und das com Obejkt kann damit wol nichts anfangen. Habe die Abfrage geändert so das ein Select am ende gemacht wird und hab dem Wert darüber einen Namen gegeben... Sihe da es Funktioniert.