Question

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

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

如果字段在运行存储过程时为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)

我使用coalesce来检查字段的任何新值并设置旧字段。但是如果旧字段为NULL则会失败。

我该如何做到这一点？

由于迈克尔

Answer 1

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

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

对于T-SQL存储过程的可选参数没有值的传递查询

1 个答案: