打开/关闭sql连接-冗余代码

我想知道避免以下情况的最基本方法是什么。

    con.ConnectionString = connection_String
    con.Open()
    cmd.Connection = con

    'database interaction here

    cmd.Close()

我一直在我的项目中不断地写这些行，但我认为必须有一种更好的方法来节省一遍又一遍地输入这些内容。它使代码看起来比现在更加草率！

结束了这个，对我来说效果很好。谢谢您的帮助 ：）

Public Sub connectionState()
    If con.State = 0 Then
        con.ConnectionString = connection_String
        con.Open()
        cmd.Connection = con
    Else
        con.Close()
    End If
End Sub

这就是许多程序员试图创建一个“数据库层”的地方，其方法签名的变体如下所示：

Public DataSet ExecuteSQL(ByVal sql As String) As DataSet

这使您可以将所有样板连接代码隔离在一处。 sql命令字符串进入，数据出来。简单的。

不要这样做！

这是朝着正确的方向前进，但有一个非常大的缺陷：它迫使您使用字符串操作将参数值替换到 SQL 查询中。这会导致可怕的 SQL 注入安全漏洞。

相反，请确保在方法中包含某种机制来单独提示输入 sql 参数。这通常以函数的附加参数的形式出现，并且可以像 KeyValuePairs 数组一样简单。如果您对 lambda 感到满意，我的首选模式如下所示：

Public Iterator Function GetData(Of T)(ByVal sql As String, ByVal addParameters As Action(Of SqlParameterCollection), ByVal translate As Func(Of IDatarecord, T)) As IEnumerable(Of T)
    Using cn As New SqlConnection("connection string"), _
          cmd As New SqlCommand(sql, cn)

        addParameters(cmd.Parameters)

        cn.Open()
        Using rdr As SqlDataReader = cmd.ExecuteReader()
            While rdr.Read()
                Yield(translate(rdr))
            End While
        End Using
    End Using
End Function

要调用该函数，您可以执行以下操作：

Dim bigCustomers = GetData("SELECT * FROM Customers WHERE SalesTotal > @MinSalesTotal", _
                   Sub(p) p.Add("@MinSalesTotal", SqlDbType.Decimal, 1000000), _
                   MyCustomerClass.FromIDataRecord)