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