作者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/cn.aspx?n=bbs/Visual_Basic/M.1548376524.A.9E1.html
※ 编辑: tt9981 (223.141.85.71), 01/25/2019 08:39:15