在VB中，连接ACCESS数据库的方法主要有下面三种

•    使用ADO对象，通过编写代码访问数据库
  

                      Connection 对象                               ODBC数据源

•    使用ADO Data 控件快速创建数据库连接
  

                      有三种连接方法                                             Data Link文件                                             使用ODBC数据源名称                                             使用连接字符串

•    使用数据环境设计器创建数据库连接
  

                     首先添加环境引用。                     然后找到数据源进行连接

            无论是哪一种连接，都是先有一个路径，通向要连接的数据源，和数据源建立关系，在连接。就好比从北京到上海，可以做汽车，可以做火车，还可以做飞机，汽车走高速，火车走铁路，飞机走航线，过程不一样，但结果是一样的，都是到达上海目的地。

           

            在操作这三种连接方式的时候，会发现有重复的操作。

            Data 控件连接中，ODBC数据源的连接和使用字符串的连接 与直接使用ODBC数据源连接中，不同是，直接使用ODBC数据源设置好路径后，再用connection对象连接即可；Data控件则不用Connection 对象，有控件，设置好路径了，就直接连到啦。

            数据环境设计器和ADO 对象，都用到了connection连接。不同的是，数据环境设计器中，connection连接途径是和data控件中字符串的连接步骤一致。

            总结不同：ADO对象连接需要编写代码，其他的不用编写代码。

            

         下面详细介绍每一种连接方法的详细步骤：

          1，使用ADO connection对象

                首先，要建立ADO引用，定义connection这个类，然后实例化对象。

                代码完成如下：

[vb] view plain copy
print?

•    <span style="font-size:18px;">Dim objCn As New Connection, objRs As New Recordset         
• objCn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.3.51;" & "Data Source=" & App.Path & "\实例01.mdb"  
• objCn.Open   
• n>  
  

          2，使用ODBC数据源

                 首先，打开电脑上的ODBC数据源，建立关系。

                 步骤如下：

                 1），打开电脑上的ODBC数据源

                          如下图所示：

                 2）点击添加

                3）命名

                 4）和数据库源建立关系

                 5）用代码实现连接

[vb] view plain copy
print?

• <span style="font-size:18px;">       dim objCn As Connection  
•        Set objCn = New Connection  
•        objCn.Open "DSN=实例2DSN"  
• </span>  
  

          3，ADO Data 控件创建连接

                 1）右击data控件，选择ADODC属性

                  2）从三种连接资源中选择一种。

                            使用data Link 文件：直接点击浏览，找到包含连接字符串的.udl文件即可

                            使用ODBC数据源连接，单击新建

                                                  

                                                    选择用户数据库，之后的操作跟2中步骤一样。

                            使用连接字符串：单击生成

                                       

测试连接

          4，使用数据环境设计器创建数据库连接

                         添加引用

                      右击创建连接，在右击想要连接的属性，之后的操作跟data控件中使用字符串中的操作一致。

在向大家详细介绍VB.NET Access数据库连接之前，首先让大家了解下VB.NET的简介，然后全面介绍VB.NET Access数据库连接。

　　Visual Basic.NET 是从 Visual Basic 语言演变而来的，是一种为高效地生成类型安全和面向对象的应用程序而设计的语言。Visual Basic 允许开发人员开发面向 Windows、Web 和移动设备的程序。与所有面向 Microsoft .NET Framework 的语言一样，使用 Visual Basic 编写的程序都具有安全性和语言互操作性方面的优点。这一代 Visual Basic 延续了为您提供一种简单快捷的方法来创建基于 .NET Framework 的应用程序的传统。

　　VB.NET的简介

　　VB.NET是微软最新平台技术，是.netframeworkSDK的一种语言。VB.NET和VC#.NET在功能上没有区别。编译以后生成的可执行文件被称为Assembly，即程序集。VB.net的版本号是VB7.0，它的运行是建立在CLR(CommonLanguageRuntime)和MSIL(MicrosoftIntermediateLanguage)虚拟器上的。其实，它的机制和Java差不多。

　　VB.NET Access数据库连接

　　采用OleDbConnection对象

Private Function getAccessConnection() As OleDbConnection
Dim dbConnectionString As String = "rovider=Microsoft.Jet.OLEDB.4.0;
Data Source=|DataDirectory|\Resources\mag.mdbersist Security Info=true"
Dim dbConnection As OleDbConnection = New OleDbConnection(dbConnectionString)
Try
dbConnection.Open()
Catch Ex As Exception
’MsgBox(Err.Description)
End Try
Return dbConnection
End Function

private Sub fillDataGridView()

Dim sqlStr As String = "select * from Table"
Dim DataAdapter As New OleDbDataAdapter
Dim dataSet As New DataSet
Dim DataGridView As New DataGridView
Dim dbConnection As OleDbConnection = getAccessConnection()

If dbConnection.State.ToString = "Closed" Then
MsgBox(Chr(13) & " access 数据库连接失败 " & Chr(13), , "警告")
Exit Sub
End If

DataAdapter.SelectCommand = New OleDbCommand(sqlStr,dbConnection)

Try
DataAdapter.Fill(dataSet,"Table")
DataGridView.DataSource = dataSet.Tables("Table").DefaultView
Catch Ex As Exception
MsgBox(Err.Description)

Finally
dataSet.Dispose
DataAdapter.Dispose
dbConnection.Close
dbConnection.Dispose
End Try

End Sub

　　VB.NET Access数据库文件，可以通过 My Project -> 资源 -> 添加资源 -> 添加现有文件 这样的方式来添加调试状态下，每次运行项目，Resources下面的数据库将会覆盖Debug下的数据库。