2024年5月26日发(作者：)
龙源期刊网
ＶＢ６连接设置密码的ＡＣＣＥＳＳ２００
０数据库
作者：程 超 赵学作
来源：《商场现代化》2008年第08期
[摘 要] 本文说明了在Visual Basic 6.0中如何正确连接已经设置密码的Access 2000格式的
数据库，详细介绍了Data控件、DAO及ADO三种方式的多种方法，并给出了有关代码。
[关键词] VB 连接 密码 Access2000
在专业的数据库软件开发中，为了确保数据库中信息的安全，往往要求对其使用的
ACCESS数据库文件设置安全密码，以防止非法用户通过其它的常规手段将其打开，从而保护
数据库不被非系统授权的修改或破坏。目前有很多文章介绍如何打开设置密码的Access 97格
式数据库,但不适用于Access 2000格式的数据库,因此如何在Visual Basic 6.0中连接已经设置密
码的Access 2000格式的数据库是很多程序员需要解决的问题。笔者在实际操作中总结出几种
连接方法,下面以数据库(密码:123456)为例说明具体连接方法。
一、Data控件方式
Data控件是Visual Basic 6.0中的一个内置数据控件，可以通过设置Data控件的Connect、
DatabaseName、RecordSource属性实现对数据库的连接和访问。 通过Data控件连接加密的数
据库的方法有两种:
第一种方法是设计时,在“属性窗口”中将Data控件的Connect属性的缺省值“Access2000”改
为“Access2000;pwd=123456”即可，其它属性的设置与没有加密的Access数据库的连接设置相
同。
第二种方法是在运行时，通过代码对Connect属性赋值来实现。如:
seName= &“”
t=“Access 2000;pwd=123456”
Source=“ACONF”‘ACONF为数据库中一个表
二、DAO方式
龙源期刊网
利用DBEngine的OpenDatabase()方法打开设置密码的数据库。
打开数据库格式:
Set db=OpenDatabase(dbname[, exclusive[,readonly[,source[,password]]]])
关闭数据库:
打开数据表:Set rs = cordset(source[,type[,options]])
关闭数据表:
具体连接代码如下:
Set db=OpenDatabase( &“”,True,True, “;Pwd=123456”)
Set rs=cordset(“ACONF”,dbOpenDynaset)
Set set=rs‘设置控件Data1的属性
三、ADO方式
ADO是Microsoft推出的处理关系数据库和非关系数据库中信息的最新技术，也是
Microsoft推崇的用于数据连接和访问的技术。在Visual Basic 6.0中，Adodc控件、ADO数据
对象及DataEnvironment(数据环境设计器)都采用的是ADO技术，因而它们处理加密的Access
数据库的方法类似。
控件法:在Visual Basic 6.0集成开发环境中选择“工程”菜单，再点击“部件”菜单
项，在弹出的“部件”对话框中选中“Microsoft Ado Data Control 6.0(Sp6)”及“Microsoft DataGrid
Control 6.0(Sp6)”选项，这样就可以在窗体上添加控件“Adodc1”与“DataGrid1”。具体代码如
下：
connstring=“Provider=.4.0;Data Source=” & &“”
&“;Persist Security Info=False;Jet OLEDB:Database Locking Mode=1;Jet OLEDB:database
password=‘123456’”
tionString=connstring
Source=“select * from ACONF ”
Set urce=Adodc1
龙源期刊网
数据对象法：要能正确引用ADO数据对象，应在Visual Basic 6.0集成开发环境中
选择“工程”菜单，再点击“引用”菜单项，在弹出的“引用”对话框中选中“Microsoft ActiveX Data
Objects 2.6 Library”选项来添加ADO数据对象类型库。
connstr=“DBQ=”+ &“”+“;DefaultDir=;DRIVER={Microsoft Access
Driver(*.mdb)};password=’123456‘“
Set conn=CreateObject(”TION“)
connstr
Set rs=CreateObject("set")
SQL=”select * from ACONF“
SQL,conn,3,2
Set urce = rs
vironment（数据环境设计器）法:有两种方法可以通过DataEnvironment连接加密
的Access 2000数据库:
一种方法是设计时,在DataEnvironment的connection对象的ConnectionSource属性的有效
连接字符串后加上“;password=123456”
另一种方法是在DataEnvironment_Initialize()事件中编写如下代码：
Private sub DataEnvironment_Initialize( )
Strconn=”Provider=.4.0;Data Source=“&
&”“&”;Persist Security Info=False;password=123456“
tionstring=strconn
End sub
以上为Visual Basic 6.0中连接已经设置密码的Access 2000格式的数据库的几种方法，在
编程过程中可以根据自己实际情况选择一种或多种方法综合使用。
参考文献:
龙源期刊网
[1](美)荷兹纳(Steven Holzner).Visual Basic 6技术内幕[M].北京:机械工业出版社,1999
[2]林 永 张乐强:Visual Basic 6.0用户编程手册[M].北京:人民邮电出版社，2002.
[3]赛奎春 高春艳 笪淑娥:Visual Basic 精彩编程200例[M].北京:机械工业出版社,2003
发布评论