使用 Excel VBA 进行 SQL 查询

Question

我正在尝试使用 Excel VBA 运行 SQL 查询。我从别人那里得到了查询。

    vsql = "SELECT [MyTable].Cust_Name, Sum([MyTable].Amt_Paid) AS SumOfAmt_Paid, " & _
         " Count([MyTable].Unit_Num) AS CountOfUnit_Num  " & _
         "WHERE ((([MyTable].Grp) = ""ABC1"") And " & _
         "(([MyTable].Upload_Date) = [Enter Date:]) And " & _ 
         "(([MyTable].Sub_eEmpl) = [Enter Processor's ID:]))" & _ 
         "GROUP BY [MyTable].Cust_Name " & _
         "HAVING ((([MyTable].Cust_Name) Not Like ""Deposit Total*""))"

运行此查询时，我收到以下错误消息:“SELECT 语句包含拼写错误或丢失的保留字或参数名称，或者标点符号不正确。”
我不知道出了什么问题(另外我从来没有尝试在 VBA 中创建一个需要用户输入 2 个值(日期/ID)的 SQL 查询
任何帮助解决此问题将不胜感激。提前感谢您的任何帮助或建议.......

Answer 1

你最终应该得到看起来更像这样的东西:

为您的表命名

删除不需要的括号

将 HAVING 移至常规 WHERE 子句

将 FROM 放在正确的位置

SELECT 
    a.Cust_Name, Sum(a.Amt_Paid) AS SumOfAmt_Paid, Count(a.Unit_Num) AS CountOfUnit_Num 
FROM 
    [MyTable] a
WHERE 
    a.Grp = 'V1' and
    a.Upload_Date = #[somedate]# and
    a.Sub_eEmpl = 'someuser' and 
    a.Cust_Name not like 'Deposit Total*'
GROUP BY a.Cust_Name