vb加密access数据库及介绍.docVIP

在专业的数据库软件开发中，为了确保数据库中信息的安全，往往要求对数据库文件进行加密，以防止非法用户通过其它的常规手段将其打开。那么，在Visual Basic中如何建立与加密的数据库的连接呢？笔者在日常工作中，总结了一些方法和技巧，现写出来与同行们交流。 　　一、连接加密的Access数据库,假设要连接的数据库为hg.mdb，密码为“123” 　　在Visual Basic 6.0中，要建立与数据库的连接，可采用的技术手段很多，如：数据控件、数据对象、数据环境设计器等。 　　1、使用控件 　　① Data控件 　　Data控件是Visual Basic 6.0中的一个内置数据控件，可以通过设置Data控件的connect、DatabaseName、RecordSource属性实现对数据库的连接和访问。 通过Data控件连接加密的数据库的方法有两种： 　　一种方法是在设计状态时，在“属性窗口”中将Data控件的connect属性的缺省值”Access”改为”; pwd=123”即可，其它属性的设置方法与没有加密的Access数据库的连接相同。 　　另一种方法是在运行时，通过代码对connect属性赋值来实现。如： Data1.connect=”; pwd=123”Data1.DatabaseName=APP.path + “\hg.mdb” 　　其中，”123”为Access数据库文件hg.mdb的密码，下同。 　　②Adodc控件 Adodc控件是一个ActiveX控件，它使用Microsoft ActiveX Data Objects(ADO)创建到数据库的连接。使用Adodc控件之前，要先将Adodc控件添加到控件工具箱中。方法如下：在VB 6.0种选择“工程”菜单，再点击“部件”菜单项，在弹出的“部件”对话框中选中“Microsoft ADO Data Control 6.0(OLEDB)”选项即可。 　通过Adodc控件连接加密的数据库的方法也有两种： 　　一种方法是在设计状态时，在“属性窗口”中，对Adodc控件的ConnectionString属性设置一个有效的连接字符串，并在连接字符串后增加上”; Jet OLEDB: DataBase password=123”，再设置Adodc控件的CommandType、RecordSource的属性就可以创建到加密的数据库的连接了。 　　另一种方法是在运行时，通过代码动态地设置ConnectionString、CommandType和RecordSource属性来创建连接。 只要在ConnectionString属性的有效连接字符串后增加上”; Jet OLEDB: DataBase password=123”即可。 　　2、使用数据对象 　　① DAO数据对象 　　要能正确引用DAO数据对象来建立与数据库的连接，应先在VB集成开发环境中选择“工程”菜单，再点击“引用”菜单项，在弹出的“引用”对话框选择“Microsoft DAO 3.51 Object Library”选项来添加DAO数据对象类型库。 　　接下来就可用如下代码来建立到加密的Access数据库hg.mdb的连接。 　　 Dim db AS DataBaseSet db=OpenDataBase(App.path + “\hg.mdb” , False , False , ” ; pwd=123”) 　　② ADO数据对象 　　ADO是Microsoft推出的处理关系数据库和非关系数据库中信息的最新技术，也是Microsoft推崇的用于数据连接和访问的技术。在VB 6.0中，Adodc控件、ADO数据对象及DataEnvironment（数据环境设计器）都采用的是ADO技术，因而它们处理加密的Access数据库的方法类似。 　　要能正确引用ADO数据对象，应在VB 6.0集成开发环境中选择“工程”菜单，再点击“引用”菜单项，在弹出的“引用”对话框中选中“Microsoft ActiveX Data Objects 2.1 Library”选项来添加ADO数据对象类型库。 可用如下代码来建立到加密的Access数据库hg.mdb的连接。 Dim cnn AS ADODB.ConnectionDim rst AS ADODB.RecordsetSet cnn=New ADODB.ConnectionCnn.Provider= ”Microsoft.Jet.OLEDB.3.51”Cnn.ConnectionString= ”Data Source=” App.path ”\hg.mdb;” _” ;Jet OLEDB:Database password=123”cnn.Open 　　③ 使用