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

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

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

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

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

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

6、）都采用的是ADO技術(shù)，因而它們處理加密的Access數(shù)據(jù)庫的方法類似。要能正確引用ADO數(shù)據(jù)對象，應(yīng)在VB 6.0集成開發(fā)環(huán)境中選擇“工程”菜單，再點(diǎn)擊“引用”菜單項(xiàng)，在彈出的“引用”對話框中選中“Microsoft ActiveX Data Objects 2.1 Library”選項(xiàng)來添加ADO數(shù)據(jù)對象類型庫。可用如下代碼來建立到加密的Access數(shù)據(jù)庫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ì)器）有兩種方法可以通過DataEnvironment連接到加密的Access數(shù)據(jù)庫：一種方法是在設(shè)計(jì)狀態(tài)時，在DataEnvironment的connection對象的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 &