用于创建和打开数据库连接的公共函数

Question

我有一个客户端/服务器桌面应用程序，在我的一些客户端电脑上遇到了一些数据库连接问题。当我编写应用程序时，我没有更好的了解，所以我在应用程序启动时创建并打开了 1 个数据库连接，并在整个应用程序中使用相同的连接。我知道这是一个坏主意，因为网络连接不稳定，而且似乎防病毒程序有时会导致这些连接断开，从而导致一些错误。我在代码中有数百个地方需要在使用它们时返回并创建/打开/关闭连接。

问题是，有什么方法可以创建一个公共函数，我可以在其中执行此操作，然后进行全局查找和替换以将连接名称替换为新的函数名称？

类似：

 Dim qry As NpgsqlCommand
 sqlUpdateItem = "update table set field = value where id = 1"
 qry = New NpgsqlCommand(sqlUpdateItem, con)
 qry.ExecuteNonQuery()

到

 Dim qry As NpgsqlCommand
 sqlUpdateItem = "update table set field = value where id = 1"
 qry = New NpgsqlCommand(sqlUpdateItem, newCon())
 qry.ExecuteNonQuery()

public function newCon()
    Dim con As New NpgsqlConnection(connectionString)
    con.Open()
    Return tcon
End Function

我试过了，但没有运气。我只是在寻找不涉及我在整个应用程序的数百个地方更新几行代码的任何可能的解决方案。好消息是我只需要对所有命令执行此操作，因为我可以将全新的连接传递给数据适配器，它将处理打开/关闭。

Answer 1

这是我建议您尝试的示例。

1. 在您的项目中启用选项严格。最好在编译时而不是在运行时出错。

2. 即使遇到异常，也可以使用 using 语句安全地处理数据库类。

---

Private _connectionString As String = "blah"

Public Function GetDbConnection() As NpgsqlConnection
    Dim con As New NpgsqlConnection(_connectionString)
    con.Open()
    Return con
End Function

Public Sub DoMyQuery()
    Using conn = GetDbConnection()
        Using qry = New NpgsqlCommand("update table set field = value where id = 1", conn)
            qry.ExecuteNonQuery()
        End Using
    End Using
End Sub