读取数据库和显示数据中的数据的子程序

时间:2013-10-12 15:49:13

标签: .net vb.net oledb

我做了一个子程序来从数据库(MS Access)读取数据并将其显示在文本框中。我使用OleDbDataAdapter填充DataTable,我将使用它来显示文本框中的数据。我做了什么,如果没有处理应妥善处置的东西,有什么问题吗?任何评论或更改,使其看起来更好,更简单,更快或更正确?

strConnection - 包含数据库连接字符串

strCommand - 包含sql命令的字符串

Public Sub readQuery(ByVal strCommand As String, ByRef dtTable As DataTable)
    dtTable.Clear()
    Using dbConnection As New OleDbConnection(strConnection)
        dbConnection.Open()
        Dim dbCommand As New OleDbCommand(strCommand, dbConnection)
        Using dbReader As OleDbDataReader = dbCommand.ExecuteReader
            If dbReader.HasRows Then
                Dim dbAdapter As New OleDbDataAdapter(strCommand, dbConnection)
                dbAdapter.Fill(dtTable)
            Else
                MsgBox("No data matches your search.")
            End If
        End Using
    End Using
End Sub

0 个答案:

没有答案