请高手指点VBA+SQL中where子句使用两个条件变量如何书写

autumnalRain

lsm_fa 发表于 2015-12-18 10:56
我的已经测出试成功，可以动态变动查询内容，如果有想要的话，回个话

注意上面引号的用法就可以了

autumnalRain

***********************************************************************************************************************
SQL语句中注意：文本变量（和文本常量）要用单引号，数字类型的不能加单引号，日期类型的需要两边加#：
***********************************************************************************************************************

SQL = "select 凭证号,名称,规格,单位,数量,单价,金额,项目名称 from [项目名称$] where [凭证号]='" & SVoucher & "' And [项目名称]= '" & SProject & "'"
Sql = "select 凭证号,名称,规格,单位,数量,单价,金额,项目名称 from [项目名称$] where [凭证号]=""" & SVoucher & """ And [项目名称]= """ & SProject & """"
sql = "Select * from  table1  Where  日期 between #" & ld_1 & "# and #" & ld _2 & "# "
-------------------------------------------------------------------------------------------------------------------------------------------
第二句中""相当于一个单引号作用

wyc668

有些基本语法要弄明白

autumnalRain

扩展例子：注意下面例子中字符型变量和日期型变量的表示方法
"Select f1,f3,f6,f7 from [收支记录$a4:g]  where f2='" & [f1] & "' and f1 between #" & [b2] & "# and #" & [d2] & "#"
[f1],[b2],[d2]为活动工作表的作为条件的单元格；注意此处如何表示的：

[f1]是字符串型变量, f2='" & [f1] & "'

[b2],[d2]为日期变量， f1 between #" & [b2] & "# and #" & [d2] & "#"

autumnalRain

扩展例子：
要求将查询结果按照每35行分一次列，写到[个人捐款汇总$]中，查询条件为活动工作表的科目[F1]日期介于[B2]和[D2]间
赵刚老师的代码解决了一直以来的疑惑，在此转到本贴，当做学习笔记！

1. Sub ADO法()
   
2.     Dim cnn As Object, rs As Object, SQL$, i&
   
3.     Set cnn = CreateObject("ADODB.Connection")
   
4.     cnn.Open "Provider = Microsoft.Jet.Oledb.4.0;Extended Properties ='Excel 8.0;hdr=no';Data Source =" & ThisWorkbook.FullName
   
5.     SQL = "Select f1,f3,f6,f7 from [收支记录$a4:g]  where f2='" & [f1] & "' and f1 between #" & [b2] & "# and #" & [d2] & "#"
   
6.     Set rs = cnn.Execute(SQL)
   
7.     [a1].CurrentRegion.Offset(3).ClearContents
   
8.     While Not rs.EOF
   
9.          Cells(4, i + 1).CopyFromRecordset rs, 35
   
10.          i = i + 4
    
11.     Wend
    
12.     rs.Close
    
13.     cnn.Close
    
14.     Set rs = Nothing
    
15.     Set cnn = Nothing
    
16. End Sub

复制代码

autumnalRain

"Select f1,f3,f6,f7 from [收支记录$a4:g]  where f2='" & [f1] & "' and f1 between #" & [b2] & "# and #" & [d2] & "#"
[f1],[b2],[d2]为活动工作表的作为条件的单元格；注意此处如何表示的：

[f1]是字符串型变量, f2='" & [f1] & "'

[b2],[d2]为日期变量， f1 between #" & [b2] & "# and #" & [d2] & "#"

蓝风贝6329

autumnalRain 发表于 2016-1-30 13:40
**************************************************************************************************** ...

select A.客户,A.合同编号,A.客品号,A.客色号,B.入库品号,B.入库花型色号,B.入库匹号,B.幅宽,B.毛长,B.净长,B.吊辫,B.净重,B.毛重 from [录合同计划$] A right join [入库$] B on A.匹号 = B.入库匹号 where 入库匹号 = '700378' or 入库匹号 ='700007'
如果我where后面入库匹号等于n多个不确定的数，各个数之间是or的关系，该怎么设置呢

魂断蓝桥

蓝风贝6329 发表于 2016-7-13 08:01
select A.客户,A.合同编号,A.客品号,A.客色号,B.入库品号,B.入库花型色号,B.入库匹号,B.幅宽,B.毛长,B.净 ...

select A.客户,A.合同编号,A.客品号,A.客色号,B.入库品号,B.入库花型色号,B.入库匹号,B.幅宽,B.毛长,B.净长,B.吊辫,B.净重,B.毛重 from [录合同计划$] A right join [入库$] B on A.匹号 = B.入库匹号 where 入库匹号 in('700378' ,'700007')

另：最好用左连接。

qinyu0745

学习了，留个记号

591919691

学习中 不太懂