Hallo,
mein Problem ist folgendes:
Beim Versuch die Daten die ich aus einer SQL Abfrage gefiltert habe in ein 2D Array mit .GetRows() zu speichern bekomm ich eine Fehlermeldung mit folgendem Text - 'Variable must be of type "Object".' Die Funktion _GetData() soll eine Datenbankverbindung herstellen und daten herausfiltern, die Abfrage ist nur ein Beispiel um zu schauen ob ich ueberhaupt Daten bekomme. Am Ende sollte sich eigentlich ein kleines Fenster mit der Liste mit Daten bekommen, aber bis dahin kommt er nicht.
Ich hoffe ihr erkennt irgendwie mein problem und könnt mir weiterhelfen, für mehr Infos einfach melden.
Vielen Dank
[autoit]Func _GetData() MsgBox(0,"","Get Dat function") ;"ARServerPort=3003;DSN=AR System ODBC Data Source;ARServer=DESQLAPPSP01;UID=RZURJAC;PWD=test232;SERVER=NotTheServer;" ;$sDriver, $sDatabase, $ARServer, $ARServerPort, $sUsername = "", $sPassword = "", $fAuthMode = 1 $driver = "{AR System ODBC Driver}" $DSN = "AR System ODBC Data Source" $ARServer = "DESQLAPPSP01" $ARServerPort = "3003" $user = "RZURJAC" $password = "test232"
$SQLConn = _SQLConnect($driver,$DSN,$ARServer,$ARServerPort, $user, $password, 1)
$query = "SELECT * FROM Overview_db" $ArrayResult = _SQLQuery($SQLConn, $query) _ArrayDisplay($ArrayResult) _SQLDisconnect($SQLConn)EndFunc
Func _SQLQuery($oConn, $sQuery) If IsObj($oConn) Then MsgBox(0,"","Its an object") $return = $oConn.Execute($sQuery) If IsObj($oConn) Then MsgBox(0,"","Checked twice, its an object") $ArrayReturn = $return.GetRows() Else MsgBox(0,"","OH, ist doch kein objekt, haha") EndIf EndIf Return SetError(1, 0, 0)EndFunc ;==>_SQLQuery
[/autoit]