Option Strict On和可为空的整数的SQL存储过程输出参数

如何解决Option Strict On和可为空的整数的SQL存储过程输出参数

该论坛中有多个主题非常接近于为我的问题提供答案，但并不能完全满足我的需求。

我正在用VB.Net编写，通过TableAdapters和存储过程检索数据。存储过程可以以可为空的整数形式返回一个或多个输出参数。

这是我正在重新研究并整理的一些旧代码，包括添加Option Strict On，并且存储过程返回零，之前它以前返回了正确的值。我可以解决这个问题，但是我想了解在这种情况下“最佳实践”的含义。

这是应用Option Strict之前的代码，并在两个输出参数中返回正确的值：RetVal（返回代码，定义为Enum）和UnspecifiedCategoryID（定义为整数类型）。

Using oCategoriesTableAdapter As New YachtManagementDataSetTableAdapters.tvf_CategoriesTableAdapter

oCategoriesTableAdapter.sp_UpdateUnspecifiedCategory(
   RetVal:=SQLReturn,UnspecifiedCategoryID:=oCP.GviUnspecifiedCategorySubCategory,UnspecifiedCategoryAttributeValueID:=oCP.GvtSystemAttributeNames(gcsSystemAttributeNameCategory).UnspecifiedEntityID,UnspecifiedSubCategoryAttributeValueID:=oCP.GvtSystemAttributeNames(gcsSystemAttributeNameSubCategory).UnspecifiedEntityID,VesselID:=oCP.GvoActiveVessel.ID
   )

End Using

在启用Option Strict的情况下，如果我只是将两者都强制转换为整数，则使用CInt或CType来消除编译器错误（“ Option Strict On不允许从类型'Integer？'缩小为'Integer'”，），那么我将始终返回零：

Using oCategoriesTableAdapter As New YachtManagementDataSetTableAdapters.tvf_CategoriesTableAdapter

oCategoriesTableAdapter.sp_UpdateUnspecifiedCategory(
    RetVal:=CType(SQLReturn,Integer),UnspecifiedCategoryID:=CType(oCP.GviUnspecifiedCategorySubCategory,VesselID:=oCP.GvoActiveVessel.ID
    )

End Using

我可以使用以下代码解决问题：

Using oCategoriesTableAdapter As New YachtManagementDataSetTableAdapters.tvf_CategoriesTableAdapter

    oCategoriesTableAdapter.sp_UpdateUnspecifiedCategory(
        RetVal:=CType(SQLReturn,UnspecifiedCategoryID:=TestNullableInteger,VesselID:=oCP.GvoActiveVessel.ID
        )

End Using

If TestNullableInteger.HasValue Then

    oCP.GviUnspecifiedCategorySubCategory = TestNullableInteger.Value

Else

    oCP.GviUnspecifiedCategorySubCategory = 0

End If

另一种选择是将GviUnspecifiedCategorySubCategory自身的数据类型更改为可为空的整数，然后检查是否已返回值。

    Friend Property GviUnspecifiedCategorySubCategory As Integer?
        Get
            Return _lviUnspecifiedCategorySubCategory
        End Get
        Set(Value As Integer?)
            If Value.HasValue Then
                _lviUnspecifiedCategorySubCategory = Value
            Else
                _lviUnspecifiedCategorySubCategory = 0
            End If
        End Set
    End Property

但是，如果存储过程具有三个或四个Output参数，则使用这种方法，重新编码开始变得繁琐。 GetValueOrDefault方法显示了Promise，但是使用TableAdapter时，我看不到它将如何工作。

我总是有机会停止看到树木的树木。

任何建议将不胜感激。

解决方法

从评论到问题：

FULL错误消息“ Error BC32029 Option Strict On（不允许错误BC32029选项严格启用）是否不允许从'Integer'类型缩小”？在将“ ByRef”参数“ RetVal”的值复制回匹配参数时键入“ Integer”。”？ – TnTinMn

是@TnTinMn，这是正确的完整消息。 –尼尔·米勒

您太在意代码的用途（数据库交互），而忽略了代码语法。以下代码会产生相同的错误消息。

Sub DemoIssue()
  Dim SQLReturn As Integer
  SomeMethod(SQLReturn)
End Sub

Sub SomeMethod(ByRef RetVal As Integer?)
  RetVal = 1
End Sub

请注意，SQLReturn是一种Integer类型，它作为参数传递给采用对可为空的整数的引用的方法。

如果您要在错误窗口中单击 BC32029 来搜索有关该错误的帮助，则可能会找到Option Strict On disallows narrowing from type 'typename1' to type 'typename2' in copying the value of ByRef parameter 'parametername' back to the matching argument来说明问题：

过程调用将提供一个ByRef参数，其数据类型将扩展为该参数的声明类型，并且Option Strict为On。当将参数传递给过程时，允许扩大转换，但是当过程修改调用代码中变量参数的内容时，反向转换正在缩小。 Option Strict On不允许缩小转换。

更正此错误

为过程调用中的每个ByRef参数提供与声明的类型相同的数据类型，或关闭Option Strict。

因此，您需要做的就是将SQLReturn定义为Integer?

关于：

啊！ @TnTinMn-您是否建议将TableAdapter本身的Output参数的AllowDbNull属性更改为False？是的，我已经对其进行了测试，并且可以正常工作-我认为这是一种更好的方法。 –尼尔·米勒

这是另一种选择，但是您需要了解它起作用的原因是将sp_UpdateUnspecifiedCategory的TableAdapter代码重写为期望Integer的{​​{1}}类型，所以没有问题带有``SQLReturn SQLReturn Integer`

---

编辑以评论：

SQLReturn被定义为数据类型为Integer的Enum。我不能将SQLReturnEnum定义为Integer类型？如果您想在使用枚举时利用Intellisense，该如何处理？如果我使用CInt或CType强制执行SQLReturn，即使将Output参数属性设置为AllowDbNull设置为False，我也只会返回零。

我相信您仍在尝试对发送给该方法的参数执行类型转换。

defined as an

此问题是oCategoriesTableAdapter.sp_UpdateUnspecifiedCategory( RetVal:=CType(SQLReturn,Integer),... 是一个返回新值的函数。当参数通过引用（CType(SQLReturn,Integer)）传递时，可以在方法中修改此新值。这样的修改不会传播回ByRef。

假设SQLReturn的定义如下：

SQLReturnEnum

然后通过引用传递可为空的Integer并将其值检索为Public Enum SQLReturnEnum As Integer [Default] A B End Enum 的示例将是：

SQLReturnEnum