请问在VB环境下编程,或者其他环境需要用到access,例如access考试学习;
如何实现用DAO对象打开一个带密码的Access数据库进行读写.
首先下载安装access地址 http://pan.baidu.swj.wang/ms/access
VisualBasic与Access数据库紧密集成,Access数据库通常由以下几部分组成。
参考道类型库
1、从“工程”菜单中选择“引用”菜单项;
2、在参照列表框中选择“微软道3.51对象库”项。
3、最后“确定”即可
设置DAO数据类型变量
DAO数据类型变量分为两种类型:
1、数据库ˌ资料库变量
对应于Access数据库,通常在模块中定义为公共全局变量:
PublicAccessDBFAsDatabase
定义数据库对象实例访问DBF
2、记录集变量
对应Access数据库中的一个表,可以定义为整体变量,也可以定义为局部变量,还可以作为函数参数传递:
DimthePrintTableAsRecordSet
定义一个表对象实例PrintTable
Open DAO数据类型
1、打开入口的方法
通常,可以设置一个特殊的公共函数来打开Access数据库,该函数启动窗体的PrivateSubForm_load(在过程中调用,函数定义格式如下:
PublicSubOpenDatabase(
DimsConeectAsString
SConnect='PWD=8830428;UID=admin'
打开时设置用户名、口令等参数
SetAccessDBF=无
确认关闭对象实例
SetAccessDBF=工作区(打开数据库(App.Path'ToXls.MDB',False,sConnect)
打开当前路径的ToXls.MDB数据库
EndSub
2、打开记录集的方法
记录集遵循即时打开的原则,所以通常在函数中打开
SetthePrintTable=AcessDBF.打开记录集(Table_1',dbOpenSnapshot)
相关的数据操作
数据实际上需要检查访问表中的记录、字段、数据项进行操作。下面的双循环将数据输出到Excel的相应单元格:
Forj=0To2
ForI=0To3
可打印表格.移动下一步
Excel.Sheet.Range(Trim(chr(71 j*10 I) 'G'值=打印表格.Fields(
NextI
Nextj
关闭数据库
1、关闭数据库ˌ资料库
它通常在整个应用程序的末尾运行,也就是说,它通常出现在PrivateSubForm中_unload(罐头制造商)过程中。命令格式的示例如下:
AccessDBF.Close
2、关闭记录集