Connect auf Oracle 11r2 Database

Hallo zusammen,

ich möchte mit AutoIT auf eine Oracle 11 Datenbank lesend zu greifen. Kann mir jemand einen Tipp geben?? Wenn möglich würde ich auch gerne auf TNSNAMES.ORA Einträge verzichten.

Bin für jede Idee dankbar.

Grüße
CrazyER

danke erstmal,

natürlich habe ich das Forum durchsucht und Google gefragt. Aber überall bekomme ich nur Fragmente ;o) Die dann immer zu dieser Fehlermeldung führt:
==> The requested action with this object has failed.

Wäre halt interessant zu wissen was als Source verlangt wird ?? FQDN ?? IP ?? Listener ?? ODBC Verbindung ??

Als Benutzer- oder System DSN ?? ;o)) Also man findet nicht wirklich etwas dazu.
Ich hab bislang auch noch nie den Microsoft Treiber verwendet, sondern immer den Oracle Instant Client installiert. Aber das hilft mir hier erstmal auch nicht weiter.

bekomme ich dennoch die gleiche fehlermeldung

$conn = ObjCreate( "ADODB.Connection" )
$DSN = "Provider=OraOLEDB.Oracle;Data Source=d3aa;User Id=Master;Password=XXX";
;MsgBox(0,"ConnectString",$DSN)
$conn.Open($DSN)
$rs = ObjCreate( "ADODB.RecordSet" )
$rs.Open( "select BANNER from v$version where banner like 'Oracle%'", $conn )
MsgBox(0, "AutoIT-SQL Result", "Value = " & $rs.Fields( "BANNER" ).Value )
$conn.close

wirklich schlauer bin ich nun auch nicht. Noch immer der selbe Fehler in der Selben Zeile ($conn.Open($DSN) Error Number 80020009) ;o)

[autoit]

Global $oMyError = ObjEvent("AutoIt.Error","MyErrFunc")

[/autoit][autoit][/autoit][autoit]

;----------------------------------------------------------------------------------------------------------
; Com Error Handler
;----------------------------------------------------------------------------------------------------------
Func MyErrFunc($oMyError)
Local $HexNumber
Local $strMsg

[/autoit][autoit][/autoit][autoit]

$HexNumber = Hex($oMyError.Number,
$strMsg = "Error Number: " & $HexNumber & @CRLF
$strMsg &= "WinDescription: " & $oMyError.WinDescription & @CRLF
$strMsg &= "Script Line: " & $oMyError.ScriptLine & @CRLF
MsgBox(0, "ERROR", $strMsg)
SetError(1)
Endfunc

[/autoit][autoit][/autoit][autoit][/autoit][autoit][/autoit][autoit]

$conn = ObjCreate( "ADODB.Connection" )
$DSN = "Provider=OraOLEDB.Oracle;Data Source=XXX;User Id=XXX;Password=XXX";
;MsgBox(0,"ConnectString",$DSN)
$conn.Open($DSN)
$rs = ObjCreate( "ADODB.RecordSet" )
$rs.Open( "select BANNER from v$version where banner like 'Oracle%'", $conn )
MsgBox(0, "AutoIT-SQL Result", "Value = " & $rs.Fields( "BANNER" ).Value )
$conn.close

[/autoit]

da bringt der Error Handler garkein Fehler.

sooo, nun funtkioniert es. Hab mich mal einbisschen in die VBA Welt eingelesen und somit die entsprechende Hinweise gefunden.

Hier mein funktionierender Code:

[autoit]

$conn = ObjCreate( "ADODB.Connection" )
$DSN = "Driver={Microsoft ODBC for Oracle};" & _
"CONNECTSTRING=(DESCRIPTION=" & _
"(ADDRESS=(PROTOCOL=TCP)" & _
"(HOST=XXX)(PORT=1521))" & _
"(CONNECT_DATA=(SERVICE_NAME=XXX))); Uid=XXX;Pwd=XXX;"
$conn.Open($DSN)
$rs = ObjCreate( "ADODB.RecordSet" )
$rs.Open( "select BANNER from v$version where banner like 'Oracle%'", $conn )
MsgBox(0, "AutoIT-SQL Result", "Value = " & $rs.Fields( "BANNER" ).Value )
$conn.close

[/autoit]

Vorteil, die Einstellungen von der TNSNAMES.ORA wird gleich mit gegeben und somit ist die TNSNAMES.ORA für die Verbindung nicht nötig.