Access/VBA/Excel-多条件筛选数据-10
来源:互联网 发布:mac口红销量前三的颜色 编辑:程序博客网 时间:2024/06/06 14:52
微信公众号原文
系统:Windows 7
软件:Excel 2010 / Access 2010
- 这个系列开展一个新的篇章,重点关注Access数据库
- 主体框架:以Excel作为操作界面,Access作为数据库
- 今天讲讲如何将数据库中满足要求的数据拿出来
- 涉及知识:
ADO
,SQL:Select + Where + or + and + in
Part 1:目标
- 目标1:将数据库中数据表学生信息表中的语文成绩大于85分且学号大于4的人员信息读入当前工作簿示例工作表
- 目标2:将数据库中数据表学生信息表中姓名为张三或者小红的人员信息读入当前工作簿示例工作表
- 逻辑过程
- 连接数据库
- 根据需求确定SQL语句
- 执行SQL语句,得到recordset
- 将recordset写入工作表(字段名+所有记录 即 列名+每一行)
- 断开与数据库的连接
- 实现两个目标只有SQL语句不同,其余一致
- 目标1:
SQL = "Select * from " & tblName & " where 语文成绩>85 and 学号>4"
- 目标2:
SQL = "Select * from " & tblName & " where 姓名 in('张三','小红')"
- 目标1:
目标1
目标2
Part 2:代码
Sub test() Dim cnn As New ADODB.Connection '连接 Dim rs As New ADODB.Recordset Dim SQL As String Dim tblName Dim dbAddr dbAddr = ThisWorkbook.Path & "\学生信息.accdb" tblName = "学生信息表" '连接数据库 With cnn .Provider = "Microsoft.ACE.OLEDB.12.0" .Open "Data Source=" & dbAddr End With SQL = "Select * from " & tblName & " where 语文成绩>85 and 学号>4"' SQL = "Select * from " & tblName & " where 姓名 in('张三','小红')" Set rs = cnn.Execute(SQL) Dim sht Dim fildNum Set sht = ThisWorkbook.Worksheets("示例") sht.Cells.ClearContents fildNum = rs.Fields.Count For j = 0 To fildNum - 1 Step 1 fildName = rs.Fields(j).Name sht.Cells(1, j + 1) = fildName Next j sht.Cells(2, 1).CopyFromRecordset rs cnn.Close Set rs = Nothing Set cnn = NothingEnd Sub
代码截图
Part 3:部分代码解读
SQL = "Select * from " & tblName & " where 语文成绩>85 and 学号>4"
,中文释义:从工作表中获取满足语文成绩>85且学号>4的所有信息SQL = "Select * from " & tblName & " where 姓名 in('张三','小红')"
,中文释义:从工作表中获取满足姓名为张三或者小红的所有信息,也可以使用or
来实现该功能"Select * from " & tblName & " where 姓名='张三' or 姓名='小红'"
本文为原创作品,如需转载,可加小编微信号learningBin
以上为本次的学习内容,下回见
如发现有错误,欢迎留言指出
更多精彩,请关注微信公众号
扫描二维码,关注本公众号
阅读全文
0 0
- Access/VBA/Excel-多条件筛选数据-10
- Access/VBA/Excel-单表筛选数据-09
- Excel VBA高效办公应用-第五章-销售数据的处理与分析-Part2(多条件筛选及判定)
- Excel VBA 多条件查询
- excel多条件筛选公式
- vba连接数据 代码 (excel/access/sqlserver)
- Access/VBA/Excel-获取数据库数据-08
- excel vba筛选
- 在Excel中使用VBA来筛选数据
- GridView多条件筛选数据
- excel VBA 更新 access
- VBA Excel 高级筛选AdvancedFilter
- C#执行access中VBA,用VBA导出access表中数据到Excel中
- Excel VBA 根据筛选条件自动汇总统计(for 铁虎)
- Access 在VBA中实现数据导出到Excel
- EXCEL数据筛选高级功能之条件区域
- Excel中使用VBA筛选数据并将结果另存为新的EXCEL文件
- JS前端数据多条件筛选
- Redux状态管理 3.处理异步、更优雅的和react相结合
- Android中的Java,class,dex,apk
- python中的MRO与多继承
- Java并发编程的艺术-笔记2
- UVM usage
- Access/VBA/Excel-多条件筛选数据-10
- 引用变量
- nexus 离线下载中央库索引
- 函数指针与宏的简单应用
- iOS 第三方库
- 指数型母函数模板
- 算法的封装与切换——策略模式(三)
- 移动光标到相应的文本(比如项目中,插入了图片之后,即在插入的地方显示光标)
- case表达式和decode函数