Sub GetEmployees()
  ' Use OO4O
  Set objSession = CreateObject("OracleInProcServer.XOraSession")
  Set objDatabase = objSession.OpenDatabase("", "scott/tiger", 0)
  
  Sql = "select * from emp"
  
  Set oraDynaSet = objDatabase.DBCreateDynaset(Sql, 0)
  
  If oraDynaSet.RecordCount > 0 Then
    oraDynaSet.MoveFirst
    For x = 0 To oraDynaSet.Fields.Count - 1
      Cells(1, x + 1) = oraDynaSet.Fields(x).Name
      Cells(1, x + 1).Format = Bold
    Next
    
    For y = 0 To oraDynaSet.RecordCount - 1
      For x = 0 To oraDynaSet.Fields.Count - 1
        Cells(y + 2, x + 1) = oraDynaSet.Fields(x).Value
      Next
      oraDynaSet.MoveNext
    Next
  End If
  
  Set objSession = Nothing
  Set objDatabase = Nothing
End Sub


'Funktioniert leider noch nicht

Sub Connect_to_oracle()

  Dim Cn ' As ADODB.Connection
  Dim CP ' As ADODB.Command
  Dim Rs ' As ADODB.Recordset
  Dim Conn As String
  Dim QSQL As String
  
  'Connect to Oracele server begin
  Conn = "DRIVER={ORACLE ODBC DRIVER};SERVER=Service name;UID=username;PWD=password;DBQ=Service name;DBA=W;APA=T;FEN=T;QTO=T;FRC=10;FDL=10;LOB=T;RST=T;FRL=F;MTS=F;CSR=F;PFC=10;TLO=O;"
  Set Cn = CreateObject("ADODB.Connection")
  Set Cn = New ADODB.Connection
  With Cn
    .ConnectionString = Conn
    ' .CursorLocation = adUseClient
    .Open
  End With
  
  If Cn.State = adStateOpen Then
    MsgBox "Connection successful."
  End If
  
  'Connect to Oracle server end
  'close connection begin
  Cn.Close
  Set Cn = Nothing
  Set CP = Nothing
 'close connection end
End Sub

Wir nutzen Cookies auf unserer Website. Einige von ihnen sind essenziell für den Betrieb der Seite, während andere uns helfen, diese Website und die Nutzererfahrung zu verbessern (Tracking Cookies). Sie können selbst entscheiden, ob Sie die Cookies zulassen möchten. Bitte beachten Sie, dass bei einer Ablehnung womöglich nicht mehr alle Funktionalitäten der Seite zur Verfügung stehen.