b.产品名称 like 'a.%产品名称%' 这句要如何改写

无声地拥抱 · 发表于 2017-6-9 14:30

Sub test2()
Sheet1.Activate
Columns("q:z").Clear
Dim rs, connStr$, sql$
Dim dic, Arr, i%, J%
Set rs = CreateObject("ADODB.Recordset")
connStr = "Provider=Microsoft.ace.oledb.12.0;Extended properties='Excel 12.0;hdr=yes';data source=" & ThisWorkbook.FullName
   sql = "select b.合计重量T from[审批表$a2:p65536]a left join [销售收入$]b on (b.购货单位=a.客户名称 and b.产品名称 like 'a.%产品名称%')"

rs.Open sql, connStr, 1, 1

      Range("r3").CopyFromRecordset rs

End Sub

问， and b.产品名称 like 'a.%产品名称%'             这句要如何改写

无声地拥抱 · 发表于 2017-6-9 14:33

本帖最后由无声地拥抱于 2017-6-9 14:50 编辑

这是附件，求帮助

yeminqiang · 发表于 2017-6-9 14:46

那个去，还有密码，字符链接变量用 &，自己搞吧，基础知识了。

无声地拥抱 · 发表于 2017-6-9 14:51

yeminqiang 发表于 2017-6-9 14:46
那个去，还有密码，字符链接变量用 &，自己搞吧，基础知识了。

附件重新更新了，这是我的错，请原谅

无声地拥抱 · 发表于 2017-6-9 14:56

sql = "select b.合计重量T from[审批表$a2:p65536]a left join [销售收入$]b on (b.购货单位=a.客户名称 and b.产品名称 like " & "%a.产品名称" & ")"
这个是错的，不知要如何改

无声地拥抱 · 发表于 2017-6-9 16:05

有哪位可以帮忙下，是我的表达有误，请指教

mxf21cn · 发表于 2017-6-9 19:31

(b.产品名称 =a.产品名称 or b.产品名称 =a.产品名称2 or b.产品名称 =a.产品名称3 or b.产品名称 =a.产品名称4 or b.产品名称 =a.产品名称5 or b.产品名称 =a.产品名称6))" 不会用like ，就用了笨方法

无声地拥抱 · 发表于 2017-6-10 09:42

有其他的解决方法吗，求解

yeminqiang · 发表于 2017-6-10 12:08

select a.合计重量T from [销售收入$] a,[审批表$a2:b] b where a.购货单位=b.客户名称 and a.产品名称 like '%'& b.产品名称 & '%'

复制代码

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

[求助] b.产品名称 like 'a.%产品名称%' 这句要如何改写

最新热点 /1