T-SQL存储过程的可选参数的无值传递查询

Question

我有一个Access表单来编辑SQL Server 2008 R2表中的记录。

表单中有3个字段可以更新，但可能3个字段中的一个或全部仍为空（空），因此更新是第一次设置值。

如果字段当时要运行存储过程为NULL ，并且我第一次添加值，则存储过程将因缺少参数而失败。

存储过程如下所示：

ALTER PROCEDURE [dbo].[spAlarmprotokollaendern] 
    @FibuNr nvarchar(10)=Null,
    @FibuNr_alt nvarchar(10),
    @Preis decimal(5,2),
    @Preis_alt decimal(5,2)=null,
    @Alarmnummer int,
    @Kennung nvarchar(10),
    @Verrechnungsintervall int=null,
    @Verrechnungsintervall_alt int=null,
    @UserID int=null,
    @Objektname nvarchar(50)=null,
    @Objektstrasse nvarchar(60)=null,
    @ObjektPLZ nvarchar(6)=null,
    @Objektort nvarchar(50)=null,
    @Kostenstelle int, 
    @Objektnummer int

    UPDATE tblAlarmprotokolle 
    SET Fibunr = coalesce(@Fibunr, @Fibunr_alt), 
        Preis = coalesce(@Preis, @Preis_alt), 
        Verrechnungsintervall = coalesce(@Verrechnungsintervall, @Verrechnungsintervall_alt)
    WHERE 
        (Alarmnummer >= @Alarmnummer AND Kennung = @Kennung) 
        OR (abgerechnet = 0 AND Kennung = @Kennung)

我使用合并检查该字段的任何新值并设置旧字段。 但是，如果旧字段为NULL，则它将失败。

我该如何进行这项工作？

谢谢迈克尔

Answer 1

T-SQL存储过程的可选参数值的占位符是DEFAULT关键字。 因此，如果您的访问代码正在生成以下传递查询调用，但失败

EXEC dbo.spAlarmprotokollaendern '11150', '', 56.7, , 32627471 ...

如果相应的Access值为null，则将其插入DEFAULT关键字：

EXEC dbo.spAlarmprotokollaendern '11150', '', 56.7, DEFAULT, 32627471 ...

请注意，您的EXEC语句必须包含裸关键字DEFAULT ，而不是字符串值'DEFAULT' ，例如

Option Compare Database
Option Explicit

Sub SO32779923()
    Dim myFibunr, myFibunr_alt, myPreis, myPreis_alt, _
            myAlarmnummer, myKennung, _
            myVerrechnungsintervall, myVerrechnungsintervall_alt, _
            myUserID, myObjektname, myObjektstrasse, myObjektPLZ, _
            myObjektort, myKostenstelle, myObjektnummer
    myFibunr = "11150"
    myFibunr_alt = ""
    myPreis = 56.7
    myPreis_alt = Null
    myAlarmnummer = 32627471
    myKennung = "update_me"
    myVerrechnungsintervall = 4
    myVerrechnungsintervall_alt = Null
    myUserID = 0
    myObjektname = "x"
    myObjektstrasse = "x"
    myObjektPLZ = "x"
    myObjektort = "x"
    myKostenstelle = 0
    myObjektnummer = 0

    Dim spCall As String
    spCall = "EXEC dbo.spAlarmprotokollaendern " & _
            prepForSp(myFibunr) & ", " & _
            prepForSp(myFibunr_alt) & ", " & _
            prepForSp(myPreis) & ", " & _
            prepForSp(myPreis_alt) & ", " & _
            prepForSp(myAlarmnummer) & ", " & _
            prepForSp(myKennung) & ", " & _
            prepForSp(myVerrechnungsintervall) & ", " & _
            prepForSp(myVerrechnungsintervall_alt) & ", " & _
            prepForSp(myUserID) & ", " & _
            prepForSp(myObjektname) & ", " & _
            prepForSp(myObjektstrasse) & ", " & _
            prepForSp(myObjektPLZ) & ", " & _
            prepForSp(myObjektort) & ", " & _
            prepForSp(myKostenstelle) & ", " & _
            prepForSp(myObjektnummer)

    Debug.Print spCall

    Dim cdb As DAO.Database
    Set cdb = CurrentDb
    Dim qdf As DAO.QueryDef
    Set qdf = cdb.CreateQueryDef("")
    qdf.Connect = "ODBC;DSN=myDb"
    qdf.sql = spCall
    qdf.ReturnsRecords = False
    qdf.Execute
    Set qdf = Nothing
End Sub

Private Function prepForSp(thing As Variant) As String
    If IsNull(thing) Then
        prepForSp = "DEFAULT"
    Else
        Select Case VarType(thing)
            Case vbString:
                prepForSp = "'" & Replace(thing, "'", "''") & "'"
            Case vbDate:
                prepForSp = "'" & Format(thing, "yyyy-mm-dd Hh:Nn:Ss") & "'"
            Case Else
                prepForSp = CStr(thing)
        End Select
    End If
End Function

显示Debug.Print语句

EXEC dbo.spAlarmprotokollaendern '11150', '', 56.7, DEFAULT, 32627471, 'update_me', 4, DEFAULT, 0, 'x', 'x', 'x', 'x', 0, 0