sql和vb excel运行

时间:2017-09-26 02:36:07

标签: sql excel-vba vba excel

我现在已经和我斗争了两天,并且终于把它扔进了。我在这个剧本中改变了零,而不是看一组不同的字段。但是where子句是相同的。

我得到的错误是',', - 我找不到 - 但调试不具体

代码是

strSQL = "select rtrim(rtrim(dbo.BPSPayee(appointments.userid))) as Doctor,appointments.APPOINTMENTDATE,SUM(CASE WHEN appointments.internalid =21535 THEN 1 ELSE 0 END) as Start, SUM(CASE WHEN appointments.internalid =21203 THEN 1 ELSE 0 END) as Finish " & _
"from appointments" & _
 "where appointments.APPOINTMENTDATE >= convert(datetime,'" & Sheets("settings page").Range("c16") & _
"',105) AND appointments.APPOINTMENTDATE <= convert(datetime,'" & Sheets("settings page").Range("e16") & "',105) " & _
 "group by appointments.APPOINTMENTDATE,rtrim(rtrim(dbo.BPSPayee(appointments.userid))) "

感谢任何建议

1 个答案:

答案 0 :(得分:0)

评论太长了。

如果要调试查询,则在中替换变量之后打印出查询。然后你会看到你正在运行什么以及什么是失败的。令人难以置信的是,你花20分钟来解决这个问题 - 更不用说2天了。

我可以从您的代码中看到查询的一部分如下:

from appointmentswhere appointments.APPOINTMENTDATE >= . . .

这没有用。