Access利用DAO在窗体中查询数据(筛选数据)
- 2020-01-09 08:00:00
- tmtony8 原创
- 2122
在Access中,筛选数据的方法有好多,如下面的示例
这里介绍一下用DAO做窗体的筛选:
如这样的窗体,我们通过输入课程或者学生来查询数据
详细代码如下,主要是通过QueryDefs对象来执行sql语句。
Dim sql As String Set qdf = CurrentDb.QueryDefs("学生成绩查询") If Not IsNull(学生姓名) And Not IsNull(课程编号) Then sql = "select 学生选修课程表.学号,姓名,学生选修课程表.课程号,课程名,成绩,选课学期 from 学生表,课程表,学生选修课程表 where 学生表.学号=学生选修课程表.学号 and 课程表.课程号=学生选修课程表.课程号 and 学生表.学号=" + CStr(学生姓名) + " and 课程表.课程号=" + CStr(课程编号) ElseIf Not IsNull(学生姓名) Then sql = " select 学生选修课程表.学号,姓名,学生选修课程表.课程号,课程名,成绩,选课学期 from 学生表,课程表,学生选修课程表 where 学生表.学号=学生选修课程表.学号 and 课程表.课程号=学生选修课程表.课程号 and 学生表.学号=" + CStr(学生姓名) ElseIf Not IsNull(课程编号) Then sql = "select 学生选修课程表.学号,姓名,学生选修课程表.课程号,课程名,成绩,选课学期 from 学生表,课程表,学生选修课程表 where 学生表.学号=学生选修课程表.学号 and 课程表.课程号=学生选修课程表.课程号 " + " and 课程表.课程号=" + CStr(课程编号) Else sql = "select 学生选修课程表.学号,姓名,学生选修课程表.课程号,课程名,成绩,选课学期 from 学生表,课程表,学生选修课程表 where 学生表.学号=学生选修课程表.学号 and 课程表.课程号=学生选修课程表.课程号 " End If qdf.sql = sql 学生成绩查询子窗体.Form.Recordset.Close Set 学生成绩查询子窗体.Form.Recordset = qdf.OpenRecordset
运行筛选结果如图
注意:
要先创建一个对应名称的查询哦
Access Activex第三方控件
- office使用部分控件时提示“您没有使用该ActiveX控件许可的问题”的解决方法
- RTF文件(富文本格式)的一些解析
- Access树控件(treeview) 64位Office下出现横向滚动条不会自动定位的解决办法
- Access中国树控件 在win10电脑 节点行间距太小的解决办法
- EXCEL 2019 64位版(Office 2019 64位)早就支持64位Treeview 树控件 ListView列表等64位MSCOMMCTL.OCX控件下载
- VBA或VB6调用WebService(直接Post方式)并解析返回的XML
- Access 或VBA 或VB6 使用 MS SOAP Toolkit 3.0 实现 SOAP Client客户端的功能
Access ADP Sql Server等
- MMC 不能打开文件C:/Program Files/Microsoft SQL Server/80/Tools/Binn/SQL Server Enterprise Manager.MSC 可能是由于文件不存在,不是一个MMC控制台,或者用后来的MMC版
- sql server连接不了的解决办法
- localhost与127.0.0.1区别
- Roych的浅谈数据库开发系列(Sql Server)
- sqlserver 自动备份对备份目录没有存取权限的解决办法
- 安装Sql server 2005 express 和SQLServer2005 Express版企业管理器 SQLServer2005_SSMSEE
- 解决Access数据库的Sql语句中 Top n 语句获取多条记录
文章分类
联系我们
联系人: | 王先生 |
---|---|
电话: | 13928102596 |
Email: | 18449932@qq.com |
QQ: | 18449932 |
微信: | 13928102596 |
微博: | officecn01 |