excel查询sql数据库

gerald

*在Excel里面建立数据链接
Private Sub GetFirstQuery()
ThisWorkbook.Activate
Sheets("Data").Activate
Cells.Delete
Set C = ActiveSheet.QueryTables.Add(Connection:="ODBC;DSN=MS Access Database;DBQ=" & ThisWorkbook.Path & "\test.mdb;DefaultDir=;", Destination:=Range("A1"))
With C
.CommandText = Array("SELECT * FROM A Where ID <=1")
.Refresh BackgroundQuery:=False
End With
End Sub

根据参数进行查询
Private Sub GetData(Para1 As String, Para2 As String, Para3 As String)
Dim WhereText As String
ThisWorkbook.Sheets("Data").Activate

WhereText = IIf(Para1 <> "", " segment='" & Para1 & "' ", "")
WhereText = WhereText & IIf(Para2 <> "" And WhereText <> "", " And ", "") & IIf(Para2 <> "", " Channel='" & Para2 & "' ", "")
WhereText = WhereText & IIf(Para3 <> "" And WhereText <> "", " And ", "") & IIf(Para3 <> "", " Demo='" & Para3 & "' ", "")


With C
.CommandText = Array("SELECT * FROM A Where " & WhereText)
Debug.Print .CommandText
.Refresh BackgroundQuery:=False
End With

End Sub

实施查询的程序
Sub Test()
Call GetFirstQuery
Call GetData("18", "Mike", "2006")
End Sub

q2005xy

好东西 多谢 多谢

gong001

好东西 多谢 多谢

by1

好东西 多谢 多谢

ldxpf

可以这样吗？？？

taiqigood

我可以查询但是报表做不了。

xjdlydd

不太理解，怎么操作

yulisheng

好是好
看不懂

maxiwen

楼主，建议上传一个EXCEL附件那样就更加容易理解了！
谢谢！

胡瓜

好东西 多谢 多谢

tmd9c

=SHEET2!B5

linrong

可不可以详细一点啊，谢谢了非常感谢了！

eijsoe

多谢 多谢

flyrane

嗯试试看怎么样

ngs139

不太理解，怎么操作