我的recordset只能返回500多个值...

Question

Dim Con, ConStrConStr = "Provider = SQLOLEDB.1; User ID = sa; password = SupperLoad; Initial Catalog = SupperLoad; Data Source = 192.168.0.66"
Set Con = CreateObject ("ADODB.Connection")
With Con
    .ConnectionString = ConStr
    .CursorLocation = 3
End WithCon.OpenDim Rds, Cmd, SQLStrSQLStr = "Select * From dbo.Load_log"
Set Rds = CreateObject ("ADODB.RecordSet")
Set Cmd = CreateObject ("ADODB.Command")
With Cmd
    .ActiveConnection = Con
    .CommandText =  SQLStr
End With
Set Rds = Cmd.Execut主要语句如上，使用recordcount查也就只有500多。同样的方法查另一个数据库就没有问题。把这个网络库复制到本地也一样。请问各位知道可能问题出在什么地方么？谢谢！

Answer 1

我用listview显示，不过如果我不显示应该也可以啊...

Answer 2

用服务器右边看看.CursorLocation = 2Set Rds = Cmd.Execute
do while not rds.eof
   i=i+1
   rds.movenext
loop

Answer 3

CursorLocation = 2的话，recordcount直接-1...

Answer 4

没让你用recordcount啊,上面我不是写了 debug.print i

Answer 5

在SQL的企业管理器里查询一下此库（也就是用sql自带的工具查询一下），看看此库是否正常。对于数据库出库不正确时，不要老把眼睛盯在vb的代码上。

Answer 6

不好意思各位了，由于我对recordset不熟悉，问题问错了。其实返回的数值是正确的。recordcount返回的是总行数，没有问题，开始我以为是总的数据个数.......现在出现了个新问题，在我的应用中，如果listview控件是100*100见方，数据就可以被全部显示在控件上；如果是200*200见方，显示的数据就少了一些；更大显示的话，可显示得数据就更少。请问这可能是什么原因呢？谢谢！