Access: Vincular una base de datos con .Net

En una entrada posterior, había explicado los pasos para realizar una conexión a una base de datos MySQL utilizando .Net.

En esta ocasión, simplemente compartiré el código fuente para realizar una conexión a la base de datos, utilizando tres procedimientos: 

ProbarConexion() As Boolean Esta función devuelve verdadero si se puede establecer la conexión a la base de datos o devuelve falso en caso contrario.

DataTableSelect(ByVal dataSet As DataSet, ByVal sSQL As String) As DataSet. Es una función que devuelve una consulta a través de un dataset.

DataSQLSentence(ByVal sSQL As String) Es un procedimiento que envía una sentencia SQL a la base de datos. Este procediemiento lo utilizo para las sentencias INSERT, UPDATE y DELETE.

Esperando que la información sea de su utilidad:

Imports System.Data.OleDb

Public Class ClassConection
    Dim MdbSQLConnString As String = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Application.StartupPath & "\NOMINA97.MDB"
    Public MdbSQLConn As OleDbConnection = New OleDbConnection(MdbSQLConnString)

    Function ProbarConexion() As Boolean
        Dim value As Boolean = False
        Try
            MdbSQLConn.Open()
            MdbSQLConn.Close()
            value = True
        Catch ex As Exception
            value = False
            MessageBox.Show("Error de conexión a la base de datos." & vbCrLf & "Este error impide continuar con las operaciones del sistema." & vbCrLf & "La aplicación se cerrará!!", "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
            End
        End Try
        ProbarConexion = value
    End Function

    Public Function DataTableSelect(ByVal dataSet As DataSet, ByVal sSQL As String) As DataSet
        Dim adapter As New OleDbDataAdapter()

        Try
            If (ProbarConexion()) Then
                adapter.SelectCommand = New OleDbCommand(sSQL, MdbSQLConn)
                adapter.Fill(dataSet)
            End If
        Catch ex As Exception
            MessageBox.Show(ex.Message, "Metodo DataTableSelect", MessageBoxButtons.OK)
        Finally
            MdbSQLConn.Close()
        End Try

        Return dataSet

    End Function

    Public Sub DataSQLSentence(ByVal sSQL As String)

        Try
            If (Probarconexion()) Then
                'Declaración de variables de conexión propias de SQL
                Dim myCommand As New OleDbCommand(sSQL, MdbSQLConn)
                MdbSQLConn.Open()
                myCommand.ExecuteReader()
            End If
        Catch ex As Exception
            MessageBox.Show(ex.Message, "Método DataSQLSentence", MessageBoxButtons.OK)
        Finally
            MdbSQLConn.Close()
        End Try

    End Sub
End Class

Aquí les dejo la implementación de la clase:

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim CCon As New ClassConection
        Dim dsSQL As New Data.DataSet
        Dim sSQL As String = ""

        Try
            If (TextBox1.Text <> "") Then
                sSQL = TextBox1.Text
                CCon.DataTableSelect(dsSQL, sSQL)
                CCon = Nothing
                Me.DataGridView1.DataSource = dsSQL.Tables(0)
            End If
        Catch ex As Exception
            MessageBox.Show(ex.Message, "Método DataSQLSentence", MessageBoxButtons.OK)
        End Try


    End Sub