作者：绿色风
分类：
时间：2022-08-17
浏览：139
楼主
wise |
Q：如何利用VBA及SQL选取符合条件日期的纪录?
A:对于日期的SQL语句，关键是要在日期前后加上#号，否则提取不成功。比如要提取小于2009-6-11的记录，则在语句里面的where子句后面，写 where 日期 < #2009-6-11#，否则查询不出来。下面请看具体例子:
- Sub 日期()
- Dim i As Long '定义一个变量
- i = Sheets("Sheet2").Range("A65536").End(xlUp).Row + 1
- TD = Sheets("Sheet2").Range("I1").Value '指定时间单元格
- If TD = "" Then Exit Sub '如果I1中不存在日期,则退出该程序
- Sheets("Sheet2").Range("A2:F" & i).ClearContents '清除记录
- Set conn = CreateObject("adodb.connection") '创建链接对象，conn 为变量
- conn.Open "provider=microsoft.jet.oledb.4.0;extended properties= excel 8.0;data source=" & ThisWorkbook.FullName '打开数据源并且建立链接
- S = "select * from [数据源$] where 日期 < #" & TD & "#" '关键提取符合小于单元格I1中日期的语句
- Sheets("Sheet2").[a2].CopyFromRecordset conn.Execute(S) '使用Execute语句执行SQL语句，取得符合要求的记录
- conn.Close '关闭数据源
- Set conn = Nothing
- End Sub
 VBA+SQL选取符合某日期条件的记录.rar
|
2楼
lisan |
感谢楼主无私分享！学习学习！ |
3楼
水星钓鱼 |
多谢小7 |
4楼
zhouzhongchi |
请问老师：运行时错误。未找到提供程序。该程序可能未正确安装。
如何才能运行ADO? |
5楼
icenotcool |
|
免责声明
有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，
经与ExcelTip.Net站长Apolloh商议并征得其同意，
现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，
供有需要的人士查询使用，也慰缅曾经的论坛时代。
所示各个帖子的原作者如对版权有异议，
可与本人沟通提出，或于本站点留言，我们会尽快处理。
在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一