为什么我在程序里查到的记录比数据库里的少？？快疯了！！！

[tengteng_rock]

代码是这样写的：

Dim SysConn1 As New ADODB.Connection 'Create a ADO Connection
Dim rsnew1 As New ADODB.Recordset 'Create a Recordset

With SysConn1
.ConnectionString = "Provider=MSDASQL.1;Persist Security Info=False;User ID=" & OUserID.Text & ";Data Source=" & ODataSource.Text & ";Password=" & OPassword.Text
.Open
End With

rsnew1.CursorLocation = adUseClient
sql = "SELECT * FROM NODES"
rsnew1.Open sql, SysConn1, adOpenKeyset

Debug.Print rsnew1.RecordCount

将这条sql语句在查询分析器里执行，可以查到224条记录，但通过程序只能查出113条记录。
如果数据库里有338条记录，通过程序只能查出139条记录。
如果数据库里有10条或6条，即比较少的记录，通过程序能全部查出。

我快疯了！！

[qjqmoney]

把这句rsnew1.Open sql, SysConn1, adOpenKeyset改成：
rsnew1.Open sql, SysConn1, 3,3

[palmkey]

没碰到过,关注

[tengteng_rock]

rsnew1.Open sql, SysConn1, 3,3
试了，也不行

[flc]

没有遇见过
关注

[wxgdwz5275]

我碰到过网页的这个问题，从库里面读的数据比库里面的记录少！也不知道什么原因！

[lwplwp123]

不知道是怎么回事，
不过强烈关注。

[weill]

SQL的程序设计有时要考虚时间间隔问题。
类似情况我也碰过，怎么解决的不记得了，好象一次不取那么多。

[jpinglee]

我也遇到过类似的情况
就是查找出来的记录项比实际的少,或者就是没有,或许是系统有关

[ygs202]

哈哈，这个问题很简单啊。
在Debug.Print rsnew1.RecordCount语句前面加上一句rsnew1.movelast肯定可以得到正确的个数。

[MSSQL]

关注。

[CBASE]

肯定有问题！最好将程序全部贴出，大家看看！！

[skywolfY]

Dim SysConn1 As New ADODB.Connection 'Create a ADO Connection
Dim rsnew1 As New ADODB.Recordset 'Create a Recordset
SysConn1.ConnectionString = "Provider=MSDASQL.1;Persist Security Info=False;User ID=" & OUserID.Text & ";Data Source=" & ODataSource.Text & ";Password=" & OPassword.Text

SysConn1.CursorLocation=adUseClient ******
Set rsnew1.Activeconntion=SysConn1
sql = "SELECT * FROM NODES"
rsnew1.Open sql
if rsnew!.RecordRount>0 then
Debug.Print rsnew1.RecordCount
endif

[Jackile]

肯定是你的代码有问题，不要怀疑系统出了什么错误！你把你的限制条件再考虑一下！

[curd]

关注

[astroboy]

楼主不会是数据源连错了吧？？？

关注！！！！！！！！！！！

[饮水需思源]

Dim SysConn1 As New ADODB.Connection 'Create a ADO Connection
Dim rsnew1 As New ADODB.Recordset 'Create a Recordset

With SysConn1
.ConnectionString = "Provider=MSDASQL.1;Persist Security Info=False;User ID=" & OUserID.Text & ";Data Source=" & ODataSource.Text & ";Password=" & OPassword.Text
.Open
End With

strsql = "SELECT * FROM NODES"
if rsnew1.state=adstateopen then rsnew1.close
rsnew1.open strsql,sysconn1,adopenkeyset,adlockreadonly

Debug.Print rsnew1.RecordCount

[wolfhero]

rsnew1.MoveFirst
Debug.Print rsnew1.RecordCount