作者：未知 来源：月光软件站 加入时间：2005-2-28　月光软件站

       通常情况下，如果将数据读入到简单的内存数组中，那么处理少量数据会更容易些。以下方法提供了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

相关软件：