VBA SQL查询数据库输出结果的问题

厄米算符∫ · 发表于 2012-2-29 22:43

附件内左边是数据库内容，现在需要根据条件查询出相应的数据，
添加到excel中，显示为附件下面表的形式。
VBA + SQL语句怎么实现？因为字段（附表中的第二列分类项数不确定呢）
希望高手尽快帮忙，谢谢。

test.zip (6.57 KB, 下载次数: 110)

mineshine · 发表于 2012-3-1 10:24

仅供参考

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

复制代码

bluexuemei · 发表于 2012-3-1 11:13

本帖最后由 bluexuemei 于 2012-3-1 12:22 编辑

mineshine 发表于 2012-3-1 10:24
仅供参考

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

厄米算符∫ · 发表于 2012-3-1 23:18

mineshine 发表于 2012-3-1 10:24
仅供参考

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

mineshine · 发表于 2012-3-1 23:40

厄米算符∫ 发表于 2012-3-1 23:18
牛，谢谢了。假如我的数据是在access数据库里面的，这个也能实现不？或者有没有更好的办法？

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

inyhow · 发表于 2013-2-19 14:41

mineshine 发表于 2012-3-1 10:24
仅供参考

如果他是模糊查询呢？

f1,f3,f4,f5

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

mineshine · 发表于 2013-2-19 14:52

inyhow 发表于 2013-2-19 14:41
如果他是模糊查询呢？

f1,f3,f4,f5

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

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

inyhow · 发表于 2013-2-19 15:10

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

ok,非常感谢回复，暂时还没找到合适的，我在找找资料看看

		自动登录	找回密码
密码			免费注册

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