要能正確引用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