日期:2014-05-16  浏览次数:21115 次

求助两个命令
在ADODB查询结果中,1.把记录游标定到第一条记录;
                                      2.让记录游标一条一条的向下移动
谢谢各位了

------解决方案--------------------
Public Sub Test()
Dim strSQL As String
Dim Cnn As New ADODB.Connection
Dim Rst As New ADODB.Recordset

Set Cnn = CurrentProject.Connection

strSQL = "select * from 表名 "
Rst.Open strSQL, Cnn, adOpenKeyset, adLockOptimistic
If Not Rst.EOF Then

'移动到第一条
Rst.MoveFirst

Do While Not Rst.EOF
Debug.Print Rst!字段名

'移动到下一条
Rst.MoveNext
Loop
End If

End Sub