清明雨上mv王俊凯:VB通过DAO访问Access数据库
来源:百度文库 编辑:偶看新闻 时间:2024/04/28 23:24:34
VB通过DAO访问Access数据库
发布时间:2008-04-03 10:45:26 来源:编程爱好者网站 作者:编程爱好者网站 点击:450
文/张喜瑞、毛立夏Access是Office系列中功能完备的数据工具,本文将其作为应用程序的后台仓库,即一个数据库可以包括多个二维表,实现各类数据的存储,适合用来作为数据处理的中间桥梁。
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
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对象程序的优点,轻松完成人机界面设计,使程序员从繁琐而又简单的点、线、框等定位中脱离出来;另一方面,由于充分利用了用户操作熟练的软件作为人机界面,使用户有亲切感和熟练操作的能力,从而能够充分发挥所开发的应用程序的功能。
vb 中使用DAO部件访问ACCESS数据库 出现数据库格式不识别问题?
DAO 连接ACCESS数据库
如何asp通过odbc访问access数据库
关于VB访问Access数据库的小问题~
vb.net访问网络上的access数据库???
在VB中使用ADODC控件访问ACCESS数据库问题
ado访问access数据库
VB访问Access问题
VB连接Access数据库
VB简单访问数据库
访问网络数据库VB
用VB 怎样访问 某一文件下多个ACCESS数据库表中的同一个字段。并显示出来
VB怎样联接ACCESS数据库
VB查找ACCESS数据库问题
VB怎么连Access数据库
在线等 VB+ACCESS数据库
vb中如何用dao修改数据库中的数据
怎么在VB中通过某个条件查询access数据库?并显示出所有字段
如何用数据库(access)通过Vb.NEt自动生成html?
asp可以访问远程access数据库吗?
access数据库突然不能访问了
求解VC访问Access数据库问题~
access数据库中如何互相访问呢?
有关VB访问access的问题