|
'==========================================
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
朋友们.怎么解决?
|
|