ADO.NET学习：Access库的连接以及将数据绑定到DataGridView

通过ADO.NET连接Access库要引入System.Data.OleDb 命名空间：


Imports System.Data.OleDb

OleDbConnection类类似ADO的Connection，用于实现连接，程序将OleDbConnection以及若干类封装进一个类DataControl里面，通过该类的实现，可以实现各种数据库的连接、SQL的执行等操作，详细代码如下：

 


Imports System.Data


Imports System.Data.OleDb






Public Class Form1Class Form1










    Private Sub Form1_Load()Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load


        Try


            Dim aa As New DataSet


            'Dim bb As OleDbDataReader


            Dim conn As New DataControl


            conn.ConnString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Application.StartupPath & " est.mdb"


            conn.Open()


            aa = conn.Execute("select * from iuser", DataControl.ExecuteType.DataSet)


            'bb = conn.Execute("select * from iuser", DataControl.ExecuteType.DataReader)


            DataGridView1.DataSource = aa.Tables(0)


            'DataGridView1.DataSource = bb


            'DataGridView1.Columns.Add("haha", "haha")


            'While bb.Read


            'DataGridView1.Rows.Add(bb(0).ToString)


            'End While


            conn.Close()






        Catch ex As Exception


            MsgBox(ex.Message)


        End Try


    End Sub


End Class






Public Class DataControlClass DataControl


    Private Conn As OleDbConnection


    Private iConnstr As String


    Private Cmd As OleDbCommand


    Private DR As OleDbDataReader


    Private DA As OleDbDataAdapter


    Private DS As DataSet






    Public Enum ExecuteTypeEnum ExecuteType


        DataReader = 0


        DataSet = 1


    End Enum






    Public Sub New()Sub New()


        iConnstr = ""


        Conn = New OleDbConnection()


    End Sub






    Public Sub Open()Sub Open()


        Open(iConnstr)


    End Sub






    Public Sub Open()Sub Open(ByVal Connstr As String)


        iConnstr = Connstr


        If iConnstr.Trim = "" Then


            Throw New Exception("连接字符串为空！")


        End If


        Try


            Conn = New OleDbConnection(iConnstr)


            Conn.Open()


        Catch ex As Exception


            Throw ex


        End Try


    End Sub






    Public Function Execute()Function Execute(ByVal sql As String) As OleDbDataReader


        Return Execute(sql, ExecuteType.DataReader)


    End Function






    Public Function Execute()Function Execute(ByVal sql As String, ByVal type As ExecuteType)


    
bcf9
    If Not Conn.State = ConnectionState.Open Then


            Throw New Exception("未建立连接！")


            Return Nothing


        End If


        Try


            If type = ExecuteType.DataReader Then


                Cmd = New OleDbCommand(sql, Conn)


                'Dim aa As OleDbDataReader


                'aa = Cmd.ExecuteReader




                Return Cmd.ExecuteReader


            ElseIf type = ExecuteType.DataSet Then


                DA = New OleDbDataAdapter(sql, Conn)


                DS = New DataSet


                DA.Fill(DS)


                Return DS


            End If


        Catch ex As Exception


            Throw ex


            Return Nothing


        End Try


    End Function






    Public Property ConnString()Property ConnString() As String


        Get


            Return iConnstr


        End Get


        Set(ByVal value As String)


            iConnstr = value


        End Set


    End Property




    Public ReadOnly Property ConnState()Property ConnState()


        Get


            Return Conn.State.ToString


        End Get


    End Property






    Public Sub Close()Sub Close()


        Conn.Close()


    End Sub


End Class