.NET开发

本类阅读TOP10

·NHibernate快速指南(翻译)
·vs.net 2005中文版下载地址收藏
·【小技巧】一个判断session是否过期的小技巧
·VB/ASP 调用 SQL Server 的存储过程
·?dos下编译.net程序找不到csc.exe文件
·通过Web Services上传和下载文件
·学习笔记(补)《.NET框架程序设计(修订版)》--目录
·VB.NET实现DirectDraw9 (2) 动画
·VB.NET实现DirectDraw9 (1) 托管的DDraw
·建站框架规范书之——文件命名

分类导航
VC语言Delphi
VB语言ASP
PerlJava
Script数据库
其他语言游戏开发
文件格式网站制作
软件工程.NET开发
数据库信息读入到内存数组中

作者:未知 来源:月光软件站 加入时间: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




相关文章

相关软件