ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

新浪微博登陆

只需一步, 快速开始

    高级搜索
高效办公必会的Office实战技巧 魔方网表,Excel终结者,永久免费 Excel服务器-会Excel,做管理系统 Excel Home精品图文教程库
Excel不给力? 何不试试FoxTable! 国内首部Excel函数公式学习大典 职场充电黑科技, Office微视频教程 免费下载Excel行业应用视频
买教程送最新正版Office 2016! Tableau-数据可视化工具 免费阅读《Excel函数其实很简单Ⅱ》 9门Excel免费公开课任你学
你的Excel 2010实战技巧学习锦囊 欲罢不能, 过目难忘的 Office 新界面 免费的Excel考勤计算系统
查看: 7|回复: 7

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

[复制链接]

TA的精华主题

TA的得分主题

发表于 2017-5-18 21:09 | 显示全部楼层 |阅读模式
如图,需要在A表中找到B表城市的重量对应的单价填写至C列,要求使用VBA编辑SQL语句,谢谢各位老师!
数据源.PNG 查询表.PNG



多条件查询.zip

15.86 KB, 下载次数: 6

TA的精华主题

TA的得分主题

发表于 2017-5-18 21:33 | 显示全部楼层
  1. Sub test()
  2.     Dim Conn As Object, Rst As Object
  3.     Dim strConn As String, strSQL As String
  4.     Dim i As Integer, PathStr As String
  5.     Set Conn = CreateObject("ADODB.Connection")
  6.     Set Rst = CreateObject("ADODB.Recordset")
  7.     PathStr = ThisWorkbook.Path
  8.     strConn = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & PathStr & "\数据源工作簿.xlsx" & ";Extended Properties=""Excel 12.0;HDR=YES"";"""
  9.     Conn.Open strConn
  10.     [C2:C65536].ClearContents
  11.     arr = Range("A1").CurrentRegion
  12.     For i = 2 To UBound(arr)
  13.         strSQL = "select 单价 from [数据源$] where 城市='" & arr(i, 1) & "' and 起始重量<=" & arr(i, 2) & " and 结束重量>=" & arr(i, 2)
  14.         Set Rst = Conn.Execute(strSQL)
  15.         If Not Rst.EOF Then
  16.             arr(i, 3) = Rst.Fields(0).Value
  17.         End If
  18.     Next
  19.     Range("A1").CurrentRegion = arr
  20.     If Rst.State = adstateopen Then Rst.Close
  21.     If Conn.State = adstateopen Then Conn.Close
  22.     Set Rst = Nothing
  23.     Set Conn = Nothing
  24. End Sub
复制代码

TA的精华主题

TA的得分主题

发表于 2017-5-18 21:35 | 显示全部楼层
多条件查询.rar (25.41 KB, 下载次数: 9)

TA的精华主题

TA的得分主题

 楼主| 发表于 2017-5-18 22:05 | 显示全部楼层

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

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

这种方法能实现吗?谢谢老师!

TA的精华主题

TA的得分主题

发表于 2017-5-19 08:21 | 显示全部楼层
本帖最后由 huang1314wei 于 2017-5-19 08:56 编辑
天心学习 发表于 2017-5-18 22:05
老师,当数据源和要查询的数据条数都达到很多时,循环For就会变得很慢,我之前在想,能否用下面类似的语 ...

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

TA的精华主题

TA的得分主题

发表于 2017-5-19 08:52 | 显示全部楼层
  1. select a.城市,a.结算重量,b.单价 from [结算单价$a1:c] a left join [结算单价$i1:L] b on a.城市=b.城市 where a.结算重量 between b.起始重量 and b.结束重量
复制代码

TA的精华主题

TA的得分主题

发表于 2017-5-19 08:53 | 显示全部楼层
查询工作簿.zip (21.05 KB, 下载次数: 5)

TA的精华主题

TA的得分主题

发表于 2017-5-19 16:17 来自手机 | 显示全部楼层
您需要登录后才可以回帖 登录 | 免费注册 新浪微博登陆

本版积分规则

关闭

最新热点上一条 /1 下一条

关注官方微信,每天坐享新鲜教程

手机版|Archiver|关于我们|联系我们|ExcelHome   

GMT+8, 2017-5-28 16:46 , Processed in 0.203154 second(s), 23 queries , Gzip On, Memcache On.

Powered by Discuz! X3.3

© 2001-2017 Wooffice Inc.

   

沪公网安备 31011702000001号 沪ICP备11019229号

本论坛言论纯属发表者个人意见,任何违反国家相关法律的言论,本站将协助国家相关部门追究发言者责任!     本站特聘法律顾问:徐怀玉律师 李志群律师

快速回复 返回顶部 返回列表