VBA中SQL代码求助。

wanderchen · 发表于 2009-9-8 11:57

自己弄了一段SQL代码，得不到自己想要的结果。外部连接不知道怎么弄，(+)提示出错
请大家踊跃帮忙

[local]附件[/local]

james.wan · 发表于 2009-9-8 15:53

Sheets("sheet1").[A2:D65536].ClearContents
Set conn = CreateObject("adodb.connection")
conn.Open "provider=microsoft.jet.oledb.4.0;extended properties='excel 8.0;hdr=yes;imex=1';data source=" & ThisWorkbook.FullName
Sql = "select 项目,SUM(A1),SUM(A2) FROM (select [项目],[sheet2$].[数量] as A1 ,0 as A2 from [sheet2$] union all select [项目],0 as A1,[sheet3$].[数量] as A2 from [sheet3$]) A GROUP BY 项目 "

ThisWorkbook.Sheets("sheet1").Range("A2").CopyFromRecordset conn.Execute(Sql)
conn.Close: Set conn = Nothing

wanderchen · 发表于 2009-9-9 11:15

谢谢了，
另外请问
Sql = "select [sheet2$].[项目],[sheet2$].[数量],[sheet3$].[数量] from [sheet2$] left join [sheet3$] on [sheet2$].[项目]=[sheet3$].[项目] union all select [sheet3$].[项目],[sheet2$].[数量],[sheet3$].[数量] from [sheet3$] left join [sheet2$] on [sheet2$].[项目] =[sheet3$].[项目] where [sheet2$].[项目] is null "
和你的上述代码除了缺少合计功能外，还有其他区别吗，比如算法什么的

james.wan · 发表于 2009-9-9 14:10

区别两点:一个是UNION ALL,一个是 LEFT JOIN

wanderchen · 发表于 2009-9-11 14:09

我是说运算效率或者结果会有不同没有

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

[求助] VBA中SQL代码求助。

修正SQL代码就可以了.