access获取指定表中的所有记录集

在应用程序中，我们就是需要把表数据呈现给用户查看

在access中，把指定表的记录集取出来，放到容器中待使用。

下面代码就是获取记录集中的所有记录，大致书写模式都是这样的，稍微修改就可以应用到自己的系统中了。

Private Sub 记录集_Click()

  Dim i As Integer

  Dim strRrd As String

  Dim cn As ADODB.Connection

  Dim rs As New ADODB.Recordset

  Set cn = CurrentProject.Connection   '连接至当前数据库

  rs.Open "员工信息", cn

  '获取记录集中的所有记录

  Do Until rs.EOF = True

      For i = 0 To rs.Fields.Count - 1

          strRrd = strRrd & rs.Fields(i) & "   "

      Next i

      rs.MoveNext

      strRrd = strRrd & Chr(10)

  Loop

  '在消息对话框中输出所有的记录集

  MsgBox strRrd , , rs.Source & " 的记录集"

  rs.Close

  Set rs = Nothing

  cn.Close

  Set cn = Nothing

End Sub