VB.NET Access数据库连接的实例教程

信息发布软件

	先来一个简单的实例。 VB.NET 2012 SQl server 2012 Access文件：http://download.csdn.Net/detail/dzweather/5042992                        （两个版本，2003,2012,任选一个） 根据前面ADO.net入门的介绍，我们知道了连接的过程。 AccessFile文件，针对的是Oledb，所以首先应引用。 然后 ，定义三个对象，在实例中再进行创建（这样可以节约点资源） 特别注意 的是，里面没有了cmd过程，我感觉这样的入门适合我学习。 这个例子，就一个窗体，一个datagridview（不绑定，用代码绑定），然后就是几句代码，很简单。 [vb] view plain copy print? Imports System.Data.OleDb      Public Class Form1       Dim cn As OleDbConnection       Dim da As OleDbDataAdapter       Dim ds As DataSet          Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load           Dim cnStr As String = "rovider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\persons.mdbersist Security Info=False"           cn = New OleDbConnection(cnStr)           Dim sql As String = "select * from grade"           da = New OleDbDataAdapter(sql, cn)           ds = New DataSet           da.Fill(ds, "grade")           DataGridView1.DataSource = ds.Tables(0)       End Sub   End Class   ========================================================================================================== 上面的有点简单，但流程清晰。与我们实际应用有很大距离。 下面再跨一步，接近实际应用，即变得较为灵活点： [vb] view plain copy print? Imports System.Data.OleDb      Public Class Form1       Dim cn As OleDbConnection       Dim da As OleDbDataAdapter       Dim ds As DataSet          Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load           Dim cnStr As String = "rovider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\persons.mdbersist Security Info=False"           cn = New OleDbConnection(cnStr)           Dim sql As String = "select * from grade"           da = New OleDbDataAdapter(sql, cn)           ds = New DataSet           da.Fill(ds, "grade")           DataGridView1.DataSource = ds.Tables(0)       End Sub          Private Sub btnQuery_Click(sender As Object, e As EventArgs) Handles btnQuery.Click           Dim cnStr As String = "rovider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\persons.mdbersist Security Info=False"           cn = New OleDbConnection(cnStr)           Dim sql As String = TextBox1.Text           da = New OleDbDataAdapter(sql, cn)           ds = New DataSet           da.Fill(ds, "grade")           DataGridView1.DataSource = ds.Tables(0)       End Sub          Private Sub btnQueyName_Click(sender As Object, e As EventArgs) Handles btnQueyName.Click           Dim cnStr As String = "rovider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\persons.mdbersist Security Info=False"           cn = New OleDbConnection(cnStr)           Dim sql As String = "select * from grade where 姓名 like " & "'%" & TextBox2.Text & "%'"           da = New OleDbDataAdapter(sql, cn)           ds = New DataSet           da.Fill(ds, "grade")           DataGridView1.DataSource = ds.Tables(0)       End Sub   End Class   代码活没用try catch，反正只是入门。 结果如下： 这样就可以有两个查询方式，一是SQL语句灵活用，二是姓名。 这样一个简单的查询就出来了。这只是一个“查询”，但我们有时还要修改、删除等工作。 在修改，删除时，不但要执行SQL，最终我们还要把结果反馈给用户看。于是就有了第个简单实例。 ======================================================================================================== DataGrideView控件，很多选项都是边框、单元颜色、数据格式、选择方式。太多了。画个图加深印象：

信息发布软件

	在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下的数据库。