通常情况下,如果将数据读入到简单的内存数组中,那么处理少量数据会更容易些。以下方法提供了ADO.NET对象从数据库加载信息到数组,而且该数组可任意自行扩展。
在默认窗体的头部输入如下代码: Imports System.Data.OleDb 在按钮的Click事件中: Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim myConn As OleDbConnection Dim myCmd As OleDbCommand Dim myReader As OleDbDataReader Dim myConnStr As String Dim myArray(0) As String Dim i As Integer
myConnStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=JLGL.mdb" myConn = New OleDbConnection(myConnStr) myCmd = New OleDbCommand() myCmd.CommandType = CommandType.Text myCmd.CommandText = "select * from JXB" myCmd.Connection = myConn myConn.Open() myReader = myCmd.ExecuteReader Do While myReader.Read myArray(i) = myReader!出厂编号 TextBox1.Text = TextBox1.Text & myArray(i) & vbCrLf ReDim Preserve myArray(UBound(myArray) + 1) i += 1 Loop Label1.Text = i 'i为记录条数
myConn.Close()
End Sub

|