求助：SQL用变量替代日期作为查询字段

yangwq0916

想用变量代替表格中的日期数据，然后再作为查询字段，总是报错！
详细在附件，请大家帮帮忙！

yangwq0916

想要sheet3所显示的效果！

我是来讨说法的

日期变量要用井号包围起来
比如select * from 表 where 日期=#2019-03-015#

wj2368

yangwq0916 发表于 2019-3-14 18:50
想要sheet3所显示的效果！

x1 = "#" & CStr((Worksheets("sheet1").Range("c1").Value)) & "#": x2 = "#" & CStr(Format((Worksheets("sheet1").Range("d1").Value), "mm/dd")) & "#"

lsdongjh

修改三个地方：
1、

1.     x1 = CStr((Worksheets("sheet1").Range("c1").Text)): x2 = CStr((Worksheets("sheet1").Range("d1").Text))
   

复制代码

2、

1. strSQL = "select B.客户,A.品番,A.装箱数,A.装箱箱种,A.路径1,A.路径2,A.路径3,A.路径4 "
   
2. strSQL = strSQL & ",B.[" & x1 & "]*A.部品个数 AS [" & x1 & "]"
   
3. strSQL = strSQL & ",B.[" & x2 & "]*A.部品个数 AS [" & x2 & "]"
   
4. strSQL = strSQL & " from([sheet2$] A left join [sheet1$]B on A.品番=B.品番)"            
   
5. 
   

复制代码

3、

1. .Range("A2").CopyFromRecordset Rst

复制代码

yangwq0916

lsdongjh 发表于 2019-3-15 11:13
修改三个地方：
1、

多谢大神帮忙，这个问题卡了很久了！
已运行过了，完美通过！

yangwq0916

wj2368 发表于 2019-3-15 10:57
x1 = "#" & CStr((Worksheets("sheet1").Range("c1").Value)) & "#": x2 = "#" & CStr(Format((Workshee ...

多谢帮助，但是运行报错！

yangwq0916

wj2368 发表于 2019-3-15 10:57
x1 = "#" & CStr((Worksheets("sheet1").Range("c1").Value)) & "#": x2 = "#" & CStr(Format((Workshee ...

多谢帮助，但是运行报错！

yangwq0916

我是来讨说法的 发表于 2019-3-15 10:40
日期变量要用井号包围起来
比如select * from 表 where 日期=#2019-03-015#

谢谢帮助，5楼完美解决了！