Office: ODBC Verbindung zu Oracle DB aus VBA

Hallo

Ich will aus Excel 2010 (Windows 7 64bit) mittels VBA Daten aus einer Oracle Datenbank auslesen und in Excel einfügen. Der Oracle Client 32-bit ist installiert – trotzdem krieg ich eine Verbindung nicht auf die Reihe.

In der 32-bit System-DSN ist eine ODBC Verbindung auf diese Oracle Datenbank eingerichtet, welche auch funktioniert (Verknüpfungen in Access Datenbanken).

Gerne würde ich diese ODBC Verbindung für den Verbindungsaufbau nutzen – egal was ich aber mach, ich erhalte immer die Fehlermeldung:
„Laufzeitfehler -2147467259 (80004005)

Automatisierungsfehler
Unbekannter Fehler“

Der vermeintlich funktionierende Code für den Verbindungsaufbau ist folgender:
Dim dnn As New ADODB.Connection

dnn.Open "Provider=OraOLEDB.Oracle;Data Source=Service_Name;User Id=Nemutzer;Password=Passwort"

Mit diesem Code erscheint auf jeden Fall keine Fehlermeldung.

Da ich jedoch beim einlesen des Ergebnisses des SQL-Strings (1-Zeiler) in ein RecordSet erneut anstehe (erhalte dieselbe Fehlermeldung?) – kann ich nicht abschliessend sagen ob die Verbindung zu 100% steht.

Kann nun aus Excel mit der bestehenden System-DSN und dem installierten Oracle Client eine Verbindung zur Oracle DB aufgebaut werden? Und wie kann aufgrund dieser Verbindung ein RecordSet mit dem Ergebnis einer Abfrage gefüllt werden.

Bin für jeden Tipp dankbar

Gruss
Joerg

:)

 

wenn die datenbank als system-dsn verfügbar ist, sollte der oracle-client in der odbc-datenquellen-administration einen cennection-test anbieten. was ist denn das ergebnis dieses tests?

 

Hallo

Der Test Connection meldet "Connection successful". Die ODBC Verbindung funktioniert auch einwandfrei, da ich aus diversen Access Datenbanken über diese ODBC Verbindung auf die Oracle Tabellen zugreife.

Mein Ziel ist lediglich, dieselbe ODBC Verbindung mittels DSN Name innerhalb von Excel zu nutzen, da ich Daten aus der Oracle DB in Excel verwenden will.

Der Hintergrund ist im Prinzip relativ simpel: Die ODBC Verbindung hat alle relevanten Daten hinterlegt und wird gepflegt. Wenn ich nun innerhalb Excel eine eigenen Aufbau machen muss (wie im Eröffnungs Thread bereits beschrieben funktioniert der Verbindungsaufbau über den ServiceName aus der tnsnames.ora) bedeutet dies für ich einen grösseren Pflegeaufwand!

Gruss
Joerg

 

Hallo

Für alle die es interessiert. Ich hab’s hinbekommen. Hier der entsprechende Code:

Code:

Schönes WE
Joerg