VB与数据库访问技术的研究

所有的源代码和ACCESS数据都在附件中，我用的是DAO连接数据库，DAO数据对象模型并不是VB本身所携带的，它被集成在ACCESS中，在VB项目中加入DAO的办法是新建一个工程(EXE),然后在菜单[项目/添加引用]或是[project/component reference]点击，在跳出选择对话框中添加"Microsoft DAO3.6".以后的的代码在源文件里都有，相信你能看懂。

简单的函数说明1.按下OK键以后调用，读取界面中两个文本编辑框中的内容，然后调函数verify确认是不是数据库中的用户和密码。

Private Sub OK_Click()'检查用户身份LoginSuccessed = verify(txtUserName, txtPassWord) '标准用户身份If (LoginSuccessed = True) ThenEnd If'End IfEnd Sub2.verify函数，根据传入的用户和密码信息，在数据库里查找，如果存在，则跳出"登录成功对话框",失败也给出相应说明。

我在name.mdb中只加了一个纪录，用户005,密码zou,你可以修改成你需要的用户和密码。

Function verify(userID As String, txtPWD As String) As BooleanDim courseDB As Database, idinfo As Recordset '记录集Dim sqlstr As Stringsqlstr = "select 学号,密码 from 密码 where 学号 = '" & userID & "'" Set courseDB = OpenDatabase("name.mdb")Set idinfo = courseDB.OpenRecordSet(sqlstr, dbOpenSnapshot, dbReadOnly)'到数据库中提取用户名和密码的纪录If (idinfo.RecordCount = 0) ThenMsgBox "无此学号", , "登陆"verify = FalseElseIf (idinfo.Fields("密码").Value = txtPWD) Thenverify = TrueMsgBox "你好, " & userID & " 成功登陆", , "登陆"ElseMsgBox "无效的密码,请重试", , "登陆"verify = FalseEnd IfEnd Ifidinfo.CloseEnd FunctionDAO(Data Access Object)全称为数据访问对象，它是数据库编程的重要方法之一。

VB中数据库访问技术的探讨摘要：VisualBasic中对数据库的访问是开发应用软件时必须面临的问题，在开发过程中如何从众多的数据库访问方案中选择一种使所开发的应用软件在今天处于有利位置，并且适应未来的发展方向，将是主要探讨的问题。

关键词：VB；数据库；接口我们知道，VisualBasic中集成了两种核心且已经发展成为相当成熟技术的数据访问策略：RDO和DAO/Jet。

VisualBasic访问关系型ODBC （OpenDatabaseConnectivity）数据源的最佳访问接口是RDO2.0（RemoteDataObjects，远程数据对象）；VisualBasic访问Jet和顺序索引查找类型数据源ISAM首选的访问接口却是DAO/Jet。

于是，我们在VisualBasic中确定数据库访问方案时就选用RDO访问ODBC数据源，选用DAO/Jet访问ISAM或Jet类型数据源。

ADO是独立于开发工具和开发语言，简单易用的数据接口。

ADO （ActiveDataObjects）技术的出现，逐渐取代了其他的数据访问接口。

目前，所有的数据源都可以通过ADO来访问。

如果需要将RDO数据接口转换为ADO时，仍可使用RDO设计的代码，这是因为RDO与ADO的体系结构非常相似。

1VisualBasic访问数据库技术的历史与现状纵观过去，VisualBasic客户在解决商务方案时曾设计出各种程序和组件，它们所访问的数据约有80%是ASCII文件、大型机数据库和SQL数据库。

所以，最初的VisualBasic数据访问工具主要是针对ASCII文件的访问，由VBSQL编写的有关SQLServer的前端应用程序非常少。

到了VisualBasic3.0时代，很多用户开始需要访问ISAM，于是微软公司就设计了DAO（DataAccessObject）和Jet（MicrosoftJetDatabaseEngine），从而使得VisualBasic数据库开发人员与Jet的接口变得方便简洁。

120 •电子技术与软件工程 Electronic Technology & Software Engineering数据库技术• Data Base Technique<<下转121页【关键词】数据库访问技术 VB 编程开发 应用随着现代科学技术的不断发展，计算机技术在日常生活中的作用日益突出。

数据库在数据信息的处理过程中发挥着较为重要的作用[1]。

在计算机技术应用于企业管理以后，企业管理者需要利用数据库维持企业运转，并要借助数据库技术提升自身的工作效率。

就计算机编程技术的发展现状而言，现阶段很多开发语言和开发软件都可以应用于数据库的设计过程之中。

VB 技术的应用，可以为数据库体系的构建提供一定的支持。

在进行应用程序的应用状态中，VB 并不能对数据库进行直接操作，相关人员需要借助对象变量获取的方式，完成数据库数据信息的拷贝操作。

1 VB实现数据库访问的关键技术数据库编程是程序员的必备操作技能。

现阶段VB 技术已经凭借着其所具有的灵活性、简单性、可扩展性及访问快捷等优势，成为现代化编程体系中的主流编程方式。

在VB 技术应用于程序设计以后，相关人员可以借助数据库控件完成完整数据的维护、操作及相关事务的处理。

就VB 编程开发过程而言，相关人员需要对数据库中包含的服务资源进行有效管理，并要及时反馈客户的数据。

数据库系统的交互性是数据库体系的应用效果的主要影响因素。

1.1 SQLSever服务器技术一般情况下，SQL 数据库可以让数据库在人们对服务器进行正常操作时，让数据库处于正常运行状态。

如人们需要运行企业管理器，可在选择数据库以后进行表的创建，用户名登录及密码创建，还要完成数据库的dbscowenr 用户的设置。

在客户端中，相关人员需要让客户端与服务器端的数据库均处于同一个子网内部，并要在客户端控制面板中完成数据库数据的配置。

数据库访问技术在VB 编程开发中的应用文/段世娟1.2 程序编写技术在数据库访问连接的控制工具为数据库控件的情况下，相关人员需要让数据空间与数据库之间进行有效对接。

VB访问数据库的方法及接口的比较【摘要】本文将对VB访问数据库的方法及接口进行比较分析。

首先介绍了ADO连接方式、ODBC连接方式和DAO连接方式，然后分析了它们各自的优缺点和适用场景。

通过比较各种连接方式，读者可以了解到在不同情况下应该如何选择合适的数据库连接方式。

结论部分提出了选择合适的数据库连接方式和灵活运用不同的接口是提高数据库操作效率和代码质量的关键。

本文旨在帮助读者更好地了解VB访问数据库的方法，提高数据操作的效率和精度。

【关键词】VB, 数据库访问方法, 接口, 比较, ADO, ODBC, DAO, 优缺点, 适用场景, 选择, 灵活运用.1. 引言1.1 VB访问数据库的方法及接口的比较Visual Basic（VB）是一种广泛使用的编程语言，用于开发Windows应用程序。

在开发应用程序的过程中，访问数据库是非常常见的需求。

VB提供了多种访问数据库的方法和接口，如ADO （ActiveX Data Objects）、ODBC（Open Database Connectivity）和DAO（Data Access Objects）。

这些方法和接口各有优缺点，适用于不同的场景。

ADO连接方式是最常用的数据库连接方式之一，它提供了一种简单且高效的方法来连接和操作各种数据库。

通过ADO，开发者可以使用SQL语句来查询和更新数据库中的数据，同时还可以使用数据绑定功能来将数据显示在用户界面上。

ODBC连接方式是一种通用的数据库连接方式，它基于标准化的API接口，可以连接各种类型的数据库。

ODBC提供了一种开放的标准，使得开发者可以轻松地切换和连接不同类型的数据库。

DAO连接方式是一种轻量级的数据库连接方式，专门用于连接Microsoft Access数据库。

它提供了一种简单而直接的方法来操作Access数据库中的数据，适用于一些小型应用程序的开发。

比较各种连接方式的优缺点可以帮助开发者根据实际需求选择合适的方式。

数据库访问技术在ＶＢ中的应用对VB中数据库访问技术进行了介绍，并且讨论了VB应用程序开发中最常用的三种数据访问接口的体系结构、性能特点，最后对这三种接口的技术进行集中总结，给出了它们各自的适用场所。

标签：数据库访问数据访问接口ODBC DAO RDO OLE DB ADO当今，数据库技术和网络技术是计算机技术领域中两大主题。

目前比较常用的数据库编程开发工具主要有:Delphi、PowerBuilder、Visual Basic、Visual C++、Borland C++等。

本文阐述了最常用的三种数据访问接口的对象模型及其原理特性，分析总结出它们各自适用场合。

一、三种数据访问接口技术的体系结构及性能特点数据库访问技术处在不断进步中，DAO、RDO和ADO代表了该项技术发展的不同阶段。

尽管VB中提供了直接与ODBC或OLE DB交互访问数据库的方法，但由于其属于底层接口，编程复杂，通常较少使用，大部分VB应用程序更常更多使用DAO、RDO和ADO，下面本文对这三种数据访问接口做进一步的讨论。

1.DAO(Data Access Objects,数据访问对象)体系结构及性能特点DAO的体系结构:DAO是使用分层的对象框架实现的,DBEngine是DAO对象的顶层,它表示Microsoft Jet Database Engine。

每个应用程序只能创建一个DBEngine对象,所有其他DAO对象都含在DBEngine对象内。

Workspace和Errors 是DAO框架的第二层。

每个Workspace对象代表一个数据会话，用于控制数据库的登录安全性和事务范围。

每个Workspace对象包含一组Database对象。

Database对象是DAO的中心对象。

每个Database对象表示一个本地或远程数据库。

当Jet引擎打开本地或远程数据库时，一个Database对象就增加到该Database 集合中。

Database对象包含其他主要的DAO对象集合。

浅析VB中的三种数据访问技术浅析VB中的三种数据访问技术摘要：DAO、RDO和ADO分别代表了数据访问技术的不同发展阶段，本⽂对VB 中最常⽤的三种数据访问接⼝的体系结构进⾏了介绍，最后对这三种接⼝的技术进⾏了集中总结和⽐较。

关键词：DAO RDO ADO 数据访问0 引⾔数据库实质上是⼀个庞⼤的、不同类型的数据集合。

早期的数据库系统不提供对外接⼝，仅可有特定软件访问数据，随着计算机技术的发展和应⽤⽔平的提⾼，数据库系统逐渐发展、完善对外接⼝，成为标准的应⽤⽀持平台。

程序员再也不必⾃⼰编写数据管理程序，只需使⽤标准接⼝连接数据库即可获得数据库系统的全部功能。

⽽访问数据库是现代应⽤程序必备的基本功能之⼀，⽆论是数据库管理系统，还是多媒体应⽤系统，都需要强⼤的数据库⽀持。

VB为程序员提供了多种访问数据库的⼿段，包括数据控件、DAO、RDO及ADO等。

本⽂简单介绍DAO、RAO、ADO的体系结构，并对三者进⾏简单总结和⽐较。

1 DAO1.1 DAO概念数据访问对象DAO（Data Access Objects）出⾃VB6.0提供的⼀个对象库，为处理数据提供了完整、灵活的⽀持。

DAO模型是设计关系数据库系统结构的对象类的集合。

它们提供了管理关系型数据库系统所需的全部操作的属性和⽅法，其中包括创建数据库，定义表、字段和索引，建⽴表间的关系，定位和查询数据库等。

在程序中使⽤它可以访问Access、FoxPro、dBase等数据库，某些条件下也可以访问ODBC数据库。

1.2 DAO层次结构 DAO模型的体系结构如图1所⽰。

DAO的结构严谨⽽丰富，正是这样的结构，提供了⾜够丰富的访问数据库的⽅法。

DAO是完全的⾯向对象的，它将数据的值作为属性，数据的查询作为⽅法，数据值的变化作为事件。

1.3 使⽤DAO 使⽤DAO的步骤为：①创建⼯作区；②打开数据库；③创建记录集；④使⽤记录集访问数据库；⑤关闭DAO。

2 RDO。

基于 Visual Basic 环境下数据库访问技术的研究仇伟明【摘要】Three different database access technologies based on VB ,which are Data Access Object (DAO) ,Remote Data Object (RDO) and ActiveX Data Object (ADO) respectively ,are studied .The principles and features of the technologies are discussed in detail .%对 VB 提供的3种不同数据库访问技术，即数据访问对象（Data Access Object ， DAO ）、远程数据对象（Remote Data Object ，RDO）、Active X数据对象（ActiveX Data Object ，ADO）做了对比研究，并就各VB数据库访问技术的原理和特点做了简要阐述。

【期刊名称】《长春工业大学学报（自然科学版）》【年(卷),期】2014(000)005【总页数】5页(P490-494)【关键词】VB;数据库;访问技术【作者】仇伟明【作者单位】无锡商业职业技术学院，江苏无锡 214153【正文语种】中文【中图分类】TP399VB是由Microsoft公司推出的包含开发及编译平台的基于对象触发事件驱动的语言，它具有灵活易学的特点，并且对数据库具有很强的管理功能。

在VB环境下，可以使用DAO，RDO，ADO这3种技术来访问数据库中的数据。

根据在访问数据时是否需要编写代码，3种数据库访问技术又都具有以下两种具体的访问形式：使用Data控件的非编程访问方式，即通过对控件的数据绑定来访问数据库；使用对象模型的编程访问方式，即通过定义对象和编写代码来访问数据库。

DAO基于使用一种接口来访问多种类型的数据这一设计思想而设计的。

试论数据库访问技术在VB中的应用摘要：数据库访问技术是计算机编程应用中十分重要的技术，文章主要介绍了编程中常用的DAO、ODBC API、RDO和ADO等技术的特点，并重点介绍了当前作为主流应用技术的ADO。

关键词：数据库访问技术；VB；ADO1 概述VB即Visual Basic，具有强大的数据库操作功能，实现对数据的有效处理，已经成为普遍运用的可视化编程工具，并且随着Visual Basic软件版本的不断升级，数据库的功能不断得以提升和丰富，更多的数据库访问功能被附加到VB上，进而使得VB在开发数据库应用程序方面的优势更加彰显。

再加上，信息技术的飞速发展，人们对利用网络进行信息的交流和沟通的要求越来越高，这就使得开发出功能更加完善、运行速度更快、应用范围更加广泛、占用资源更少的数据库应用程序成为当今时代和形势下的亟需解决的重要问题。

而VB 可以向广大的用户提供不同功能和用途的数据控件，同时，VB为了更加丰富其功能的应用，提高实用性，设立了不同类型的数据库，主要包括本地数据库、外地数据库和远程数据库，并帮助用户使用极少的编写代码甚至不编写代码即可实现数据库的各种操作。

2 VB中的数据库访问技术VB为方便广大的用户，设计了多种方式的访问途径，提供了强大的数据库访问技术，进而实现与当前多数常用和流行的数据库的连接。

当前主要通过引擎、开放式数据库连接驱动程序及OLE DB等形式实现与不同数据库之间的连接。

在开发背景和环境下，VB提供的数据库访问技术主要包括DAO、ODBC API、RDO、ADO，其中ADO具有简单容易操作、灵活普遍适用等特点进而成为当前VB中的主流数据库访问技术。

下面将会详细介绍这几种技术，并对ADO技术进行重点介绍。

2.1 DAO技术DAO即数据访问对象，该数据库访问技术基于PC平台进行数据的交换，可以实现对数据库中所有内容的访问、操纵和编辑，作为首个面对对象的数据库访问编程接口，已经成为VB 数据库访问的默认方式。

VB数据库的访问技术作者：邓素安来源：《新课程·教研版》2009年第22期摘要:从VB数据库体系结构的角度探讨了VB对数据库的支持,并结合了一些代码具体阐述了使用DAO(Data Access Object)和RDO(Remote Data Object)两种方法,实现远程数据库的访问。

关键词:控件数据库接口Visual Basic专业版是一种广泛使用的数据库编程语言,提供了对数据库应用的强大支持。

VB访问数据库的方法大致有三类:使用数据绑定控件,使用数据库存取对象变量(Data Access Object Variable),直接调用ODBC 2.0 API接口函数。

一、VB的数据库结构VB数据库的核心结构是MicroSoft Jet数据库引擎,JET引擎的作用是支持多种ISAM(Indexed Sequential Access Method,即索引顺序存取方法) 数据驱动程序。

VB环境下Access是缺省的数据格式,对于其他的关系型数据库如FoxPro、Dbase(或 Xbase)、Paradox、Btrieve等,VB的专业版可兼容其驱动程序,这就使得VB能支持这些数据库格式。

由上可见,Ms JET引擎实质上提供了:一个符合ANSI标准的语法分析器;为查询结果集的使用而提供的内存管理功能;同所支持的数据库的外部接口;为应用代码提供的内部接口。

二、VB访问数据库的原则和方法1.VB访问数据库的原则(1)代码的重用和运行的效率VB程序设计中,应尽可能减少代码的重复编写,提高运行效率。

例如:通过使用ODBC数据源连接数据库的方法,可在变换多种数据库类型的情况下,而不用频繁修改代码。

用VBSQL通过DB-Library就做不到。

而ODBC接口并不是VB访问数据库运行效率最高的方法。

同样,同是使用ODBC接口的ADO的效率要高于RDO。

(2)实现的简便性,易维护性如果一种方法实现起来很复杂,工程的开发必然造成人力物力的浪费,同时这样设计出来的应用程序只会支持起来更复杂或维护时更困难。

VB6.0数据库访问技术与例程解析（转）引⾔ 引⾔ 作为微软旗下⼀款优秀的RAD⼯具，VB在数据库应⽤开发⽅⾯的能⼒⼗分强⼤。

微软设计了多种数据库访问⽅法，下⾯通过对VB访问数据库的多种技术进⾏深⼊剖析，并总结出实际开发中的⼏点经验。

希望能够对那VB的初学者有所帮助。

（注意，⽂中所有的描述均在Windows 2000 professional和Visual Basic 6.0的环境下进⾏的）⼀. DAO、RDO、ODBC和ADO ⼀. DAO、RDO、ODBC和ADO 在VB的开发环境中，可以使⽤三种数据库访问⽅式，它们分别是：数据访问对象(DAO)、远程数据对象（RDO）和ADO对象模型。

DAO： 数据访问对象是⽤来显露了Microsoft Jet数据库引擎（最早是给Microsoft Access 所使⽤，现在已经⽀持其它数据库），并允许开发者通过ODBC直接连接到其他数据库⼀样，直接连接到 Access 表。

DAO 最适⽤于单系统应⽤程序或在⼩范围本地分布使⽤。

其内部已经对Jet数据库的访问进⾏了加速优化，⽽且其使⽤起来也是很⽅便的。

所以如果数据库是Access数据库且是本地使⽤的话，建议使⽤这种访问⽅式。

VB已经把DAO模型封装成了Data控件，分别设置相应的DatabaseName属性和RecordSource属性就可以将Data控件与数据库中的记录源连接起来了。

以后就可以使⽤Data控件来对数据库进⾏操作。

RDO RDO RDO（Remote Data Objects）远程数据对象是⼀个到ODBC的、⾯向对象的数据访问接⼝，它同易于使⽤的DAO style组合在⼀起，提供了⼀个接⼝，形式上展⽰出所有ODBC的底层功能和灵活性。

尽管RDO在很好地访问Jet或ISAM数据库⽅⾯受到限制，⽽且它只能通过现存的ODBC驱动程序来访问关系数据库。

但是，RDO已被证明是许多SQL Server、Oracle 以及其他⼤型关系数据库开发者经常选⽤的最佳接⼝。

基于VB的Oracle数据库访问技术研究陈伟(中国矿业大学江苏·徐州221400)The Research of Oracle Database Access Technology Based on VB摘要：对几种用VB访问Oracle数据库技术进行对比．分析说明了各种访问技术的特点，介绍了它们访问数据库的方法。

关键词：数据库；数据访问对象；远程数据对象；ActiveX数据对象；Oracle；oo4o Abstract：This paper introduces several kinds of Oracle database access techniques such as VisData、Data Controls、DAO、RD0 、ADO and oo4o，emphasizing on the analysis of the charateristics of various access techniques．Kevwords：Database；DAO；RDO；ADO; Oracle；oo4o数据库是计算机行业中最重要和最广泛的应用领域之一。

由于标准化商业应用程序的功能变得越来越强大，高级的用户编程几乎无一例外地都与数据库应用程序相联系。

Microsoft 公司推出的Visual Basic 6．0是最流行的数据库应用程序的开发工具之一，它支持一般的数据库操作、提供可视化数据库工具、提供新的数据库访问技术ADO、支持结构化查询语言SQL等。

基于这些特点，VB 6．0提供了多种数据库访问技术。

本文以访问Oracle数据库为例介绍了各种数据库访问技术的实现方法并对各种技术进行分析比较。

一、数据访问对象（DAO）数据访问对象（Data Access Object：DAO）在很长一段时间内是Visual Basic访问数据库功能的主要技术。

DAO已经存在了许多年并经历了多次修改，但它依然是许多数据库的对象模型。

VB6.0数据库访问技术与例程解析下面介绍一个实例，来消化以上的相关知识。

这里我在一个程序界面下实现了DAO,ADO,ODBC,OLEDB四种数据库访问方式。

程序代码分析：'整个程序功能是选择不同的连接方式来进行显示工作，三种方式显示效果完全相同'下面是主程序过程Private Sub Command1_Click()Dim selitem As Integer'判断连接数据库的方式If Option1.Value = True Then ‘DAOselitem = 1ElseIf Option2.Value = True Then ‘ADOselitem = 2Elseselitem = 3End IfEnd If'选取不同的数据库连接方式Select Case selitemCase 1:'使用DAO的数据库连接方式Call ShowByDAOCase 2:'使用ADO的数据库连接方式Call ShowByADOCase 3:'使用ODBC的数据库连接方式Call ShowByODBCCase 4:'使用OLEDB的数据库连接方式Call ShowByOLEDBEnd SelectEnd SubPrivate Sub ShowByDAO()'使用DAO的数据库连接方式Dim db As DatabaseDim rs As RecordsetDim sqlstr$ '存放查询语句Set db = OpenDatabase(App.Path & "\db1.mdb") sqlstr = "select * from 成绩表"Set rs = db.OpenRecordset(sqlstr)'显示结果Call GridShow(rs)End SubSub ShowByADO()Dim conn As New ADODB.ConnectionDim rs As New ADODB.Recordset'使用数据源来连接数据库conn.Open "dsn=data"rs.CursorType = adOpenKeysetrs.LockType = adLockOptimisticrs.Open "select * from 成绩表", connCall GridShowOfADO(rs)End SubSub ShowByODBC()Dim conn As New ADODB.ConnectionDim rs As New ADODB.Recordset'使用数据源来连接数据库conn.Open "Provider=MSDASQL.1;Persist Security Info=False;Data Source=data"rs.Open "select * from 成绩表", conn'显示结果Call GridShowOfADO(rs)End SubSub ShowByOLEDB()Dim conn As New ADODB.ConnectionDim rs As New ADODB.Recordset'使用数据源来连接数据库conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + App.Path & "\db1.mdb" + ";Persist Security Info=False"rs.Open "select * from 成绩表", conn'显示结果Call GridShowOfADO(rs)End SubSub GridShow(rs As Recordset)'对dao方式进行显示工作MSFlexGrid1.TextMatrix(0, 0) = "姓名" MSFlexGrid1.TextMatrix(0, 1) = "性别" MSFlexGrid1.TextMatrix(0, 2) = "语文" MSFlexGrid1.TextMatrix(0, 3) = "数学" MSFlexGrid1.TextMatrix(0, 4) = "英语"rs.MoveLastMSFlexGrid1.Rows = rs.RecordCount + 1 MSFlexGrid1.Cols = rs.Fields.CountDim i%i = 1rs.MoveFirstWhile (Not rs.EOF)MSFlexGrid1.TextMatrix(i, 0) = rs.Fields(0) MSFlexGrid1.TextMatrix(i, 1) = rs.Fields(1) MSFlexGrid1.TextMatrix(i, 2) = rs.Fields(2) MSFlexGrid1.TextMatrix(i, 3) = rs.Fields(3) MSFlexGrid1.TextMatrix(i, 4) = rs.Fields(4) rs.MoveNexti = i + 1'If (rs.EOF = True) Then' Exit ForWendEnd SubSub GridShowOfADO(rs As ADODB.Recordset)'对ado方式进行显示工作MSFlexGrid1.TextMatrix(0, 0) = "姓名"MSFlexGrid1.TextMatrix(0, 1) = "性别"MSFlexGrid1.TextMatrix(0, 2) = "语文"MSFlexGrid1.TextMatrix(0, 3) = "数学"MSFlexGrid1.TextMatrix(0, 4) = "英语"'注意recordcount属性必须在当前记录指针在最后一条记录时才会返回正确的值rs.MoveLastMSFlexGrid1.Rows = rs.RecordCount + 1MSFlexGrid1.Cols = rs.Fields.CountDim i%i = 1rs.MoveFirstWhile (Not rs.EOF)MSFlexGrid1.TextMatrix(i, 0) = rs.Fields(0)MSFlexGrid1.TextMatrix(i, 1) = rs.Fields(1)MSFlexGrid1.TextMatrix(i, 2) = rs.Fields(2)MSFlexGrid1.TextMatrix(i, 3) = rs.Fields(3)MSFlexGrid1.TextMatrix(i, 4) = rs.Fields(4)rs.MoveNexti = i + 1WendEnd SubPrivate Sub Command2_Click()EndEnd Sub。