谁说的?View1是个视图
Dim aa As ADODB.Connection
Dim ss As ADODB.Recordset
Set aa = New ADODB.Connection
Set ss = New ADODB.Recordset
aa.CursorLocation = adUseClient
aa.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=" + "数据库" + ";Data Source=" + "主机名"
aa.Open
ss.ActiveConnection = aa
Dim sqlTmp As String
sqlTmp = "select * from VIEW1"
ss.Open sqlTmp
MsgBox ss.RecordCount
Dim aa As ADODB.Connection
Dim ss As ADODB.Recordset
Set aa = New ADODB.Connection
Set ss = New ADODB.Recordset
aa.CursorLocation = adUseClient
aa.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=" + "数据库" + ";Data Source=" + "主机名"
aa.Open
ss.ActiveConnection = aa
Dim sqlTmp As String
sqlTmp = "select * from VIEW1"
ss.Open sqlTmp
MsgBox ss.RecordCount
用view作查询 记录集能出来
但是recordcount=-1
你的问题!!
我试了,可以。
你试试在rs.recordcount之前 rs.movelast 一下
我试了,不行,
不过我用
do while not rs.eof
'use rs
loop
可以得到所有的结果集但是用recordcount就是等于-1
包括各种各样的move我都试了
aa.CursorLocation = adUseClient
一定要有
别的不多说了,有点后悔回贴了,555,还埋怨我
thank you!