您现在正在浏览：站长之家 >> 数据库 >> 详细内容

VB通过DAO访问Access数据库

时间:2007-12-23 来源:不详作者:迈克DB

Visual Basic对Access的集成非常紧密，通常由以下几个部分组成。

　　引用DAO类型库

　　1、从“工程”菜单中选择“引用”菜单项；

　　2、在可引用列表框中选择“Microsoft DAO 3.51 Object Library”项。

　　3、最后“确定”即可

　　设置DAO数据类型变量

　　DAO数据类型变量共分成两种：

　　1、Database变量

　　对应于Access，通常在模块中被定义为Public全程变量：

　　Public AccessDBF As Database

　　'定义对象实例AccessDBF

　　2、RecordSet变量

　　对应于Access中的一个表，可定义为全程变量或局部变量，亦可作为函数参数进行传递：

　　Dim thePrintTable As RecordSet

　　'定义一个表对象实例thePrintTable

　　打开DAO数据类型

　　1、打开Access的方法

　　通常可设置一个专门的Public函数用来打开一个Access，并且该函数在启动窗体的Private Sub Form_load ( )过程中被调用，函数定义格式如下：

　　Public Sub OpenDatabase ( )

　　Dim sConeect As String copyright dedecms

　　SConnect = ";PWD = 8830428; UID = admin "

　　'设置打开时的用户名、口令等参数

　　Set AccessDBF = Nothing

　　'确认关闭对象实例

　　Set AccessDBF = WorksPaces (0 ).OpenDatabase (App.Path&&"/ToXls.MDB",False,sConnect)

　　'打开当前路径的ToXls.MDB

　　End Sub

　　2、打开RecordSet的方法

　　RecordSet遵循即用即开的原则，所以它通常在函数中打开

　　Set thePrintTable = AcessDBF.OpenRecordSet ( "Table_1",dbOpenSnapshot )

　　相关的数据操作

　　数据实际需要对Access表中的记录、字段、数据项进行操作。下列双重循环把数据输出到Excel对应的单元格中：

　　For j = 0 To 2

　　For I = 0 To 3

　　ThePrintTable.MoveNext

　　Excel.Sheet.Range ( Trim ( chr ( 71 j*10 I ) ) "G").Value = thePrintTable.Fields (0)

　　Next I

　　Next j

　　关闭

　　1、关闭Database

　　它通常在整个应用程序的最后进行操作，即通常出现在Private Sub Form_unload (Cannel As Interger )过程中。命令格式实例如下：织梦好，好织梦

　　AccessDBF.Close

　　2、关闭RecordSet

　　它遵循用完即关的原则，所以通常出现在函数中。当完成了相关的数据操作后就关闭它，下次再用时再打开即可：

　　thePrintTable.Close

　　结论：通过系统集成开发应用程序的输入和输出模块，它一方面充分利用了OLE对象程序的优点，轻松完成人机界面设计，使程序员从繁琐而又简单的点、线、框等定位中脱离出来；另一方面，由于充分利用了用户操作熟练的软件作为人机界面，使用户有亲切感和熟练操作的能力，从而能够充分发挥所开发的应用程序的功能。　　