vb連接access資料庫

『壹』 求VB登陸窗口連接ACCESS資料庫的代碼

1、DimobjCnAsNewConnection,objRsAsNewRecordset

objCn.ConnectionString="Provider=Microsoft.Jet.OLEDB.3.51;"&"DataSource="&App.Path&objCn.Open

2、dimobjCnAsConnection

SetobjCn=NewConnection

objCn.Open「DSN=實例2DSN」

3、ADOData控制項創建連接

(1)vb連接access資料庫擴展閱讀

ACCESS資料庫特性

1、access有強大的數據處理、統計分析能力，利用access的查詢功能，可以方便地進行各類匯總、平均等統計。並可靈活設置統計的條件。

2、access用來開發軟體，比如生產管理、銷售管理、庫存管理等各類企業管理軟體，其最大的優點是：易學，非計算機專業的人員，也能學會。

3、在開發一些小型網站WEB應用程序時，用來存儲數據。例如ASP+Access。這些應用程序都利用ASP技術在InternetInformationServices運行．比較復雜的WEB應用程序則使用PHP/MySQL或者ASP/MicrosoftSQLServer。

『貳』 關於VB連接access

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