怎么读入access查询记录的其中一个啊？

Question

  如标题，比如 一个表有 ID字段 姓名字段  我用语句select id from 表名 来查询ID字段的记录。我想把查询结果逐个输出应该怎么写代码啊？ 比如 查询结果 有 1 ， 2， 3， 4  我想把逐个获取这个结果 。第一次输出 1  第二次输出2 应该怎么写代码啊？请高手指点~

Answer 1

for i=0 to rs.RecordCount -1
    debug.print rs!ID
    rs.MoveNext
next

Answer 2

Public rstTmp As Recordset
Dim strDB As String
Dim StrSQL As String
'-------------------ACCESS---------------------------------------
    Set cnDbSr = New Connection
    
    strDB = "Provider=MSDataShape.1;Data Provider=MSDASQL.1" & _
          ";Driver={Microsoft Access Driver (*.mdb)}" & _
          ";DBQ=" & App.Path & "\AAAA.mdb;" & _
          ";uid=" & _
          ";pwd="
          
    With cnDbSr
      .Provider = "MSDataShape"
      .ConnectionString = strDB
      .CursorLocation = adUseClient
      .Mode = adModeReadWrite
      .Open
    End With    StrSQL = "Select distinct ID from 表名"
    Set rstTmp = cnDbSr.Execute(StrSQL)
    
'---------------------------------------------------
    If rstTmp.RecordCount = 0 Then                  '|
        '处理 收尾工作                              '|
    Else                                            '|
        rstTmp.MoveFirst                            '|
        If Not rstTmp.EOF Then                      '|这一部分应该放在另一个函数里
            '写显示的代码,例如                      '|
            Debug.Print rstTmp.Fields("ID").Value   '|
            rstTmp.MoveNext                         '|
        End If                                      '|
    End If                                          '|
'----------------------------------------------------

Answer 3

http://download.csdn.net/source/1498324

Answer 4

谢谢各位 问题已经解决了~ 谢谢  我是这样的 do while not rs.eof
                                          msgbox rs.fields("ID")
                                             rs.movenext
                                     loop