动态查询SQL语句

alzeng · 发表于 2010-6-23 09:15

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [B1:C1]) Is Nothing Then Exit Sub
Dim Cn As Object, Sqlstr$
Set Cn = CreateObject("Adodb.Connection")
Cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Extended Properties=Excel 8.0;Data Source=" & ThisWorkbook.FullName
Sqlstr = "Select 合同号,省份,类型,屏数,发货日期,Year(发货日期),Month(发货日期) " _
& "From [发货清单$] " _
& "Where 省份&类型 Like '%" & [B1] & "%" & [C1] & "%'"
[7:65536].Delete
[A7].CopyFromRecordset Cn.Execute(Sqlstr)
Cn.Close: Set Cn = Nothing
End Sub

复制代码

qw7566 · 发表于 2010-6-23 13:04

感谢你，向您致敬！

qw7566 · 发表于 2010-6-24 10:06

'%" & [B1] & "%" & [C1] & "%'"
大师这个语句该做何理解，尤其是标点为何这样用，毫无规律呀

zez · 发表于 2010-6-25 07:51

%是通配符。

alzeng · 发表于 2010-6-25 07:58

原帖由 qw7566 于 2010-6-24 10:06 发表
'%" & & "%" & [C1] & "%'"
大师这个语句该做何理解，尤其是标点为何这样用，毫无规律呀

因为你的B1中有“湖”这样的选项，C1中有“%”这样的选项，这两种类型的数据让程序只能使用模糊匹配的方式来进行查询。
%在这里匹配不定长的字串，如“湖%”可同时匹配“湖北”、“湖南”等省份，具体你自己慢慢理解一下就是了，关键是实践……

qw7566 · 发表于 2010-6-25 09:10

大师一定品格高尚，令我肃然起敬!

zhc19620430 · 发表于 2010-6-25 09:29

确实不错，学习了。

qw7566 · 发表于 2010-6-25 11:09

其实还是有点不能理解，尤其是单引号和双引号为什么那么用，前后感觉都没对起来啊

alzeng · 发表于 2010-6-25 11:51

你可以这样理解：在双引号语句里的引用非数值则需要用单引号，而且引号要配对使用。

[ 本帖最后由 alzeng 于 2010-6-25 11:59 编辑 ]

qw7566 · 发表于 2010-6-25 12:04

大师就是大师，只需轻轻一点，顿时打通筋骨。。。。。。。。

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

回复 12楼 alzeng 的帖子