vb加密access數(shù)據(jù)庫(kù)及介紹

1、.在專業(yè)的數(shù)據(jù)庫(kù)軟件開發(fā)中，為了確保數(shù)據(jù)庫(kù)中信息的安全，往往要求對(duì)數(shù)據(jù)庫(kù)文件進(jìn)行加密，以防止非法用戶通過(guò)其它的常規(guī)手段將其打開。那么，在Visual Basic中如何建立與加密的數(shù)據(jù)庫(kù)的連接呢？筆者在日常工作中，總結(jié)了一些方法和技巧，現(xiàn)寫出來(lái)與同行們交流。一、連接加密的Access數(shù)據(jù)庫(kù),假設(shè)要連接的數(shù)據(jù)庫(kù)為hg.mdb，密碼為“123”在Visual Basic 6.0中，要建立與數(shù)據(jù)庫(kù)的連接，可采用的技術(shù)手段很多，如：數(shù)據(jù)控件、數(shù)據(jù)對(duì)象、數(shù)據(jù)環(huán)境設(shè)計(jì)器等。1、使用控件 Data控件Data控件是Visual Basic 6.0中的一個(gè)內(nèi)置數(shù)據(jù)控件，可以通過(guò)設(shè)置Data控件的connect、

2、DatabaseName、RecordSource屬性實(shí)現(xiàn)對(duì)數(shù)據(jù)庫(kù)的連接和訪問(wèn)。 通過(guò)Data控件連接加密的數(shù)據(jù)庫(kù)的方法有兩種：一種方法是在設(shè)計(jì)狀態(tài)時(shí)，在“屬性窗口”中將Data控件的connect屬性的缺省值”Access”改為”; pwd=123”即可，其它屬性的設(shè)置方法與沒(méi)有加密的Access數(shù)據(jù)庫(kù)的連接相同。另一種方法是在運(yùn)行時(shí)，通過(guò)代碼對(duì)connect屬性賦值來(lái)實(shí)現(xiàn)。如：Data1.connect=”; pwd=123”Data1.DatabaseName=APP.path + “hg.mdb”其中，”123”為Access數(shù)據(jù)庫(kù)文件hg.mdb的密碼，下同。Adodc控件Adodc

3、控件是一個(gè)ActiveX控件，它使用Microsoft ActiveX Data Objects(ADO)創(chuàng)建到數(shù)據(jù)庫(kù)的連接。使用Adodc控件之前，要先將Adodc控件添加到控件工具箱中。方法如下：在VB 6.0種選擇“工程”菜單，再點(diǎn)擊“部件”菜單項(xiàng)，在彈出的“部件”對(duì)話框中選中“Microsoft ADO Data Control 6.0(OLEDB)”選項(xiàng)即可。通過(guò)Adodc控件連接加密的數(shù)據(jù)庫(kù)的方法也有兩種：一種方法是在設(shè)計(jì)狀態(tài)時(shí)，在“屬性窗口”中，對(duì)Adodc控件的ConnectionString屬性設(shè)置一個(gè)有效的連接字符串，并在連接字符串后增加上”; Jet OLEDB: Dat

4、aBase password=123”，再設(shè)置Adodc控件的CommandType、RecordSource的屬性就可以創(chuàng)建到加密的數(shù)據(jù)庫(kù)的連接了。另一種方法是在運(yùn)行時(shí)，通過(guò)代碼動(dòng)態(tài)地設(shè)置ConnectionString、CommandType和RecordSource屬性來(lái)創(chuàng)建連接。 只要在ConnectionString屬性的有效連接字符串后增加上”; Jet OLEDB: DataBase password=123”即可。2、使用數(shù)據(jù)對(duì)象 DAO數(shù)據(jù)對(duì)象要能正確引用DAO數(shù)據(jù)對(duì)象來(lái)建立與數(shù)據(jù)庫(kù)的連接，應(yīng)先在VB集成開發(fā)環(huán)境中選擇“工程”菜單，再點(diǎn)擊“引用”菜單項(xiàng)，在彈出的“引用”對(duì)話框

5、選擇“Microsoft DAO 3.51 Object Library”選項(xiàng)來(lái)添加DAO數(shù)據(jù)對(duì)象類型庫(kù)。接下來(lái)就可用如下代碼來(lái)建立到加密的Access數(shù)據(jù)庫(kù)hg.mdb的連接。Dim db AS DataBaseSet db=OpenDataBase(App.path + “hg.mdb” , False , False , ” ; pwd=123”) ADO數(shù)據(jù)對(duì)象ADO是Microsoft推出的處理關(guān)系數(shù)據(jù)庫(kù)和非關(guān)系數(shù)據(jù)庫(kù)中信息的最新技術(shù)，也是Microsoft推崇的用于數(shù)據(jù)連接和訪問(wèn)的技術(shù)。在VB 6.0中，Adodc控件、ADO數(shù)據(jù)對(duì)象及DataEnvironment（數(shù)據(jù)環(huán)境設(shè)計(jì)器

6、）都采用的是ADO技術(shù)，因而它們處理加密的Access數(shù)據(jù)庫(kù)的方法類似。要能正確引用ADO數(shù)據(jù)對(duì)象，應(yīng)在VB 6.0集成開發(fā)環(huán)境中選擇“工程”菜單，再點(diǎn)擊“引用”菜單項(xiàng)，在彈出的“引用”對(duì)話框中選中“Microsoft ActiveX Data Objects 2.1 Library”選項(xiàng)來(lái)添加ADO數(shù)據(jù)對(duì)象類型庫(kù)?？捎萌缦麓a來(lái)建立到加密的Access數(shù)據(jù)庫(kù)hg.mdb的連接。Dim cnn AS ADODB.ConnectionDim rst AS ADODB.RecordsetSet cnn=New ADODB.ConnectionCnn.Provider= ”Microsoft.Jet

7、.OLEDB.3.51”Cnn.ConnectionString= ”Data Source=” & App.path & ”hg.mdb;” & _” ;Jet OLEDB:Database password=123”cnn.Open 使用DataEnvironment（數(shù)據(jù)環(huán)境設(shè)計(jì)器）有兩種方法可以通過(guò)DataEnvironment連接到加密的Access數(shù)據(jù)庫(kù)：一種方法是在設(shè)計(jì)狀態(tài)時(shí)，在DataEnvironment的connection對(duì)象的ConnectionSource屬性的有效連接字符串后加上” ;Jet OLEDB: Database password=123”另一種方法是在DataEnvironment_Initialize()事件中編寫如下代碼：Private sub DataEnvironment_Initialize( )Dim strconn AS stringStrconn=” Provider=Microsoft.Jet.OLEDB.3.51;” & _”Data Source=” & App.path &