Oracle Connection
22.02.2013 09:01:21
Snewi
ich baue über ADO eine Verbindung zu einer Oracle Datenbank auf:
Sub Oracle()
Dim conn, rs
Dim strSQL As String
Set conn = CreateObject("ADODB.Connection")
With conn
.ConnectionString = "Provider=MSDAORA;" & _
"Data Source=ARCH;" & _
"User ID=msq;Password=msq;"
.Open
End With
Set rs = CreateObject("ADODB.Recordset")
strSQL = "select * from "
rs.Open strSQL, conn, 3, 3
Range("A1") = rs("Wert1")
Range("B1") = rs("Wert2")
rs.Close
Set rs = Nothing
conn.Close
Set conn = Nothing
End Sub
Das klappt auch soweit, nun möchte ich zum einen direkt den nativen Oracle TreiberDRIVER={Oracle in OraHome10g_home1} ansprechen und hierüber die Verbindung aufbauen!
Geht das? Dann kann ich mir das ganze mit ODBC sparen!
Die zweite Frage, kann ich mir dann aus meinen Select direkt ein DataSet bauen und die komplette Abfrage in einem Rutsch nach Excel zurückgeben?
Gruß