VB读取加密数据库

软件世界

在利用VB设计应用软件时,常常要操作数据库,而数据库是非常重要的数据文件,一般不允许用户打开查看和修改,因此完全有必要对数据库进行加密。由于VB有多种读取数据库的方式,因此相应地读取加密数据库也有相对应的方法。

一、 Data控件

Data控件有一个属性Connect,将Connect属性设为“;PWD=XXXXXX”(XXXXXX是数据库密码,可在属性窗口中指定,也可在程序中赋值)。然后将控件DatabaseName属性设定为要读取的数据库,最后设定RecordSource属性时,能够打开数据库各表,即可读取加密数据库。

二、 DAO方法

Dao方法可用程序直接打开数据库。
首先打开“工程──引用”窗体,然后选定其中的“Microsoft DAO 3.51 Object Library”(图1),按“确定”退出。编写程序时要首先定义类型,然后编写程序。例如:

图1
图1

首先在程序中要定义:
Dim Dao as DataBase '定义Dao是数据库类型
Dim daore as Recordset '定义Daore是记录集类型
然后打开数据库:
打开数据库语法为:
Set Dao = OpenDatabase("C:\Program Files\vb98\cwkj\example.mdb") '打开数据库
Set Daore=dao.OpenRecordset("xzyz") '打开记录表
打开加密数据库语法为:
Set dao = OpenDatabase("D:\Program Files\vb98\cwkj\zw1.mdb", False, False,";pwd=XXXXXX")
'XXXXXX是数据库密码
Set Daore=dao.OpenRecordset("xzyz")

三、 ADO控件

ADO控件是OLE数据库的一个界面。它是VB6中引入的一种新的数据库访问技术,可以访问各种类型的数据源,并且同时支持本地访问和远程访问,是替代Data控件的一种新控件。
使用ADO控件和Data控件一样,区别主要是在对数据库的设置。在ADO控件中要设置的是ConnectionString属性。当设置ConnectionString属性时,会弹出一个属性页窗口,选择最后一项“使用联接字符串”,点击生成按钮。接着会弹出一个数据链接属性窗口如(图2)。选择其中的“Microsoft Jet4.0 OLE DB Provider” 项,然后选择其中的“连接”表单,在其中选定要连接的数据库。此时按“测试连接”按钮,如果数据库设有密码一定会出现一个密码无效的消息窗口。这是因为还未设置数据库连接密码的关系。

图2
图2

接下来就要设置数据库密码。选择数据链接属性窗口中的“所有”表单如(图3)
图3
图3

选择其中的“Jet OLEDB:Database Password”双击(或按“编辑值”),弹出一个“编辑属性值”窗口,在其中的“属性值”中输入数据库的密码,按“确定”返回到“所有”表单。此时再返回到连接表单,按“测试连接”,如果密码正确,则会连接成功。按“确定”按钮,则会在ConnectionString属性中生成一长字符串。然后再完成ADO控件的Recordsource属性即可完成ADO控件的数据库设置。
数据的安全是软件安全性能的一个方面,只有搞好了数据的安全,才能搞好软件的安全。