Excel VBA从设置为只读的Oracle数据库读取数据

Question

我正在尝试使用excel中的adodb连接对象从oracle读取数据。但是我收到一个错误“ oracle -160000数据库设置为只读访问权限”。请让我知道如何解决此问题。

Answer 1

Look at the recordset open method's LockType parameter and use adLockReadOnly. I'm not familiar with Oracle. You may also need to CursorType parameter to adOpenForwardOnly.

Example:

Dim lobjADOConnection As ADODB.Connection
Dim lobjADOData As ADODB.Recordset
Dim lstrSQL As String

Set lobjADOConnection = New ADODB.Connection
lobjADOConnection.Open ...

Set lobjADOData = New ADODB.Recordset

lstrSQL = "<your query here>"

lobjADOData.Open lstrSQL, lobjADOConnection, adOpenForwardOnly, adLockReadOnly '<===here
If Not lobjADOData.BOF Then
    lobjADOData.MoveFirst
    Do While Not lobjADOData.EOF
        DoEvents
        .
        .
        .

or if you just want to dump the data into a worksheet

Dim lobjTargetSheet As Worksheet

Set lobjTargetSheet = ThisWorkbook.Sheets("<SomeSheetName>")
With lobjTargetSheet
    .Select
    .Range("1:" & .UsedRange.Rows.count + 1).Delete xlUp
    .Range("A1").Select
    .Range("A1").CopyFromRecordset lobjADOData
End With