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 数据库会终止休眠时间超过 15 秒的连接。

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

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

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

编辑 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。该函数被声明为返回一个字符串，但您试图返回 Object 和 Return result
实现 Dispose 方法的
• Everything 应该在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

注意第一行末尾的逗号。

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