vba - 查询 Oracle 时受影响的记录返回 -1

Question

我能够从 excel 向 oracle 表运行 INSERT、DELETE 和 UPDATE 记录。用户具有选择、插入、更新、删除权限。但是当我尝试发送简单的 SELECT SQL 时，我什么也没得到。CStr(recordsAffected) 为 [-1]。我需要关于这个问题的帮助。

Private Sub TestB_Click()
Dim recordsAffected As Long

Dim con As ADODB.Connection
Set con = New ADODB.Connection
con.Open "Driver={Oracle in OraDB19Home1};Dbq=ORCL;Uid=cowner;Pwd=pwd;"
Sql = "SELECT * FROM TABLECOD ;"
con.Execute Sql, recordsAffected

If recordsAffected > 0 Then
    MsgBox "Successful!"
    Unload Me
Else
    MsgBox "Not found. Please check values."
End If

con.Close
Set con = Nothing

End Sub

标签： vbaoracleodbc