Tecnología

Inicio

Cómo insertar un registro en la base de datos VBA

February 3

VBA es un lenguaje de programación desarrollado por Microsoft para su uso dentro de una serie de productos de Microsoft, incluyendo Microsoft Office. Los programadores pueden crear bases de datos en un programa, como el acceso, y luego insertar datos en la base de datos de otra aplicación, como Excel. Acceso a una base de datos para insertar un registro en él desde VBA requiere una conexión con la base de datos dentro de su código VBA; el establecimiento y la inserción de los registros de una base de datos en VBA es bastante fácil para un programador novato para llevar a cabo en unos pocos pasos.

Instrucciones

1 Abra Microsoft Excel.

2 Haga clic en "Herramientas", "Macro" y haga clic en "Visual Basic". Esto abrirá el entorno de programación VBA.

3 Haga clic en "Insertar" y "Módulo". Ahora se encuentra en un módulo de código de programación.

4 Escribir o copiar y pegar los siguientes procedimientos secundarios en el módulo de código:

ADOFromExcelToAccess sub ()

'Exportaciones de datos de la hoja de cálculo activa a una tabla en una base de datos Access

'Este procedimiento debe ser editado antes de su uso

Dim cn Como ADODB.Connection, rs As ADODB.Recordset, r As Long

' connect to the Access database

Set cn = New ADODB.Connection

cn.Open "Provider = Microsoft.Jet.OleDb.4.0;" & _

"Datos de origen = C: \ FolderName \ nombreBaseDeDatos.mdb;"

'Abrir un conjunto de registros

Set rs = New ADODB.Recordset

rs.open "TableName", cn, adOpenKeyset, adLockOptimistic, adCmdTable

'Todos los registros de una tabla

r = 3 'de la fila de inicio en la hoja de cálculo

Hacer mientras que Len (Range ( "A" & r) .Formula)> 0

'Repetir hasta la primera celda vacía de la columna A

con rs

.AddNew 'Crear un nuevo registro

"Añadir valores a cada campo en el registro

.Fields ( "FieldName1") = Range ( "A" & r) .Value

.Fields ( "FieldName2") = Range ( "B" & r) .Value

.Fields ( "FieldNameN") = Range ( "C" & r) .Value

'Añadir más campos si es necesario ...

tiendas .Update 'El nuevo registro

Terminar con

r = r + 1 'fila siguiente

Lazo

rs.Close

Set rs = Nothing

cn.Close

Set cn = Nada

End Sub

La plantilla de código crea una conexión a una base de datos de acceso VBA e inserta varios registros dentro de ella. Asegúrese de sustituir el nombre de la carpeta y el nombre de base de datos con la base de datos y la carpeta de nombre real para que esto funcione.