先来一个简单的实例。

VB.net 2012

SQl server 2012

Access文件：http://download.csdn.net/detail/dzweather/5042992

                       （两个版本，2003,2012,任选一个）

根据前面ADO.net入门的介绍，我们知道了连接的过程。

AccessFile文件，针对的是Oledb，所以首先应引用。

然后 ，定义三个对象，在实例中再进行创建（这样可以节约点资源）

特别注意 的是，里面没有了cmd过程，我感觉这样的入门适合我学习。

这个例子，就一个窗体，一个datagridview（不绑定，用代码绑定），然后就是几句代码，很简单。

1.  
   Imports System.Data.OleDb
2.  
    
3.  
   Public Class Form1
4.  
   Dim cn As OleDbConnection
5.  
   Dim da As OleDbDataAdapter
6.  
   Dim ds As DataSet
7.  
    
8.  
   Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
9.  
   Dim cnStr As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\persons.mdb;Persist Security Info=False"
10.  
    cn = New OleDbConnection(cnStr)
11.  
    Dim sql As String = "select * from grade"
12.  
    da = New OleDbDataAdapter(sql, cn)
13.  
    ds = New DataSet
14.  
    da.Fill(ds, "grade")
15.  
    DataGridView1.DataSource = ds.Tables(0)
16.  
    End Sub
17.  
    End Class

==========================================================================================================

上面的有点简单，但流程清晰。与我们实际应用有很大距离。

下面再跨一步，接近实际应用，即变得较为灵活点：

1.  
   Imports System.Data.OleDb
2.  
    
3.  
   Public Class Form1
4.  
   Dim cn As OleDbConnection
5.  
   Dim da As OleDbDataAdapter
6.  
   Dim ds As DataSet
7.  
    
8.  
   Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
9.  
   Dim cnStr As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\persons.mdb;Persist Security Info=False"
10.  
    cn = New OleDbConnection(cnStr)
11.  
    Dim sql As String = "select * from grade"
12.  
    da = New OleDbDataAdapter(sql, cn)
13.  
    ds = New DataSet
14.  
    da.Fill(ds, "grade")
15.  
    DataGridView1.DataSource = ds.Tables(0)
16.  
    End Sub
17.  
     
18.  
    Private Sub btnQuery_Click(sender As Object, e As EventArgs) Handles btnQuery.Click
19.  
    Dim cnStr As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\persons.mdb;Persist Security Info=False"
20.  
    cn = New OleDbConnection(cnStr)
21.  
    Dim sql As String = TextBox1.Text
22.  
    da = New OleDbDataAdapter(sql, cn)
23.  
    ds = New DataSet
24.  
    da.Fill(ds, "grade")
25.  
    DataGridView1.DataSource = ds.Tables(0)
26.  
    End Sub
27.  
     
28.  
    Private Sub btnQueyName_Click(sender As Object, e As EventArgs) Handles btnQueyName.Click
29.  
    Dim cnStr As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\persons.mdb;Persist Security Info=False"
30.  
    cn = New OleDbConnection(cnStr)
31.  
    Dim sql As String = "select * from grade where 姓名 like " & "'%" & TextBox2.Text & "%'"
32.  
    da = New OleDbDataAdapter(sql, cn)
33.  
    ds = New DataSet
34.  
    da.Fill(ds, "grade")
35.  
    DataGridView1.DataSource = ds.Tables(0)
36.  
    End Sub
37.  
    End Class

结果如下：

这样就可以有两个查询方式，一是SQL语句灵活用，二是姓名。

这样一个简单的查询就出来了。这只是一个“查询”，但我们有时还要修改、删除等工作。

在修改，删除时，不但要执行SQL，最终我们还要把结果反馈给用户看。于是就有了第个简单实例。

========================================================================================================

DataGrideView控件，很多选项都是边框、单元颜色、数据格式、选择方式。太多了。画个图加深印象：