运行时错误：为datepart指定的参数1无效 - SQL

Question

我在Excel VBA中运行一些代码，它查询数据库，然后将数据带入Excel进行格式化。

它工作得很好，上次我跑了（老栗），但今天我来运行月度报告，它是扔了一个日期部分误差

Invalid parameter 1 specified for datepart

下面是代码：

StrQuery = "SELECT dbo_MANUFACTURER.COMPANY_NAME AS BRAND, dbo_COMPANY.COMPANY_NAME, dbo_AGENTS.SHORT_DESC AS AGENT, dbo_STOCK_SUB_TYPE.SHORT_DESC AS [STOCK TYPE], Replace(Replace(dbo_COMPANY.CURRENCY_ID,'110','EURO'),'1','GBP') AS [CURRENCY]," & _ 
    "Sum(([Unit_Net]*[QTY_SOLD])-[DELIVERY_TOTAL]) AS [NET TOTAL], dbo_SORDER.DATE_CREATED, dbo_SORDER.SORDER_CODE FROM (((((dbo_COMPANY INNER JOIN dbo_SORDER ON dbo_COMPANY.COMPANY_ID = dbo_SORDER.COMPANY_ID) INNER JOIN " & _ 
    "dbo_SORDER_ITEM ON dbo_SORDER.SORDER_ID = dbo_SORDER_ITEM.SORDER_ID) INNER JOIN dbo_STOCK ON dbo_SORDER_ITEM.STOCK_ID = dbo_STOCK.STOCK_ID) INNER JOIN dbo_STOCK_SUB_TYPE ON dbo_STOCK.SSTYPE_ID = dbo_STOCK_SUB_TYPE.SSTYPE_ID) INNER JOIN " & _ 
    "dbo_AGENTS ON dbo_COMPANY.AGENT_ID = dbo_AGENTS.AGENT_ID) INNER JOIN dbo_MANUFACTURER ON dbo_STOCK.MANUF_ID = dbo_MANUFACTURER.MANUF_ID GROUP BY dbo_MANUFACTURER.COMPANY_NAME, dbo_COMPANY.COMPANY_NAME, dbo_AGENTS.SHORT_DESC, " & _ 
    "dbo_STOCK_SUB_TYPE.SHORT_DESC, dbo_SORDER.DATE_CREATED, dbo_SORDER.SORDER_CODE, dbo_COMPANY.CURRENCY_ID, dbo_STOCK.MANUF_ID HAVING (((dbo_STOCK_SUB_TYPE.SHORT_DESC) <> " & "'EMBROIDERY'" & ") And ((Year([DATE_CREATED]) * 12 + " & _ 
    "DatePart(" & "'m'" & ", [DATE_CREATED])) = Year(Date) * 12 + DatePart(" & "'m'" & ", Date) - 1)) ORDER BY dbo_COMPANY.COMPANY_NAME, dbo_SORDER.DATE_CREATED;" 

道歉的长文本的大量文本。
如上所述，代码抛出错误：为日期部分指定的无效参数1。我试过将日期转换为论坛帖子中提到的某个日期，但那还没有成功。

如果有人有任何想法，这将是惊人的！

编辑：

卸下围绕米在日期部分报价在Access中不起作用。它会弹出要求输入值米 SQL查询我在访问精确的作品，我在下面添加它：

SELECT 

dbo_MANUFACTURER.COMPANY_NAME AS BRAND, dbo_COMPANY.COMPANY_NAME, 
dbo_AGENTS.SHORT_DESC AS AGENT, dbo_STOCK_SUB_TYPE.SHORT_DESC AS [STOCK TYPE], Replace(Replace(dbo_COMPANY.CURRENCY_ID,'110','EURO'),'1','GBP') AS [CURRENCY], Sum(([Unit_Net]*[QTY_SOLD])-[DELIVERY_TOTAL]) AS [NET TOTAL], dbo_SORDER.DATE_CREATED, dbo_SORDER.SORDER_CODE 

FROM 

(((((dbo_COMPANY INNER JOIN dbo_SORDER ON dbo_COMPANY.COMPANY_ID = dbo_SORDER.COMPANY_ID) INNER JOIN dbo_SORDER_ITEM ON dbo_SORDER.SORDER_ID = dbo_SORDER_ITEM.SORDER_ID) INNER JOIN dbo_STOCK ON dbo_SORDER_ITEM.STOCK_ID = dbo_STOCK.STOCK_ID) INNER JOIN dbo_STOCK_SUB_TYPE ON dbo_STOCK.SSTYPE_ID = dbo_STOCK_SUB_TYPE.SSTYPE_ID) INNER JOIN dbo_AGENTS ON dbo_COMPANY.AGENT_ID = dbo_AGENTS.AGENT_ID) INNER JOIN dbo_MANUFACTURER ON dbo_STOCK.MANUF_ID = dbo_MANUFACTURER.MANUF_ID 

GROUP BY 

dbo_MANUFACTURER.COMPANY_NAME, dbo_COMPANY.COMPANY_NAME, dbo_AGENTS.SHORT_DESC, dbo_STOCK_SUB_TYPE.SHORT_DESC, dbo_SORDER.DATE_CREATED, dbo_SORDER.SORDER_CODE, dbo_COMPANY.CURRENCY_ID, dbo_STOCK.MANUF_ID 

HAVING 

(((dbo_STOCK_SUB_TYPE.SHORT_DESC)<>"EMBROIDERY") AND ((Year([DATE_CREATED])*12+DatePart(m,[DATE_CREATED]))=Year(Date())*12+DatePart(m,Date())-1)) 

ORDER BY dbo_COMPANY.COMPANY_NAME, dbo_SORDER.DATE_CREATED; 

Answer 1

从根本上说，你是使用相同的命名功能DatePart根据不同的参数混乱的SQL方言。根据Excel应用程序的体系结构层，您需要根据所使用的SQL方言调整DatePart函数：ACE/Jet SQL或SQL Server TSQL。

• Excel中 - >连接 - > SQL服务器（链接表）

  如果Excel连接到Access数据库和这个Access数据库使用 SQL Server链接表（Access对象），那么您必须遵守ACE/Jet SQL 方言，该方言要求第一个参数为 DatePart 为包含在双倍或单个的字符串文字 “ ES作为@Arulkumar显示了答案：

  DatePart('m', [DATE_CREATED]) 
  

• 的Excel - > SQL服务器（ADO）

  如果Excel通过在VBA ADO连接直接连接到SQL Server，那么你一定要坚持SQL Server TSQL方言，它要求DatePart的第一个参数是一个命名值，而不是字符串文字，因为@GarethD 在评论中描述：

  DatePart(MONTH, [DATE_CREATED]) 
  DatePart(MM, [DATE_CREATED]) 
  DatePart(M, [DATE_CREATED]) 
  

• Excel中 - >连接 - > SQL服务器（直通）

  如果Excel连接到Access数据库调用一个Access传递查询（不链接表），这传递查询（脚本化并保存在Access数据库中）通过ODBC/OLEDB连接到SQL Server，然后您必须遵守SQL Server TSQL方言，如上所述。

从你的表的命名，我相信你所连接的SQL Server的对象预选赛保持架构加上表加场用句点分隔与MSSQL链接表访问：

dbo.COMPANY.COMPANY_NAME 

当挂访问时，表名中的多个句点是不允许的，所以默认情况下用下划线替换：

dbo_COMPANY.COMPANY_NAME 

无效的对象错误是指Access lin ked表在Access数据库中不存在或连接的SQL Server数据库中不存在该表。

Answer 2

简单地用下面的查询尝试

SELECT DATEPART('m', GETDATE()) 

返回

Invalid parameter 1 specified for datepart.

MSAccess DatePart，需要双引号设置。所以用双引号而不是单引号来解决你的问题。

---

所以你的工作的查询将是：

SELECT dbo_MANUFACTURER.COMPANY_NAME AS BRAND, 
     dbo_COMPANY.COMPANY_NAME, 
     dbo_AGENTS.SHORT_DESC AS AGENT, 
     dbo_STOCK_SUB_TYPE.SHORT_DESC AS [STOCK TYPE], 
     Replace(Replace(dbo_COMPANY.CURRENCY_ID,'110','EURO'),'1','GBP') AS [CURRENCY], 
     Sum(([Unit_Net]*[QTY_SOLD])-[DELIVERY_TOTAL]) AS [NET TOTAL], 
     dbo_SORDER.DATE_CREATED, 
     dbo_SORDER.SORDER_CODE 

FROM (((((
dbo_COMPANY 
INNER JOIN dbo_SORDER ON dbo_COMPANY.COMPANY_ID = dbo_SORDER.COMPANY_ID) 
INNER JOIN dbo_SORDER_ITEM ON dbo_SORDER.SORDER_ID = dbo_SORDER_ITEM.SORDER_ID) 
INNER JOIN dbo_STOCK ON dbo_SORDER_ITEM.STOCK_ID = dbo_STOCK.STOCK_ID) 
INNER JOIN dbo_STOCK_SUB_TYPE ON dbo_STOCK.SSTYPE_ID = dbo_STOCK_SUB_TYPE.SSTYPE_ID) 
INNER JOIN dbo_AGENTS ON dbo_COMPANY.AGENT_ID = dbo_AGENTS.AGENT_ID) 
INNER JOIN dbo_MANUFACTURER ON dbo_STOCK.MANUF_ID = dbo_MANUFACTURER.MANUF_ID 

GROUP BY dbo_MANUFACTURER.COMPANY_NAME, 
     dbo_COMPANY.COMPANY_NAME, 
     dbo_AGENTS.SHORT_DESC, 
     dbo_STOCK_SUB_TYPE.SHORT_DESC, 
     dbo_SORDER.DATE_CREATED, 
     dbo_SORDER.SORDER_CODE, 
     dbo_COMPANY.CURRENCY_ID, 
     dbo_STOCK.MANUF_ID 

HAVING (((dbo_STOCK_SUB_TYPE.SHORT_DESC) <> 'EMBROIDERY') 
     And ((Year([DATE_CREATED]) * 12 
       + DatePart("m", [DATE_CREATED])) = Year(Date) * 12 
       + DatePart("m", Date) - 1)) 

ORDER BY dbo_COMPANY.COMPANY_NAME, 
     dbo_SORDER.DATE_CREATED;