ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

快捷登录

搜索
EH技术汇-专业的职场技能充电站 妙哉!函数段子手趣味讲函数 Excel服务器-会Excel,做管理系统 效率神器,一键搞定繁琐工作
HR薪酬管理数字化实战 Excel 2021函数公式学习大典 Excel数据透视表实战秘技 打造核心竞争力的职场宝典
让更多数据处理,一键完成 数据工作者的案头书 免费直播课集锦 ExcelHome出品 - VBA代码宝免费下载
用ChatGPT与VBA一键搞定Excel WPS表格从入门到精通 Excel VBA经典代码实践指南
查看: 3626|回复: 7

[求助] VBA SQL查询数据库输出结果的问题

[复制链接]

TA的精华主题

TA的得分主题

发表于 2012-2-29 22:43 | 显示全部楼层 |阅读模式
附件内左边是数据库内容,现在需要根据条件查询出相应的数据,
添加到excel中,显示为附件下面表的形式。
VBA + SQL语句怎么实现?因为字段(附表中的第二列分类项数不确定呢)
希望高手尽快帮忙,谢谢。 test.zip (6.57 KB, 下载次数: 110)

TA的精华主题

TA的得分主题

发表于 2012-3-1 10:24 | 显示全部楼层
仅供参考

  1. Sub Test()
  2.     Dim dic As Object, i As Long, conn As Object, sql$
  3.     With Sheets("Sheet1")
  4.         Set dic = CreateObject("scripting.dictionary")  '字典
  5.         For i = 2 To .[a65535].End(xlUp).Row    'A2~A最后非空白单元格
  6.             If Not dic.exists(.Cells(i, 2).Value & "") Then dic.Add .Cells(i, 2).Value, "" '类型不重复加入数组
  7.         Next i
  8.         a = dic.keys
  9.         .[H1:K65536].ClearContents  '清除H:K查询数据
  10.         Set conn = CreateObject("adodb.connection")
  11.         conn.Open "provider=Microsoft.ACE.OLEDB.12.0;extended properties='excel 12.0;hdr=no';data source=" & ThisWorkbook.FullName
  12.         For i = 0 To dic.Count - 1
  13.             If i = 0 Then
  14.                 .Cells(i + 1, 8) = a(i) '如果数组第一个数据,就写入H1
  15.             Else
  16.                 .Cells(.[H65536].End(xlUp).Row + 1, 8) = a(i)   '非数组第一个数据,写入H行最后空白单元格
  17.             End If
  18.             sql = "select f1,f3,f4,f5 from [Sheet1$A:E] where f2='" & a(i) & "' order by f1"    '查询栏位"名称,属性1,属性2,属性3",且类数同数组数据,並依"名称"排序。
  19.             .Cells(.[H65536].End(xlUp).Row + 1, 8).CopyFromRecordset conn.Execute(sql)  '查询结果写入H行最后空白单元格
  20.         Next i
  21.         conn.Close
  22.         Set conn = Nothing
  23.         Set dic = Nothing
  24.     End With
  25. End Sub
复制代码

TA的精华主题

TA的得分主题

发表于 2012-3-1 11:13 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
本帖最后由 bluexuemei 于 2012-3-1 12:22 编辑
mineshine 发表于 2012-3-1 10:24
仅供参考


强悍,数组和ADO结合得妙!不是有标题行吗,为什么用HDR=NO呢?

TA的精华主题

TA的得分主题

 楼主| 发表于 2012-3-1 23:18 | 显示全部楼层
mineshine 发表于 2012-3-1 10:24
仅供参考

牛,谢谢了。假如我的数据是在access数据库里面的,这个也能实现不?或者有没有更好的办法?

TA的精华主题

TA的得分主题

发表于 2012-3-1 23:40 | 显示全部楼层
厄米算符∫ 发表于 2012-3-1 23:18
牛,谢谢了。假如我的数据是在access数据库里面的,这个也能实现不?或者有没有更好的办法?

可以,EH里很多例子,你可以找找。

TA的精华主题

TA的得分主题

发表于 2013-2-19 14:41 | 显示全部楼层
mineshine 发表于 2012-3-1 10:24
仅供参考

如果他是模糊查询呢?

f1,f3,f4,f5

名称 属性1 属性2随便输入一字段值,那么查询好像比较难了

TA的精华主题

TA的得分主题

发表于 2013-2-19 14:52 | 显示全部楼层
inyhow 发表于 2013-2-19 14:41
如果他是模糊查询呢?

f1,f3,f4,f5

多条件模糊查询因条件的不确定性
所以要看附件才能知如何处理

同样,EH里很多例子,你可以找找。

TA的精华主题

TA的得分主题

发表于 2013-2-19 15:10 | 显示全部楼层
mineshine 发表于 2013-2-19 14:52
多条件模糊查询因条件的不确定性
所以要看附件才能知如何处理

ok,非常感谢回复,暂时还没找到合适的,我在找找资料看看
您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

手机版|关于我们|联系我们|ExcelHome

GMT+8, 2024-11-6 03:49 , Processed in 0.045912 second(s), 12 queries , Gzip On, MemCache On.

Powered by Discuz! X3.4

© 1999-2023 Wooffice Inc.

沪公网安备 31011702000001号 沪ICP备11019229号-2

本论坛言论纯属发表者个人意见,任何违反国家相关法律的言论,本站将协助国家相关部门追究发言者责任!     本站特聘法律顾问:李志群律师

快速回复 返回顶部 返回列表