Excel VBA에서 ODBC를 사용하여 Oracle 10g에 연결

다음 코드가 작동합니다. 연결이 잘 열리지 만 테이블에 데이터가 있으면 recordset.recordCount는 항상 -1을 반환합니다. ANd 레코드 세트의 메서드 나 속성을 호출하려고하면 Excel이 충돌합니다. 어떤 아이디어? 하지만, 감사Excel VBA에서 ODBC를 사용하여 Oracle 10g에 연결

Sub GetData() 
    Dim conn As New ADODB.connection  
    Dim connString 
    connString = "DSN=name;Uid=user;Pwd=pass" 
    Dim rsRecords As New ADODB.recordSet 

    conn.Open connString 
    rsRecords.CursorLocation = adUseServer 
    rsRecords.Open "select * from xxx", conn, adOpenForwardOnly, adLockReadOnly 

    If conn.State = adStateOpen Then 
     MsgBox rsRecords.RecordCount 
    Else 
     MsgBox "no connection" 
    End If 

    rsRecords.Close 
    Set rsRecords = Nothing 
    conn.Close 
    Set conn = Nothing 
End Sub

출처

2009-11-13 Peter Goras