2

我有一个 SQL Server 存储过程（dbo.WiegenMain），如下所示：

ALTER PROCEDURE [dbo].[WiegenMain]
AS 
BEGIN

    insert into dbo.wiegen (Tag, Aufträge_anzahl, Wiegeraum) 
      select 
         dbo.datepart2(BUCHUNG_BIS) as Tag, 
         count(distinct AUFTRAGSNUMMER), Kurztext as Wiegeraum 
      from 
         dbo.tblZEITERFASSUNG 
      inner join 
         dbo.tblBELEGUNGSEINHEIT on  tblZEITERFASSUNG.ID_BELEGUNGSEINHEIT = tblBELEGUNGSEINHEIT.ID 
      where 
         ID_BUCHUNGSART = 9 
         and ID_BELEGUNGSEINHEIT IN
             (SELECT ID_BELEGUNGSEINHEIT 
              FROM dbo.tblPROZESS_BELEGUNGSEINHEIT  
              WHERE ID_PROZESS = 3)
         and ABSCHLUSS = 1 
         AND dbo.DatePart2(BUCHUNG_BIS) = dbo.DatePart2(getdate())
     group by 
         dbo.DatePart2(BUCHUNG_BIS), Kurztext 
END

我想使用 VBA 在 Microsoft Access 中调用此存储过程，我尝试了以下方法：

第一次尝试：

Function InsertWiegen()

Dim conn As ADODB.Connection
Dim rcs As ADODB.Recordset
Dim strSQL As String
Dim strDel As String

Set conn = CurrentProject.Connection
strDel = "DELETE dbo.wiegen WHERE Tag = '" & Date & "'"
strSQL = "INSERT INTO dbo.wiegen ([Tag], [Aufträge_anzahl], [Wiegeraum]) " & _
         "SELECT dbo.DatePart2([BUCHUNG_BIS]) as [Tag], count(distinct [AUFTRAGSNUMMER]) as [Aufträge_anzahl], Kurztext as [Wiegeraum] from dbo.tblZEITERFASSUNG inner join dbo.tblBELEGUNGSEINHEIT on tblZEITERFASSUNG.ID_BELEGUNGSEINHEIT=tblBELEGUNGSEINHEIT.ID where ID_BUCHUNGSART=9 and ID_BELEGUNGSEINHEIT in (SELECT ID_BELEGUNGSEINHEIT FROM dbo.tblPROZESS_BELEGUNGSEINHEIT WHERE ID_PROZESS = 3) and [ABSCHLUSS]=1 AND dbo.DatePart2([BUCHUNG_BIS])= dbo.DatePart2('" & Date & "') group by dbo.DatePart2([BUCHUNG_BIS]), [Kurztext]"

Set rcs = conn.Execute(strDel)

conn.Execute (strSQL)

Set rcs = Nothing

conn.Close

Exit Function

End Function

第二次尝试：

Function InsertWiegen()

Dim conn As ADODB.Connection
Dim rcs As ADODB.Recordset
Dim cmd As ADODB.Command
Dim strSQL As String
Dim strDel As String

Set conn = CurrentProject.Connection
'Set cmd.ActiveConnection = CurrentProject.Connection
Set cmd = New ADODB.Command
cmd.ActiveConnection = conn
cmd.CommandText = "WiegenMain"
cmd.CommandType = adCmdStoredProc

strDel = "DELETE dbo.wiegen WHERE Tag = '" & Date & "'"

Set rcs = conn.Execute(strDel)
cmd.Execute

Set rcs = Nothing
Set cmd = Nothing

conn.Close

Exit Function

End Function

dbo.datepart2() 函数：

ALTER function [dbo].[DatePart2] (@date datetime)
returns datetime
as 
begin

return(cast(CONVERT(varchar(12), @date, 101) AS datetime))
end

问题：这两种方法都给出错误 -

“将 char 数据类型转换为日期时间数据类型导致日期时间值超出范围。”

存储过程在 SQL Server Management Studio 中运行良好，但在 Microsoft Access 中引发错误。工作正常，它成功地从数据库表中strDel删除了记录，问题出在 strSQL 查询上。如果有人能找出导致问题的原因，我将不胜感激。

4

3 回答 3

0

您为日期插入到 SQL 语句中的文本将取决于您的国际设置。尝试将其转换为 'YYYY-MM-DD'，如下所示：-

strDel = "DELETE dbo.wiegen WHERE Tag = '" & format (Date, "YYYY-MM-DD") & "'"
于 2013-08-13T12:35:53.647 回答
0

用另一种方式解决了这个问题：

strSQL = "INSERT INTO dbo.wiegen ([Tag], [Aufträge_anzahl], [Wiegeraum]) 
SELECT left([BUCHUNG_BIS],11) as [Tag], count(distinct [AUFTRAGSNUMMER]) as [Aufträge_anzahl], Kurztext as [Wiegeraum] 
from dbo.tblZEITERFASSUNG 
inner join
dbo.tblBELEGUNGSEINHEIT on tblZEITERFASSUNG.ID_BELEGUNGSEINHEIT=tblBELEGUNGSEINHEIT.ID 
where ID_BUCHUNGSART=9 and ID_BELEGUNGSEINHEIT 
in 
(SELECT ID_BELEGUNGSEINHEIT FROM dbo.tblPROZESS_BELEGUNGSEINHEIT WHERE ID_PROZESS = 3)
and [ABSCHLUSS]=1 AND left([BUCHUNG_BIS],11)= left(GETDATE(), 11) 
group by left([BUCHUNG_BIS],11), [Kurztext]"

用 left() 函数替换了我的 datepart2 函数，现在它成功执行而没有任何错误。

于 2013-08-14T12:33:31.240 回答
0

SQL中的Tag是什么数据类型？

如果是数字那么

strDel = "删除 dbo.wiegen WHERE Tag = " & 格式（日期，"DD"）

于 2013-08-13T19:41:08.250 回答