以前曾看過介紹如何在Visual Basic中連接和使用Access數據庫的技術文章，實際上在專業的數據庫軟件開發中，為了確保數據庫中信息的安全，往往要求對數據庫文件進行加密，以防止非法用戶通過其它的常規手段將其打開。那么，在Visual Basic中如何建立與加密的數據庫的連接呢？筆者在開發本校的宿舍管理信息系統中，總結了一些方法和技巧，現寫出來與同行交流。

　　一、建立數據庫

　　因為在Visual Basic 6.0中有的數據庫連接方式不支持Access 2000版本格式的數據庫，為了便于說明問題，本文所提的數據庫以Access 97版本數據庫為例。

　　在Microsoft Access 97中建立一個數據庫，如：ssgl.mdb，并設置密碼，如：“1234”，再將數據庫文件和VB中創建的工程文件放在同一目錄下。

　　如果用戶的計算機上只有Access 2000的話，可以先在Access 2000中建立ssgl.mdb數據庫，并設置密碼，再用Access 2000中的“數據庫實用工具”將數據庫轉換成Access 97版本的格式。

　　當然也可以直接在Visual Basic 6.0集成開發環境中通過“可視化數據管理器”來創建數據庫，再到Access 97中設置密碼。

　　通過對數據庫文件設置密碼，一般情況下，非法用戶就不能用常規的手段打開數據庫了，對數據庫中的信息起到了一定的安全和保密作用。

　　二、連接加密的Access數據庫

　　在Visual Basic 6.0中，要建立與數據庫的連接，可采用的技術手段很多，如：數據控件、數據對象、數據環境設計器等。開發人員可以根據自身的條件和用戶的需求進行選擇。

　　限于篇幅，下面只介紹加密的Access數據庫與沒有加密的Access數據庫在連接時的不同之處。關于沒有加密的數據庫的連接及訪問的方法讀者可以參閱其它資料。

　　1、使用控件

　　① Data控件

　　Data控件是Visual Basic 6.0中的一個內置數據控件，可以通過設置Data控件的connect、DatabaseName、RecordSource屬性實現對數據庫的連接和訪問。 通過Data控件連接加密的數據庫的方法有兩種：

　　一種方法是在設計狀態時，在“屬性窗口”中將Data控件的connect屬性的缺省值”Access”改為”; pwd=1234”即可，其它屬性的設置方法與沒有加密的Access數據庫的連接相同。

　　另一種方法是在運行時，通過代碼對connect屬性賦值來實現。如：

Data1.connect=”; pwd=1234”

Data1.DatabaseName=APP.path + “\ssgl.mdb”

　　其中，”1234”為Access數據庫文件ssgl.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=1234”，再設置Adodc控件的CommandType、RecordSource的屬性就可以創建到加密的數據庫的連接了。

　　另一種方法是在運行時，通過代碼動態地設置ConnectionString、CommandType和RecordSource屬性來創建連接。 只要在ConnectionString屬性的有效連接字符串后增加上”; Jet OLEDB: DataBase password=1234”即可。

　　2、使用數據對象

　　① DAO數據對象

　　要能正確引用DAO數據對象來建立與數據庫的連接，應先在VB集成開發環境中選擇“工程”菜單，再點擊“引用”菜單項，在彈出的“引用”對話框選擇“Microsoft DAO 3.51 Object Library”選項來添加DAO數據對象類型庫。

　　接下來就可用如下代碼來建立到加密的Access數據庫ssgl.mdb的連接。

Dim db AS DataBase

Set db=OpenDataBase(App.path + “\ssgl.mdb” , False , False , ” ; pwd=1234”)

　　② 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數據庫ssgl.mdb的連接。

Dim cnn AS ADODB.Connection

Dim rst AS ADODB.Recordset

Set cnn=New ADODB.Connection

Cnn.Provider= ”Microsoft.Jet.OLEDB.3.51”

Cnn.ConnectionString= ”Data Source=” & App.path & ”\ssgl.mdb;” & _

” ;Jet OLEDB:Database password=1234”

cnn.Open

　　③ 使用DataEnvironment（數據環境設計器）

　　有兩種方法可以通過DataEnvironment連接到加密的Access數據庫：

　　一種方法是在設計狀態時，在DataEnvironment的connection對象的ConnectionSource屬性的有效連接字符串后加上” ;

Jet OLEDB: Database password=1234”

　　另一種方法是在DataEnvironment_Initialize()事件中編寫如下代碼：

Private sub DataEnvironment_Initialize( )

Dim strconn AS string

Strconn=” Provider=Microsoft.Jet.OLEDB.3.51;” & _

”Data Source=” & App.path & “\ssgl.mdb;” & _

”; Jet OLEDB: Database password=1234”

DataEnvironment1.connection1.connectionstring=strconn

End sub

　　以上方法及相關代碼筆者都已在Windows 98操作系統環境，Visual Basic 6.0中調試、驗證并通過。