作者tt9981 (tt)
看板Visual_Basic
標題[VBA ] Oracle回傳查詢筆數
時間Fri Jan 25 08:35:22 2019
大家好
我用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
--
※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 223.141.85.71
※ 文章網址: https://webptt.com/m.aspx?n=bbs/Visual_Basic/M.1548376524.A.9E1.html
※ 編輯: tt9981 (223.141.85.71), 01/25/2019 08:39:15