.Net ADO 连接类

Question

我创建了一个连接类，它应该将数据表/数据读取器等返回到我的网页。我担心使用此类无法正确关闭连接。这是课程：

Imports Microsoft.VisualBasic

Namespace myConnection
  Public Class DB

      Public Shared Function GetConnStr()
                    Return "server=foobar"
      End Function


      Public Shared Function OpenConn()
                    Return New System.Data.SqlClient.SqlConnection( GetConnStr )
      End Function

      Public Shared Function OpenReader(SQL As String)

                    Dim conn 
                    conn = OpenConn
                    conn.Open

                    Return New System.Data.SqlClient.SqlCommand(SQL, conn).ExecuteReader(System.Data.CommandBehavior.CloseConnection)

      End Function

      Public Shared Function OpenTable(SQL As String)

                    Dim conn 
                    conn = OpenConn
                    conn.Open

                    Dim dr As System.Data.SqlClient.SqlDataReader = New System.Data.SqlClient.SqlCommand(SQL, conn).ExecuteReader(System.Data.CommandBehavior.CloseConnection)
                    Dim dt As System.Data.DataTable = New System.Data.DataTable()
          dt.Load(dr)

                    Return dt 

      End Function

      Public Shared Function ExecuteSQL(SQL As String)

                    Dim conn 
                    conn = OpenConn
                    conn.Open

                    Return New System.Data.SqlClient.SqlCommand(SQL, conn).ExecuteNonQuery()

      End Function


  End Class
End Namespace

以下是我使用它的方式：

rst = conn.OpenReader(SQL)
While rst.Read  
end while
rst.close

我担心一旦投入生产，连接将无法正确关闭，我的网站将会失败。我是.net新手，这个类背后的负责人有什么问题吗？

Answer 1

你是对的：你的连接不会以这种方式关闭。更糟糕的是，通过只接受 sql 命令的字符串，您将面临 sql 注入安全漏洞。作为更好模式的示例，我用来填充数据表的代码看起来更像是这样：

Public Function GetDataTable(ByVal sql As String, ByVal AddParameters As Action(Of SqlParameterCollection)) As DataTable
    Dim result As New DataTable()
    Using cn As SqlConnection = OpenConn(), _
          cmd As New SqlCommand(sql, cn)

        AddParameters(cmd.Parameters)

        Using rdr As SqlDataReader = cmd.ExecuteReader
            result.Load(rdr)
        End Using
    End Using
    Return result
End Function

然后我会这样调用代码：

Dim data As DataTable = GetDataTable("SELECT * FROM SomeTable WHERE ID= @ID", _ 
       Sub(p)
           p.Add("@ID", SqlDbType.Int).Value = 12345
       End Sub )

我在 C# 中为 SqlDataReader 有类似的代码，但它需要使用迭代器块，并且功能不适用于VB仅刚刚使用 Visual Studio 2010 的服务包添加到 VB.Net Async CTP 已于几周前推出。这里要注意的重要一点是，我使用 using 块正确封装了 sql 连接，并且代码鼓励正确使用查询参数。

Answer 2

不幸的是，我同意其他评论之一。你为什么要编写自己的连接类？

使用 ADO.NET EF 或 LINQ To SQL 来管理上下文中的连接。

如果您继续执行正在执行的操作，请将连接包装在“使用”块中。

Answer 3

我使用一个模块来调用数据库，如果您使用多种形式，可以节省很多行...

这是我的模块形式：

Public cn As OleDbConnection

Public Sub InitDatabase()
    Dim sDBase As String = "DB.mdb"
    cn= New OleDbConnection
    cn.ConnectionString = "Provider=Microsoft.JET.OLEDB.4.0; Data Source=" & sDBase
End Sub

然后调用数据库使用这个：

Private ds As New DataSet
Private da As New OleDbDataAdapter

modWijnen.InitDatabase()

    Dim cm As New OleDbCommand("Select * from Table1", cn)
    da = New OleDbDataAdapter(cm)

    If (ds.Tables.Contains("Table1") = False) Then
        da.Fill(ds, "Table1")
    End If

我希望这对您有帮助...