一个复杂SQL语句,嵌套语句如何写?

rbftong · 发表于 2011-7-8 12:16

一个复杂SQL语句,嵌套语句如何写?

[ 本帖最后由 rbftong 于 2011-7-8 14:14 编辑 ]

zhaogang1960 · 发表于 2011-7-8 17:52

sql = "select a.*,(select sum(qty) from [Sheet1$A4:D17] where outdp='I' and pdcode=a.pdcode and isdate<=a.isdate),(select sum(qty) from [Sheet1$A4:D17] where outdp='O' and pdcode=a.pdcode and isdate<=a.isdate) from [Sheet1$A4:D17] a where outdp='I'"

zhaogang1960 · 发表于 2011-7-8 17:56

用程序表示:
Sub Macro1()
Dim cnn As Object, sql$
Set cnn = CreateObject("adodb.connection")
cnn.Open "provider=microsoft.jet.oledb.4.0;extended properties=Excel 8.0;data source=" & ThisWorkbook.FullName
sql = "select a.*,(select sum(qty) from [Sheet1$A4:D17] where outdp='I' and pdcode=a.pdcode and isdate<=a.isdate),(select sum(qty) from [Sheet1$A4:D17] where outdp='O' and pdcode=a.pdcode and isdate<=a.isdate) from [Sheet1$A4:D17] a where outdp='I'"
[h4].CurrentRegion.Offset(1).ClearContents
[h5].CopyFromRecordset cnn.Execute(sql)
End Sub

Book1.rar (8.77 KB, 下载次数: 116)

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

[求助] 一个复杂SQL语句,嵌套语句如何写?