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

信息发布软件

	在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控件中使用字符串中的操作一致。

yiyi2014

	评价的，功能很容易上手，人性化。卖家的服务赞个。下次还光顾

anleeycn

	是比较划算的，自己比较轻松

shenyeben

	人，解决问题超负责的！点32个赞

niyaoz1

	沙发！沙发!

niubt

	建站，方便快捷，有专人指导，还是很不错的！

z2340868

	说，谢谢店主！...希望下次在合作！

xiaoyaoyao001

	。服务非常好。