织梦CMS - 轻松建站从此开始!

Office下载激活密钥官网_Word Excel PPT PowerPoit 自学教程

当前位置: 主页 > Excel教程 > Excel2013教程 >

使用SQL语句进行数据筛选的方法

时间:2017-10-07 00:00来源:未知 作者:admin 点击:
在使用VBA对数据库进行访问时,利用SQL语句能够方便地实现对数据库的查询。本文使用SQL语句实现多条件查询,使用Select语句从成绩管理.accdb数据库文件中获取1班中数学和语文成绩均大

在使用VBA对数据库进行访问时,利用SQL语句能够方便地实现对数据库的查询。本文使用SQL语句实现多条件查询,使用Select语句从“成绩管理.accdb”数据库文件中获取1班中数学和语文成绩均大于98分的学生记录,记录使用For...Next结构写入工作表的单元格。本文图文介绍使用SQL语句进行数据筛选的具体操作方法。

1、启动Excel并打开工作表,打开Visual Basic编辑器,在工程资源管理器中插入一个模块,在模块的“代码”窗口中输入如下程序代码:

Public Sub数据筛选()

Dim mydata As String,mytable As String,SQL As String '声明变量

Dim cn As ADODB.Connection '声明连接对象变量

Dim rs As ADODB.Recordset '声明记录集对象

Dim i As Integer '声明计数变量

ActiveSheet.Cells.Clear '清空单元格

mydata=ThisWorkbook.Path&"\成绩管理.accdb" '指定数据库文件

mytable="成绩表" '指定工作表

Set cn=New ADODB.Connection '创建连接对象变量

With cn

.Provider="microsoft.ace.oledb.12.0" '指明OLEDB提供者

.Open mydata '打开数据库

End With

SQL="select*from"&mytable_&"where(班级= '1')and(数学>=98 or语文>=98)"'创建数据筛选命令

Set rs=New ADODB.Recordset '创建记录集对象记录

rs.Open SQL,cn,adOpenKeyset,adLockOptimistic '复制字段名

For i=1 To rs.Fields.Count

Cells(1,i)=rs.Fields(i-1).Name '将字段名写入单元格

Next i

Range("A2").CopyFromRecordset rs '复制数据

rs.Close '关闭记录集对象

cnn.Close '关闭连接对象

Set rs=Nothing '删除记录集对象变量

Set cn=Nothing '删除连接对象变量

End Sub

2、按F5键运行该程序,“成绩管理”数据库中“班级”为“1”,“语文”和“数学”成绩均大于98分的数据被筛选到工作表中,如图1所示。

使用SQL语句进行数据筛选的方法

图1 数据筛选结果

(责任编辑:admin)
顶一下
(0)
0%
踩一下
(0)
0%
------分隔线----------------------------
发表评论
请自觉遵守互联网相关的政策法规,严禁发布色情、暴力、反动的言论。
评价:
表情:
用户名: 验证码:点击我更换图片