Option Strict On 和 DBNull.Value

Question

我已经开始将我的应用程序转换为使用 Option Strict On。我一直在做CStr，Ctype等，进展顺利。

SQLCommand.Parameters.AddWithValue("@TERMINATE", If(IsNothing(txtEarningsTerminated.DateValue), DBNull.Value, txtEarningsTerminated.DateValue))

然后我打了这个。 txtEarningsTerminated.DateValue 是一个自定义屏蔽文本框。当它的值是 Nothing 我不想在数据库中存储任何东西。但是，它指出

Cannot infer a common type, and Option Strict On does not allow 'Object' to be assumed. 

当我将 DBNull.Value 更改为 "" 或什么都不更改时，错误就会消失。然而，作为 Nothing，它在运行时说明失败

The parameterized query '(@CONTROL int,@CLIENTCODE nvarchar(10),@NoBill int,@TERMINATE nv' expects the parameter '@TERMINATE', which was not supplied.

我想在数据库中放置一个 NULL。该值可以是日期，然后变为 NULL。

如何翻译这句话以免在 Option Strict On 下产生错误？

Answer 1

原因是因为运算符If(condition, executeAndReturnIfTrue, executeAndReturnIfFalse) 期望true 和false 表达式都返回相同的类型。
在您的情况下，如果为 true，则返回 DbNull 类型，如果结果为 false，则返回 String（或您未提及的其他类型）。

如果更明确地创建SqlParameter，那么您可以使用下一种方法：

Dim value As Object = Nothing
If txtEarningsTerminated.DateValue Is Nothing Then
    value = DbNull.Value
Else
    value = xtEarningsTerminated.DateValue
End If

Dim param As SqlParameter = New SqlParameter With
{
    .ParameterName = "@TERMINATE",
    .SqlDbType = SqlDbType.VarChar, 'Or use your correct type
    .Value = value
}

正如在 cmets 中提到的那样，使用 AddWithValue 将强制 ADO.NET 为您的值自动确定 sql 类型，这可能会导致不同的问题。例如，每次您使用不同的值运行相同的查询时，每次更改值时都会重新编译查询计划。

你可以为string创建扩展方法

Public Module ExtensionsModule
    Public Function DbNullIfNothing(this As String) As Object
        If this Is Nothing Then Return DBNull.Value
        Return this
    End Function
End Module

然后用它代替你的“内联 If 方法”

Dim value As String = Nothing
Dim param As SqlParameter = New SqlParameter With
{
    .ParameterName = "@TERMINATE",
    .SqlDbType = SqlDbType.VarChar,
    .Value = value.DbNullIfNothing()
}

Answer 2

所以答案很明显并且在错误中。我只需要将 DBNull.Value 封装在 Ctype 对象中

CType(DBNull.Value, Object)

然后代码就可以正常编译了。

Answer 3

这是一种方法（假设您在数据库中使用存储过程）：

1. 在您调用的存储过程中，将日期输入参数设置为 null，使其成为默认值为 null (@terminate DATETIME = NULL) 的可选字段。

这样，如果您在过程调用中不包含该参数，则过程不会失败。

1. 将日期字段的默认值设置为 DateTime.MinValue，使其始终具有一定的价值。然后您可以测试它是否等于 DateTime.MinValue 以外的日期。如果它是一个有效的日期值，则添加该行以将日期参数包含到过程调用中。如果等于 DateTime.MinValue，则不要在调用中添加参数。