Hallo Zusammen,
ich versuche aktuell einen SQL Befehl mittels VBA auszuführen. Der Code lautet wie folgt:
Sub GetQueryResults(SQLString As String)
Dim cn As ADODB.Connection
Dim rsMW As ADODB.Recordset
Dim rsWG As ADODB.Recordset
Set cn = New ADODB.Connection
cn.ConnectionString = "Driver={Microsoft ODBC for Oracle}; Server=xxxxx.world;Uid=xxxxx; Pwd=xxxxxx"
cn.Open
Set rsMW = New ADODB.Recordset
rsMW.ActiveConnection = cn
Set rsMW = cn.Execute("Select AVG(VALUE) as Value from OUTPUT where COMPANY_ID = 'XYZ' and PARAMETER_ID = 'TFV' and RUN = 'W' and CANDIDATE_ID = 'W'';")
MsgBox (rsMW)
wrtsMW rsMW
rsMW.Close
Leider erhalte ich in der hervorgehobenen Zeile die Fehlermeldung:
Laufzeitfehler '-2147217900 (80040e14)':
[Microsoft][ODBC driver for Oracle] [Oracle]ORA-00933: SQL-Befehl wurde nicht korrekt beendet
Weiß jemand woran das liegt und wie ich den Fehler beheben kann?
Vielen Dank im Voraus!
|