点击下载此示例

截   图:

源   码:

'连接至当前数据库，并在消息对话框中输出其中的所有记录
Private Sub cmd_连接_Click()
    Dim i As Integer
    Dim Rcd As String
    '定义ADODB连接对象和记录集对象
    Dim cn As ADODB.Connection
    Dim rs As New ADODB.Recordset
    '连接至当前数据库
    Set cn = CurrentProject.Connection
    '引用当前连接的数据库中的“T_员工档案”表中的记录集
    rs.Open "T_员工档案", cn
    '获取记录集中的所有记录
    Do Until rs.EOF = True
        For i = 0 To rs.Fields.Count - 1
            Rcd = Rcd & rs.Fields(i) & "   "
        Next i
        rs.MoveNext
        Rcd = Rcd & Chr(10)
    Loop
    '在消息对话框中输出所有的记录集
    MsgBox Rcd, , rs.Source & " 的记录集"
    rs.Close: Set rs = Nothing
    cn.Close: Set cn = Nothing
End Sub