VBA Excel und Oracle


In Excel-VBA einen Zugriff auf eine Oracle 10 Datenbank zu bekommen ist recht einfach.

Was viele im Internet neben dem Quelltext nicht sagen ist, dass man einen ODBC-Treiber installieren muss. Diesen gibt es gegen kostenlose Registration auf der Oracle Seite.

Treiber installiert, dann kann es losgehen.

 

Sub Ora_Connection()
      
      Dim strCon, strTestCon, strProdCon As String
      
      Dim con As ADODB.Connection

      strCon = „Driver={Microsoft ODBC for Oracle};CONNECTSTRING=(DESCRIPTION=(ADDRESS=(PROTOCOL=TCP)(HOST= !DEIN_DB_HOST! )(PORT= !PORT!))(CONNECT_DATA=(SID= !SID! ))); uid= !USERNAME! ; pwd= !PASSWORT! ;“
      
      Set con = New ADODB.Connection
      con.Open (strCon)
      
      If con.State = 0 Then GoTo ende
      
      Dim rs As ADODB.Recordset
      Set rs = New ADODB.Recordset
      Set rs = con.Execute(„SELECT * FROM v$version WHERE banner LIKE ‚%Oracle%'“)
        
      Dim StrResult As String
      Dim i, j, spalten As Integer
      i = 4
      spalten = rs.Fields.Count – 1
     
      Do While Not rs.EOF
         For j = 0 To spalten
            Cells(i, j + 2).Value = rs.Fields(j).Value
         Next
         rs.MoveNext
         i = i + 1
         If i > 65000 Then GoTo ende
      Loop
ende:
      con.Close
End Sub

Das war schon das ganze Coding um Select-Statements via VBA auf einer Oracle DB auszuführen und sich das Resultset auflisten zu lassen.

Auschecken Tanzkurs Standard-Latein berlin.