从“DBNull”类型到“Boolean”类型的转换无效

Question

谁能告诉我为什么我在使用下面的代码时收到以下错误.. 从“DBNull”类型到“Boolean”类型的转换无效。

    Dim newOrderID As Guid = Guid.Parse(orderID)
    Dim DBConnect2 As New DBConn
    Using db As DbConnection = DBConnect2.Conn("DBConnectionString")
        Dim cmd As SqlCommand = DBConnect2.Command(db, "SelectWebLinkVisible")

        cmd.Parameters.Add(New SqlParameter("orderID", SqlDbType.UniqueIdentifier, ParameterDirection.Input)).Value = newOrderID

        db.Open()
        Dim DR As SqlDataReader = cmd.ExecuteReader(CommandBehavior.CloseConnection)
        Dim webLinkVisible As Boolean

        While DR.Read
            webLinkVisible = DR("webLinkVisible")
        End While

        DR.Close()
        DR = Nothing
        cmd.Dispose()
        cmd = Nothing
        db.Dispose()
        db.Close()
    End Using

我什至尝试用以下内容替换 WHILE 位，并认为页面会重定向，因为它尝试读取的数据肯定是 NULL，但它什么也没做..

        While DR.Read
            If DR("webLinkVisible") is nothing Then
                Response.Redirect("www.bbc.co.uk")
            End If
        End While

Answer 1

当字段包含 NULL 值时，OleDbDataReader 返回值 DBNull.Value。这与 Nothing 不同。
要处理这种情况，您可以使用IsDBNull 方法

While DR.Read
    If Not DR.IsDBNull(DR.GetOrdinal("webLinkVisible")) Then
        webLinkVisible = DR("webLinkVisible")
    End If
End While

需要对 DR.GetOrdinal 进行额外调用，因为 IsDBNull 无法使用字段名称，但它需要查询返回的字段的序号位置。