避免 NullReferenceException

Question

我对 .NET 编程相当陌生。我试图检查数据库表中是否有设置，如果没有，则创建一些默认设置。问题是，当没有设置时，我需要使用数据读取器进行两次调用，这一直给我带来问题。

我最初只使用一个数据读取器，但尝试使用两个数据读取器来解决我的问题，但没有成功。
然后我尝试关闭数据读取器，但出现错误，因为它返回了空引用。

如果我尝试关闭它，我会遇到一个问题，如果我不关闭它，下一个会给我一个错误，指出此连接上已经有一个打开的数据读取器需要关闭。谁能告诉我如何重构我的代码以使其正常工作（最好使用一个数据读取器）？

我还尝试将 reader.close() 放入另一组 try catch 中，虽然这使我能够捕获错误，但它仍然不会关闭 datareader，所以我不知所措。

Private Sub Get_Initial_Settings()
    Dim reader1 As MySqlDataReader = Nothing, reader2 As MySqlDataReader = Nothing
    Dim cmd As New MySqlCommand("SELECT depot, size, roc_family, wil_family, ast_family, met_family, ric_family, view FROM vb_dashboard.user_preferences WHERE " & GetUserName() & "", conn)
    Dim hasSettings As Boolean

    'Get Personal Settings or initiate them if necessary
    Try
        reader1 = cmd.ExecuteReader
        hasSettings = True
        MessageBox.Show("Your user settings show you have a selected depot of " & reader1(0).ToString)
    Catch ex As Exception
        'No settings exist, set some up
        MessageBox.Show("You have no settings for this program yet")
        hasSettings = False
    Finally
        reader1.Close()
    End Try

    'User has no preferences, Create some
    'First, create a list of depots to select from and add it to a combobox
    If (hasSettings = False) Then
        Try

            cmd.CommandText = "SELECT depot FROM vb_dashboard.depots ORDER BY depot"
            reader2 = cmd.ExecuteReader
            While (reader2.Read)
                dlgSelectDepot.cbDepotSelect.Items.Add(reader2.GetString(0))
            End While
            'Now show the dialog box to initiate a depot setting
            Me.Hide()
            dlgSelectDepot.Show()
            Me.Show()
            If (dlgSelectDepot.DialogResult = Windows.Forms.DialogResult.Cancel) Then
                Me.Close()
            End If
            cmd.CommandText = "INSERT INTO vb_database.user_preferences SET user='" & GetUserName.ToUpper & "', depot='Rochester'"
            cmd.ExecuteNonQuery()
        Catch ex As Exception
            MessageBox.Show("An error has occurred: " & ex.Message)
        Finally
            reader2.Close()
        End Try
    End If

End Sub

Answer 1

您正在重复使用您的 cmd 对象。实际上，您将每个读取器设置为与命令对象相同的连接。您应该创建 2 个不同的命令对象，并赋予它们自己的数据库连接。

另一种选择是从第一个数据读取器获取所需的信息并将其存储在数据表中（使用 MySqlDataAdapter）。如果该信息不可用，请关闭该连接，并使用新的命令对象创建一个新连接。这可能就是我要走的方向。

编辑

您确实需要使用New SqlConnection()并让操作系统处理它。

Answer 2

问题是在你的第二个 try 块中，你正在执行一个仍然有打开的阅读器的命令。我使用使用块来帮助保持直线，例如：

Using cn As new DbConnection(connectionString)
 cn.Open()
 Using cmd As DbCommand = cn.CreateCommand()
  'first command
  cmd.CommandText = "SELECT depot FROM vb_dashboard.depots ORDER BY depot" 
  Using dr As DbDataReader = cmd.ExecuteReader()
   While dr.Read()
    dlgSelectDepot.cbDepotSelect.Items.Add(reader2.GetString(0))
   End While
   dr.Close()
  End Using
  '
  'next command
  cmd.CommandText = "INSERT INTO vb_database.user_preferences SET user='" & GetUserName.ToUpper & "', depot='Rochester'"
  cmd.ExecuteNonQuery()
 End Using
 cn.Close()
End Using

Answer 3

我认为问题在于您有两个潜在的问题原因，并且使用您正在使用的代码一次只能解决一个问题。以下是两种可能性：

1. 尚不存在用户设置。
2. 您正在为多个查询重复使用相同的命令和连接对象。

使用您当前拥有的代码，我认为您已经解决了问题#2，但重新引入了问题 1。如果尚不存在用户设置，则永远不会创建数据读取器，因为执行命令时失败。因此，当您尝试关闭数据读取器时，您会收到错误。当代码没有关闭数据读取器时，您解决了问题#1，但没有解决问题#2。我认为有一些更好的方法可以解决这个问题：

1. 找到一种更好的方法来检测用户设置是否存在。例如，SELECT COUNT(*) FROM sys.objects where name = 'user_preferences'
2. 在尝试关闭它之前检查“If reader1 IsNot Nothing”。