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

autumnalRain

想要实现的结果是：where子句条件使用【打印清单】中的凭证号和项目名称两个变量，并将其记录写到【查询结果】表中.因为是循环，凭证号和项目名称是两个变量，该如何书写呢？
即下面代码行的 ' And "项目名称= '" & SProject & "'"如何写进SQL语句中？



Sub 查询结果()
   
Dim Rmax As Integer, i As Integer
Dim SVoucher, SProject
Rmax = Sheets("打印清单").Range("a1").CurrentRegion.Rows.Count ' MsgBox Rmax
   
For i = 2 To Rmax
    SVoucher = Sheets("打印清单").Cells(i, 1)
    SProject = Sheets("打印清单").Cells(i, 2)
    Sheets("查询结果").Cells.Clear
    Dim cnn As Object, SQL
    Set cnn = CreateObject("ADODB.Connection")
    cnn.Open "provider=microsoft.ACE.OLEDB.12.0;extended properties='Excel 12.0;hdr=yes';data source=" & ThisWorkbook.FullName
    SQL = "select 凭证号,名称,规格,单位,数量,单价,金额,项目名称 from [项目名称$] where 凭证号='" & SVoucher & "'" ' And "项目名称= '" & SProject & "'"
    Sheets("查询结果").[a2].CopyFromRecordset cnn.Execute(SQL)
    cnn.Close
    Set cnn = Nothing
      
   Next i
   
   
End Sub

zzhilling

SQL = "select 凭证号,名称,规格,单位,数量,单价,金额,项目名称 from [项目名称$] where [凭证号]='" & SVoucher & "' And [项目名称]= '" & SProject & "'"

如果不行可能你列名称有问题
比如表格里面列名称有空格等等

kuaile5935

Sql = "select 凭证号,名称,规格,单位,数量,单价,金额,项目名称 from [项目名称$] where [凭证号]=""" & SVoucher & """ And [项目名称]= """ & SProject & """"

autumnalRain

zzhilling 发表于 2015-7-23 12:48
SQL = "select 凭证号,名称,规格,单位,数量,单价,金额,项目名称 from [项目名称$] where [凭证号]='" & SVo ...

可以运行，请教下[]是必须的吗？如果不要AND后的条件，我测试过不要[]是可以的

autumnalRain

kuaile5935 发表于 2015-7-23 13:09
Sql = "select 凭证号,名称,规格,单位,数量,单价,金额,项目名称 from [项目名称$] where [凭证号]=""" & SV ...

可以运行，[]书写规范帮助在哪里可以找到？

kuaile5935

autumnalRain 发表于 2015-7-23 14:48
可以运行，[]书写规范帮助在哪里可以找到？

我也是新手
我写的时候 字段都是带着[]的  就不会出错，有时也看别人省略[]的  
具体我也不清楚啊，不偷懒，多写点不会错的。
你要是找到了规范帮助的地方也告诉我声。

zzhilling

sql 里面，如果使用关键字作列名，查询的时候必须带[]
你的语句问题我不知道，但[]是告诉系统，里面是列名或表格名

autumnalRain

zzhilling 发表于 2015-7-23 12:48
SQL = "select 凭证号,名称,规格,单位,数量,单价,金额,项目名称 from [项目名称$] where [凭证号]='" & SVo ...

SQL语句中注意：的文本变量（和文本常量）要用单引号，数字类型的不能加单引号：
Str = Str & " '" & Str经销商 & "'" & " as 经销商,"
where 名称<>'合计' and abs(数量)>0"

补充内容 (2016-1-30 13:01):
sql = "Select * from  table1  Where  日期 between #" & ld_1 & "# and #" & ld _2 & "# "

vickdani

好的，想要呢，给一个