为什么记录集计数是-1

yodong

'==========================================
dim cn2 as string
Dim rs2 As New ADODB.Recordset
seraddstr = DLookup("地址", "pub_tbl服务器列表", "id=" & ID)
kl = DLookup("口令", "pub_tbl服务器列表", "id=" & ID)
datastr = DLookup("数据库", "pub_tbl服务器列表", "id=" & ID)
user = DLookup("用户", "pub_tbl服务器列表", "id=" & ID)
cn2 = "PROVIDER=SQLOLEDB.1;SERVER=" & seraddstr & ";user id =" & user & ";password=" & kl & ";database=" & datastr
'================大尖别
sqlstr4 = "select * from tbl产品公共信息  where 物品编码 ='" & bill & "'"
rs2.Open sqlstr2, cn2, adOpenDynamic, adLockOptimistic '远程的
msgbox rs2.RecordCount '这里总是-1
'为什么?
If rs2.RecordCount = 0 Then
rs2.AddNew
rs2("大类别名称") = lb1
rs2("一级类别名称") = lb2
rs2.Update
End If
===================
如果记录集的时候
为什么rs2.RecordCount =-1
朋友们.怎么解决?

yodong

网上找了一下.解决.
Dim cn2 As Connection
Set cn2 = New ADODB.Connection
cn2.Open cn2sql
cn2.CursorLocation = adUseClient
或者
rs2.CursorLocation = 3
也可以.

zhuyiwen

因为你用的：
rs2.Open sqlstr2, cn2, adOpenDynamic, adLockOptimistic

动态集不会告诉你到底有多少条记录，要用键集

yodong

哦.我试试.
谢谢朱大哥!