我做了一个子程序来从数据库(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