为什么在ADO里面我的记录集不能移动到下一条???

Question

Dim cnn1 As ADODB.Connection
Dim rst As ADODB.Recordset
Dim cnnstr As String
Dim intUserNum As Integer
Set cnn1 = New ADODB.Connection
bolstu = Truecnnstr = " provider=Microsoft.jet.OLEDB.4.0;Data Source=" & App.Path & "\database\experiment.mdb;Jet OLEDB:Database Password=buct"
cnn1.Open cnnstrSet rst = New ADODB.Recordset
rst.CursorType = adOpenKeyset
rst.LockType = adLockOptimistic
rst.Open "select * from classdo", cnn1Do Until rst.EOF
  MsgBox rst.Fields(0)
  rst.MoveNext
Looprst.Close
cnn1.Close

Answer 1

Set rs技术 = Nothing
改为：
rs技术.CursorLocation = adUseClient
rs技术.Open rstj , conjsfw, adOpenDynamic, adLockBatchOptimistic
rs技术.MoveFirst           '**************
For i = 0 To rs技术.RecordCount - 1
   序号 = ""
   序号 = Trim(rs技术.Fields![序号])
   安装派工单.PrintReport
   Unload 安装派工单
   rs技术.MoveNext
Next i

Answer 2

Set rs技术 = Nothing
+
你已经把 rs技术释放了，哪里还有rs技术?
dim rs技术 as new adodb.recordset

Answer 3

在循环中要将记录集指针移动呀!rs技术.MoveFirst

Answer 4

对,只能rs技术.close,不能set rs技术=nothing.

Answer 5

Set rs技术 = Nothing
set rs技术=new recordset                    '增加这句
rs技术.CursorLocation = adUseClient将 rs技术.Open rstj , conjsfw, adOpenDynamic, adLockBatchOptimistic
改为：rs技术.Open rstj , conjsfw, adOpenKeyset, adLockReadOnly
                                            
For i = 0 To rs技术.RecordCount - 1
   序号 = ""
   序号 = Trim(rs技术.Fields![序号])
   安装派工单.PrintReport
   Unload 安装派工单
   rs技术.MoveNext
Next i

Answer 6

最好使用
do while not rs.eof
.....
loop

Answer 7

最好使用
do while not rs.eof
.....
loop

Answer 8

Dim cnn1 As ADODB.Connection
Dim rst As ADODB.Recordset
Dim cnnstr As String
Dim intUserNum As Integer
Set cnn1 = New ADODB.Connection
bolstu = Truecnnstr = " provider=Microsoft.jet.OLEDB.4.0;Data Source=" & App.Path & "\database\experiment.mdb;Jet OLEDB:Database Password=buct"
cnn1.Open cnnstrSet rst = New ADODB.Recordset
rst.CursorType = adOpenKeyset
rst.LockType = adLockOptimistic
rst.Open "select * from classdo", cnn1Do Until rst.EOF
  MsgBox rst.Fields(0)
  rst.MoveNext
Looprst.Close
cnn1.Close