为什么我看不到数据库里的记录？

Question

我的程序如下：
   。。
Dim cnn As New ADODB.Connection
Dim rsDevice As New ADODB.Recordset
Dim i  As Integer    cnn.Open "Provider=sqloledb;" & _
    "Data Source=icetea;Initial Catalog=HaiFeng;User Id=SQL;Password=Sql; "
                  
    rsDevice.Open "DeviceTable", cnn, , , adCmdTable
    
    i = rsDevice.RecordCount。为何此时 i = -1   ??????另外，如何给每个回复的人都加分？

Answer 1

你可能没写这句！cnn.CursorLocation = adUseClient

Answer 2

也可以把记录集的CursorLocation 设置为 adUseClient当然也可以这样
rst.movelast
i = rsDevice.RecordCount

Answer 3

1.cnn.CursorLocation = adUseClient
2.右下角管理-〉在每一个回复的人后面给出相应分数，填上你的密码，给分

Answer 4

1，“DeviceTable”表里有3条记录rst.movelast
i = rsDevice.RecordCount   ---- 试过，不好使

Answer 5

rsDevice.Open "DeviceTable", cnn ,1 , 3 , adCmdTable
======================QQYY_sj==========================