如何用SQL跨表多条件查询

天心学习 · 发表于 2017-5-18 21:09

如图，需要在A表中找到B表城市的重量对应的单价填写至C列，要求使用VBA编辑SQL语句，谢谢各位老师！
数据源.PNG

huang1314wei · 发表于 2017-5-18 21:33

Sub test()
Dim Conn As Object, Rst As Object
Dim strConn As String, strSQL As String
Dim i As Integer, PathStr As String
Set Conn = CreateObject("ADODB.Connection")
Set Rst = CreateObject("ADODB.Recordset")
PathStr = ThisWorkbook.Path
strConn = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & PathStr & "\数据源工作簿.xlsx" & ";Extended Properties=""Excel 12.0;HDR=YES"";"""
Conn.Open strConn
[C2:C65536].ClearContents
arr = Range("A1").CurrentRegion
For i = 2 To UBound(arr)
strSQL = "select 单价 from [数据源$] where 城市='" & arr(i, 1) & "' and 起始重量<=" & arr(i, 2) & " and 结束重量>=" & arr(i, 2)
Set Rst = Conn.Execute(strSQL)
If Not Rst.EOF Then
arr(i, 3) = Rst.Fields(0).Value
End If
Next
Range("A1").CurrentRegion = arr
If Rst.State = adstateopen Then Rst.Close
If Conn.State = adstateopen Then Conn.Close
Set Rst = Nothing
Set Conn = Nothing
End Sub

复制代码

huang1314wei · 发表于 2017-5-18 21:35

多条件查询.rar (25.41 KB, 下载次数: 51)

天心学习 · 发表于 2017-5-18 22:05

huang1314wei 发表于 2017-5-18 21:33

老师，当数据源和要查询的数据条数都达到很多时，循环For就会变得很慢，我之前在想，能否用下面类似的语句，不过不知道多条件该怎么写？

Select 表名 .字段1,表名 .字段2,表名 .字段3,表名 .字段4 FROM 查询表 AS 别名1 Left Outer JOIN 被查询表 AS 别名2 ON 别名1.字段名=别名2.字段名

这种方法能实现吗？谢谢老师！

huang1314wei · 发表于 2017-5-19 08:21

本帖最后由 huang1314wei 于 2017-5-19 08:56 编辑

天心学习发表于 2017-5-18 22:05
老师，当数据源和要查询的数据条数都达到很多时，循环For就会变得很慢，我之前在想，能否用下面类似的语 ...

什么样的需求用什么样的查询语句

yeminqiang · 发表于 2017-5-19 08:52

select a.城市,a.结算重量,b.单价 from [结算单价$a1:c] a left join [结算单价$i1:L] b on a.城市=b.城市 where a.结算重量 between b.起始重量 and b.结束重量

复制代码

yeminqiang · 发表于 2017-5-19 08:53

查询工作簿.zip (21.05 KB, 下载次数: 25)

使用了外部链接，并木有用VBA。

xuzong · 发表于 2017-5-19 16:17

回复下容易找到，数组与sql结合很强大

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

[求助] 如何用SQL跨表多条件查询

最新热点 /1