access獲取指定表中的所有記錄集

在應(yīng)用程序中，我們就是需要把表數(shù)據(jù)呈現(xiàn)給用戶查看

在access中，把指定表的記錄集取出來，放到容器中待使用。

下面代碼就是獲取記錄集中的所有記錄，大致書寫模式都是這樣的，稍微修改就可以應(yīng)用到自己的系統(tǒng)中了。

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   '連接至當(dāng)前數(shù)據(jù)庫
    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
    '在消息對(duì)話框中輸出所有的記錄集
    MsgBox strRrd , , rs.Source & " 的記錄集"
    rs.Close
    Set rs = Nothing
    cn.Close
    Set cn = Nothing
End Sub