点击下载此示例

图   片:

源   码:

'在文本框中输出“T_员工档案”表中的销售部员工的姓名、专业和部门
Private Sub cmd_销售_Click()
    Dim db As DAO.Database
    Dim rs As DAO.Recordset
    Dim StrSQL As String
    Dim i As Integer
    '设置SQL语句获取销售部员工的姓名、专业和部门
    StrSQL = "select 姓名,专业,部门 from T_员工档案 where 部门 = '销售部';"
    '引用当前数据库
    Set db = CurrentDb()
    '使用动态集的方式打开SQL筛选的结果作为记录集
    Set rs = db.OpenRecordset(StrSQL, dbOpenDynaset)
    txt_资料 = ""  '清空文本框
    '通过判断循环输出记录集中的每条记录
    Do Until rs.EOF = True
        '通过计次循环输出每条记录的所有字段
        For i = 0 To 2
            txt_资料 = txt_资料 & rs.Fields(i) & "  "
        Next i
        rs.MoveNext '移动至下一条记录
        txt_资料 = txt_资料 + vbCrLf  '换行
    Loop
End Sub