Office: (Office 2010) Mit Excel auf Oracle DB zugreifen

Hallo Excel Gemeinde,

ich würde gerne mit Excel auf eine Orcale Datenbank zugreifen und die entsprechenden Datensätze auslesen. Bis dato bemühe dazu den MSQuery und kopieren dann die Datensätze, die ermittelt wurden, in eine Tabellenblatt.

Ich würde gerne diesen Schritt sparen und direkt aus Excel (über VBA) zugreifen. Ich dachte da an einen Editor, den den SQL Befehl zusammenbaut.

Mit ist leider nicht ganz klar, wie ich die Connection dann aufbaue. Ich habe bereits GeGoogled und zahlreiche Informationen erhalten, leider Nichts, was mir geholfen hätte.

Hat jemand eine Idee, Links oder eine Beispiel?

Vielen Dan schon einmal im Voraus.

:)

 

Hallo drzwockel,

bei diesen Suchbegriffen -excel vba ado oracle- spukt mir Tante 'Google' folgende Link als erstes aus:
http://hef-ro.de/vba-excel-und-oracle/
Wenn Du die korrekten Verknüpfungsdaten hast, kann es doch schon losagehen.

Gruß von Luschi
aus klein-Paris

 

Hallo Luschi,

vielen Dank für die schnelle Antwort ... dieses Ergebnis habe ich noch nicht gesehen ... habe immer nach "Oracle mit Excel auslesen gesucht".


Werde es mal ausprobieren.


Danke

 

Hallo Luschi,

die Tipp funktioniert einwandfrei. Ich musste nur noch den Treiber An Ora92 anpassen und dann funktionierte es.

Vielen Dank

 

Hallo drzwockel,

statt der Do While-Schleife gibt es auch die 'Range.CopyFromRecordset-Methode' in Excel-Vba.

Gruß von Luschi
aus klein-Paris

 

Hallo Luschi.

Du hast soeben ein paar Fragezeichen in mein Gehirn transferiert ...!

Kannst Du mir das kurz beschreiben, was Du damit meinst?


Danke,


Gruß vom Doc

 

Hallo drzwockel,

aus der Excel-Vba-Hilfe: Code:

Es genügt also
Worksheets("meineTabelle").Cells(4, 1).CopyFromRecordset rs
um alle Daten zu übernehmen.

Gruß von Luschi
aus klein-Paris

 

Hallo Luschi,

ich habe es gerade mal ausprobiert ... geht recht flott ... den Unterschied werde ich gleich mal in einer Zeitmessung ermitteln ...


Vielen Dank für den Tipp


Gruß vom Doc

 

Eine Frage hätte ich da aber noch ,,,

wie erhalte ich bei dem CopyFromRecordset die Anzahl der inportierten Datensätze ermittelt?



Gruß vom Doc

 

Hallo drzwockel,

mach es so:
rs.MoveLast 'ganz wichtig
MsgBox rs.RecordCount
rs.Close
con.Close
Set rs = Nothing
Set con = Nothing

Gruß von Luschi
aus klein-Paris

 

Hallo Luschi,

ich glaube, dass ich mich da vielleicht falsch ausgedrückt habe. Ich möchte nicht die Anzahl der Records in der DB wissen, sondern wie viele im Rahmen meiner SQl Anweisung aus der DB geladen wurden.



Gruß vom Doc

 

Hallo drzwockel,

Set rs = con.Execute(“SELECT ....;")
Diese SQL-Select-Anweisung wird auf dem DB-Server ausgeführt und der 'rs'-Variable übergeben. 'rs' enthält also genau die Datensätze, die auch in die Exceltabelle übernommen per 'CopyFromRecordSet' werden. Und damit ist:
Dim n As Long
rs.MoveLast
n = rs.RecordCount
genau die richtige Methode zum ermitteln der Datensätze, die übernommen wurden - probier es aus.
'rs' repräsentiert NICHT die gesamte SQL-Datenbank!

Gruß von Luschi
aus klein-Paris

 

Hallo Luschi,

ich bekomme hierbei immer die Fehlermeldung, dass das Rowset nicht rückwärts abgerufen werden kann ...


Gruß vom Doc

 

Hallo drzwockel,

jeder Vorteil (wenig Programmcode) bringt aber auch Nachteile mit sich, die man aber abstellen kann.
die Variable 'rs' besitzt auch die Eingenschaft 'Cursortype'.
An der Stellschraube muß man drehen, da sie im Standard auf 'adOpenForwardOnly' gestellt ist.
Ändere also es wie folgt ab:
Dim rs As ADODB.Recordset
Set rs = New ADODB.Recordset
rs.CursorType = adOpenStatic
Set rs = con.Execute(“SELECT * FROM ......;")
Worksheets("meineTabelle").Cells(4, 1).CopyFromRecordset rs
rs.MoveLast
n = rs.RecordCount
'usw.

Die Umstellung von 'adOpenForwardOnly' auf 'adOpenStatic' kann sich aber auf die Geschwindigkeit des Abrufens der SQL-Abfrage bemerkbar machen, so daß die Schleifen-Routine dann doch wieder vorteilhaft wird.

Gruß von Luschi
aus klein-Paris

 

Hallo Luschi,

vielen Dank für Deine Geduld. Leider bringt mir diese Lösung einen anderen Fehler: kann nicht auf ein geöffnetes Objekt angewandt werden.

Langsam wird es mir zu blöd *frown.gif*