Conexion Visual Basic NET con ACCESS

[LuismanueL]

El siguiente ejemplo conecta a una base de datos Access para realizar una inserción.

Código:

Imports System.Data
Imports System.Data.OleDb
Imports System.Text

Public Class PruebaConexion
Dim cadenaConexion As String
cadenaConexion = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source = TU_BD; Jet OLEDB:Database Password=TU_PASSWORD "

    Public Sub Prueba()
        cadenaSQL = New StringBuilder
        Dim miConexion As New OleDbConnection(Me.CadenaConexion)
        miConexion.Open()

        cadenaSQL.Append("INSERT INTO TABLA_PRUEBA")
        cadenaSQL.Append("(id, descripcion) ")
        cadenaSQL.Append("VALUES(@id, @descripcion) ")
        
        Dim dbCommand As New OleDbCommand
        dbCommand.Connection = miConexion
        dbCommand.CommandText = cadenaSQL.ToString

        dbCommand.Parameters.Add(New OleDbParameter("@id", 1))
        dbCommand.Parameters.Add(New OleDbParameter("@descripcion", "Desc"))

        'Para controlar un posible error 
        Try
            dbCommand.ExecuteNonQuery()
        Catch ex As Exception
            MessageBox.Show(ex.Message)
            Return False
        End Try
        miConexion.Close() 'cerramos la conexion
    End Sub
End Class

Saludos.