大家好
我用VBA連線Oracle查詢要回傳筆數
.RecordCount 總是回傳-1
.Fields.Count 可以正常回傳欄位數量
可以幫忙看一下是哪邊錯了嗎
再拜託大家了
謝謝！
Sub test()
Dim strConOracle As String
strConOracle = "Provider=MSDASQL.1;Persist Security Info=False;User ID=" &
sql_username & ";Password=" & sql_password & ";Data Source=abcdtest"
Set oConOracle = CreateObject("ADODB.Connection")
Set oRsOracle = CreateObject("ADODB.RecordSet")
Set OracleCommand = CreateObject("ADODB.Command")
oConOracle.Open strConOracle
With OracleCommand
.ActiveConnection = oConOracle
.CommandType = 1
.CommandText = "SELECT * FROM DBACD.TEST001"
.CommandTimeout = 300
End With
Set oRsOracle = OracleCommand.Execute
MsgBox "column count: " & oRsOracle.Fields.Count & vbLf & "row_count: " &
oRsOracle.RecordCount
Set oConOracle = Nothing: Set oRsOracle = Nothing: Set OracleCommand = Not
hing
End Sub