Office中国论坛/Access中国论坛

标题: 为什么记录集计数是-1 [打印本页]

作者: yodong 时间: 2011-6-29 20:26
标题: 为什么记录集计数是-1
'==========================================
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 时间: 2011-6-29 21:05
网上找了一下.解决.
Dim cn2 As Connection
Set cn2 = New ADODB.Connection
cn2.Open cn2sql
cn2.CursorLocation = adUseClient
或者
rs2.CursorLocation = 3
也可以.

作者: zhuyiwen 时间: 2011-7-2 22:19
因为你用的：
rs2.Open sqlstr2, cn2, adOpenDynamic, adLockOptimistic

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

作者: yodong 时间: 2011-7-5 19:05
哦.我试试.
谢谢朱大哥!

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)