lunes, 17 de febrero de 2014

INSERTAR DATOS DESDE VBA EXCEL A MS.ACCESS


VBA Excel es un apoderosa herramienta que inclusive puede insertar datos desde un Userform a una tabla de una base de datos de Ms. access.

Ingresa a Excel y presiona la combinación Alt + F11:
Diseña un UserForm o formulario como el siguiente:



Vaya al menú Herramientas /Referencias/ Microsoft ActiveX data Objects 2.8

programa el botón de Insertar con el siguiente código VBA


Private Sub CommandButton1_Click()
Dim cs As String
    Dim sPath As String
    Dim sql As String
    Dim cn As ADODB.Connection

    sPath = ThisWorkbook.Path & "\datos.accdb"
    cs = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & sPath & ";Persist Security Info=False;"

    Set cn = New ADODB.Connection
    cn.Open cs

    sql = "insert into estudiantes (id,nombre, apellido) values('" & TextBox1.Text & "', '" & TextBox2.Text & "','" & TextBox3.Text & "')"

    cn.Execute sql

    cn.Close

    Set cn = Nothing
End Sub

1 comentario: