VB .NET - Exemplo Básico de Aplicação com Conexão OLEDB

Olá, criei um exemplo básico de aplicação com conexão oledb e espero que gostem.

Código Fonte:

Imports System.Data.OleDb

Public Class Form1

    'BANCO DE DADOS SE ENCONTRA DENTRO DA PASTA BIN DA APLICAÇÃO, CERTO

    Public con As New System.Data.OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source= " & Application.StartupPath & "\db1.accdb")

    Private Sub limpa()

        Me.CodigoClienteTextBox.Clear()

        Me.ImportadorTextBox.Clear()

        Me.ExportadorTextBox.Clear()

        Me.TipoProcessoTextBox.Clear()

        Me.TransporteTextBox.Clear()

        Me.LocalEmbarqueTextBox.Clear()

    End Sub

    Private Sub btnGravar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnGravar.Click

        Try

            con.Open()

            Dim st As String = "INSERT INTO Instrucao (CodigoCliente,Importador,Exportador,TipoProcesso,Transporte,LocalEmbarque)" & _

                "VALUES('" & Me.CodigoClienteTextBox.Text & "','" & Me.ImportadorTextBox.Text & "','" & Me.ExportadorTextBox.Text & _

                "','" & Me.TipoProcessoTextBox.Text & "','" & Me.TransporteTextBox.Text & "','" & Me.LocalEmbarqueTextBox.Text & "')"

            Dim cmd As New OleDbCommand(st, con)

            cmd.ExecuteNonQuery()

            con.Close()

            limpa()

            MsgBox("dados salvos com sucesso")

        Catch ex As Exception

            MsgBox(ex.Message)

            con.Close()

        End Try

    End Sub

    Private Sub btnAlterar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAlterar.Click

        Try

            con.Open()

            Dim s1 As String = "UPDATE Instrucao SET CodigoCliente = " & Me.CodigoClienteTextBox.Text & ", Importador = " & _

                Me.ImportadorTextBox.Text & ", Exportador = " & Me.ExportadorTextBox.Text & ", TipoProcesso = " & _

                Me.TipoProcessoTextBox.Text & ", Transporte = " & Me.TransporteTextBox.Text & ", LocalEmbarque = " & _

                Me.LocalEmbarqueTextBox.Text & " WHERE CodigoCliente = " & Me.CodigoClienteTextBox.Text

            Dim cmnd As New OleDbCommand(s1, con)

            cmnd.ExecuteNonQuery()

            con.Close()

            limpa()

            MsgBox("dados alterados com sucesso")

        Catch ex As Exception

            MsgBox(ex.Message)

            con.Close()

        End Try

    End Sub

    Private Sub btnExcluir_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnExcluir.Click

        Try

            Dim st As String = "DELETE FROM Instrucao WHERE (CodigoCliente = " & Me.CodigoClienteTextBox.Text & ")"

            con.Open()

            Dim cmd As New OleDbCommand(st, con)

            cmd.ExecuteNonQuery()

            con.Close()

            limpa()

            MsgBox("dados deletados com sucesso")

        Catch ex As Exception

            MsgBox(ex.Message)

            con.Close()

        End Try

    End Sub

End Class

Download da base de dados: http://www.4shared.com/get/t4FWDJXR/db1.html

Espero ter ajudado e até a próxima...