VB.NET 2010 和 MySql - 为懒人处理 DB NULL

Question

我想用来自 MySql 数据库的数据初始化一个类。某些字段可以为空：

Dim dr As MySqlDataReader = ...
Dim item As New Item(dr.GetInt16(0), dr.GetString(1), dr.GetString(2))

假设数据库中最后两个字段可能为 NULL，因此对该字段调用 GetString 会导致异常。

我当然可以在获取每个字段之前编写代码来测试 NULL：

dim field1 as String 
if ( dr.IsDbNull(1) )
   field1 = Nothing                  ' or even ""
else
   field1 = dr.GetString(1)

但是如果您有很多字段，那么这就是一场“ifs”噩梦。

为此，我重写了 IIf VB 函数以使其更具类型化，从而避免强制转换：

Namespace Util

Public Shared Function IIf(Of T)(ByVal condition As Boolean, ByVal iftrue As T, ByVal iffalse As T) As T
        If condition Then Return iftrue Else Return iffalse
End Function

这样我就可以编写如下内容：

Dim item As New Item(
     dr.GetInt16(0), 
     Util.IIf(dr.IsDbNull(1), "", dr.GetString(1), 
     Util.IIf(dr.IsDbNull(2), "", dr.GetString(2))

类型化的 IIf 在其他情况下工作良好，但不幸的是它并不在这种情况下，因为它是一个普通函数而不是语言关键字，所以每个输入参数都会在调用期间进行评估，并且当该字段为 NULL 时会引发异常。

你能想出一个优雅的 if-less 解决方案吗？

Answer 1

首先，我建议您使用 ORM 映射器 - 现在很少有情况需要您进行手动“映射”。

如果这是其中一种情况，我建议您在访问数据读取器时使用字段名称而不是索引。

并回答您原来的问题：尝试扩展方法。对 C# 很抱歉，但 VB.NET 语法让我抓狂：

public static class DbDataReaderExtensions
{
    public static T GetField<T>(this DbDataReader dbDataReader, string fieldName, 
        T defaultValue)
    {
        if(dbDataReader.IsDBNull(fieldName))
            return defaultValue;
        return (T)dbDataReader[fieldName];
    }
}

Answer 2

谢谢。

我看过很多 ORM，但由于某种原因我不喜欢它们，因此我决定调用普通存储过程来获取数据。您能提供一些强大而简单的建议吗？

您使用字段名称是正确的，它更安全，即使有点慢。

我刚刚用该方法得出了相同的结论，但我仍然不喜欢类型转换：

Public Shared Function IfNull(Of T)(ByVal dr As MySqlDataReader, ByVal index As Integer, ByVal _default As T) As T
        If dr.IsDBNull(index) Then
            Return _default
        Else
            Return CType(dr.GetValue(index), T)
        End If

End Function

我想做一些更优雅的事情来从读者那里获取“真实”数据类型。