office交流網--QQ交流群號

Access培訓群:792054000         Excel免費交流群群:686050929          Outlook交流群:221378704    

Word交流群:218156588             PPT交流群:324131555

access穫取指定錶中的所有記録集

2020-06-24 08:00:00
tmtony8
原創
785

在應用程序中,我們就是需要把錶數據呈現給用戶查看

在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


    分享