Access培训
网站公告
·Access专家课堂QQ群号:239158550    ·Access快速开发平台下载地址及教程    ·欢迎加入Access专家课堂微信群!    ·如何快速搜索本站文章|示例|资料    
您的位置: 首页 > 技术文章 > Access数据库-模块/函数/VBA

通过编写SQL来引用指定记录集

时 间:2021-07-23 20:07:13
作 者:杨雪   ID:42182  城市:南京
摘 要:分享一个通过编写SQL来引用指定记录集显示在文本控件中。
正 文:

点击下载此示例


图   片:


源   码:

'在文本框中输出“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


Access软件网官方交流QQ群 (群号:39785885)       Access源码网店

常见问答:

技术分类:

相关资源:

专栏作家

关于我们 | 服务条款 | 在线投稿 | 友情链接 | 网站统计 | 网站帮助