MySQL 连接池计数

Question

我的 VB.NET 应用程序开始收到错误:

Timeout Expired. The timeout elapsed prior to obtaining a connection from the pool. This may have occurred because all pooled connections were in use and max pool size was reached.

我确实有一些没有正确处理连接的方法。这些问题已使用 Try 和 Finally 修复。

但是，今天早上我在尝试打开一个简单的报告时再次收到错误。我打开了 MySQL Workbench 来监视客户端连接。当时我连接了 4 个线程。

MySQL DB 会终止休眠时间超过 15 秒的连接。

我不知道如何达到最大池大小，如果这确实是错误所指的。

应用程序是否读取最大池大小设置并保存自己的连接数，并在达到该数字时抛出错误，还是每次打开新连接时都直接从 MySQL DB 获取数字？

或者错误可能是由于其他原因造成的？

编辑 1

来自 MySQL Workbench 的一些统计数据
连接线程:3
运行线程:1
创建线程:250
缓存线程:5
拒绝(超出限制):0
总连接数:2822
连接限制:151
中止的客户端:2694
中止连接:84
错误:0

编辑2

调用和处理连接的示例代码:

Public Shared Function GetCoursePaperCertificate(ByVal CourseTypeID As Integer) As String
Dim connx As New MySqlConnection(My.Settings.BMConnString)
Try
    Dim cmdTextx = "Select `Cert` From `Courses` WHERE `ID`=@ID"
    Dim cmdx As New MySqlCommand(cmdTextx, connx)
    cmdx.Parameters.AddWithValue("@ID", CourseTypeID)
    connx.Open()
    Dim result = cmdx.ExecuteScalar
    If result Is Nothing OrElse result Is DBNull.Value Then
        Return String.Empty
    Else
        Return result
    End If
Catch ex As Exception
    Return String.Empty
Finally
    connx.Dispose()
    connx = Nothing
End Try
End Function

Answer 1

您的代码中有几处内容。

• 首先启用Option Strict。该函数被声明为返回一个字符串，但您试图使用 Return result
返回 Object
• 所有实现 Dispose 方法的都应该在 Using block 内使用。这允许您声明和初始化一个对象，使用它并在最后处理它。
• Parameters.Add 比 AddWithValue 更好。后者强制 DB Provider 根据数据猜测数据类型。
• 根据负载以及该方法是否经常使用，您可以将数据加载到 DataTable 并对其进行查找，而不是一遍又一遍地查询数据库。

核心问题(可能)是您没有释放DBCommand对象。查看您使用的构造函数:

Dim cmdx As New MySqlCommand(cmdTextx, connx)

DBCommand 对象传递了对连接的引用。即使您显式释放连接，cmdx 仍然具有对它的引用，并且它 未被释放。 使用 block 可以轻松确保已处理完毕:

Dim sql = "Select `Cert` From `Courses` WHERE `ID`=@ID"

Using dbCon As New MySqlConnection(MySQLConnStr)
    Using cmd As New MySqlCommand(sql, dbCon)
        cmd.Parameters.Add("@Id", MySqlDbType.Int32).Value = CourseTypeID
        dbCon.Open()
        Dim result = cmd.ExecuteScalar

        If result Is Nothing OrElse result Is DBNull.Value Then
            Return String.Empty
        Else
            Return result.ToString()
        End If
    End Using           ' close, dispose of conn
End Using               ' dispose of DBCommand

为了减少缩进，您可以将项目“堆叠”到一个 Using block 中:

Using connx As New MySqlConnection(MySQLConnStr),
    cmd As New MySqlCommand(sql, connx)
    ...
End Using

注意第一行末尾的逗号。

如果这不是您泄漏的原因(当然所有代码都需要更改)，我会感到惊讶。