SqlDataReader - 多个连接

Question

我在 VB.NET 中编写了一个控制台应用程序来执行一些数据库工作，并且出现了一个奇怪的运行时错误...

这是主要代码：

Sub Main(ByVal args() As String)
        Try
            user = args(0)
            batchID = args(1)

            GetBatchRevision()
            'batchRev = 1

            Dim getTestScripts As SqlCommand = New SqlCommand("GetTestScriptsInTestBatch", cs)
            getTestScripts.CommandType = CommandType.StoredProcedure

            Dim batchIDParam As SqlParameter = getTestScripts.Parameters.Add("@batchID", SqlDbType.Int, 4)
            Dim batchRevParam As SqlParameter = getTestScripts.Parameters.Add("@batchRev", SqlDbType.Int, 4)

            'batchIDParam.Value = 1
            'batchRevParam.Value = 1
            batchIDParam.Value = batchID
            batchRevParam.Value = batchRev

            Console.WriteLine(batchID & " " & batchRev)
            Console.WriteLine(cs.State)
            Console.ReadLine()

            Using cs
                cs.Open()
                Dim reader As SqlDataReader = getTestScripts.ExecuteReader(CommandBehavior.CloseConnection)

                While reader.Read()
                    Console.WriteLine("Executing Test Script " & reader("ScriptID").ToString() & " Revision " & reader("ScriptRev").ToString)
                End While

                Console.ReadLine()
            End Using

        Catch ex As Exception
        End Try
    End Sub

GetBatchRevision：

Private Sub GetBatchRevision()
    Using cs
        Dim GetNewestRev As New SqlCommand("SELECT Max(BatchRev) FROM TestBatch WHERE BatchID=" & batchID, cs)
        cs.Open()
        Dim reader As SqlDataReader = GetNewestRev.ExecuteReader(CommandBehavior.CloseConnection)
        reader.Read()

        If Not IsDBNull(reader(0)) Then
            batchRev = reader(0).ToString()
        End If
    End Using

End Sub

batchRev和batchID都是模块内的全局变量。

行为上：

• 应用程序打印出“1”（用户输入）、“1”（数据库结果）、“0”（关闭连接的枚举）
• 当我按 Enter 跳过第一个 时， Console.ReadLine()，应用程序直接关闭。

如果我注释掉 GetBatchRevision 并直接设置 batchRev = 1，我会得到上述结果以及“Executing Test Script 1 Revision 52”、“Executing Test Script 2 Revision 66” " 这是存储过程 GetTestScriptsInTestBatch 的预期结果。

全局变量声明如下：

Private batchID As String

Private batchRev As String

你知道为什么 GetBatchRevision() 会导致应用程序崩溃吗？就其本身而言（删除代码的存储过程部分），它执行得很好。我最初的猜测是存在一个挂起的连接，但结束“using”块应该会关闭 SQL 连接以及与该连接关联的任何打开的读取器（如前所述，cs.State 返回 0）。

Answer 1

您的问题在于以下几行：

 reader.Read()

 If Not IsDBNull(reader(0)) Then

reader.Read() 可能返回 false；但您尝试访问 reader(0)。繁荣！

你应该将其更改为：

IF reader.Read() AndAlso Not IsDBNull(reader(0)) Then
    '' etc
End If

Answer 2

看起来cs也是一个全局变量。这是一个坏主意。当您每次使用新连接时，.Net 数据访问效果会更好。您可能在这个应用程序中表现良好，但您正在养成一些坏习惯。相反，将连接字符串加载为全局变量，并在创建连接时使用它。

接下来，GetBatchRevision() 没有理由与全局变量对话。让它接受一个参数并返回它的结果。当然，我不能忽视 sql 注入问题，因为您将 batchid 连接到字符串的末尾。以下是修复这些错误后该函数的新版本：

Private Function GetBatchRevision(ByVal BatchID As String) As String
    Using cn As New SqlConnection(cs), _
          GetNewestRev As New SqlCommand("SELECT Max(BatchRev) FROM TestBatch WHERE BatchID= @BatchID", cn)

        GetNewestRev.Parameters.Add("@Batch", SqlDbType.Int).Value = Convert.ToInt32(BatchId)

        cn.Open()
        Return GetNewestRev.ExecuteScalar().ToString() 
    End Using

End Function

如果您在内部将 BatchRev 和 BatchID 保留为 int 而不是字符串，效果会更好。