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

Escrito por bobson st. pierre | Traducido por elizabeth garay ruiz
Cómo insertar un registro en una base de datos VBA

VBA es un lenguaje de programación desarrollado por Microsoft.

Hemera Technologies/PhotoObjects.net/Getty Images

VBA es un lenguaje de programación desarrollado por Microsoft para usarlo dentro de un número de productos Microsoft, incluyendo Microsoft Office. Los programadores pueden crear bases de datos en un programa, como Access e insertar los datos en la base de otra aplicación, como Excel. Acceder a una base de datos para insertar un registro en VBA requiere una conexión a la base de datos dentro del código VBA; estableciendo e insertando registros en la base de datos en VBA es lo suficientemente fácil para un programador nuevo para que cumpla con pocos pasos.

Nivel de dificultad:
Moderado

Otras personas están leyendo

Instrucciones

  1. 1

    Abre Microsoft Excel.

  2. 2

    Haz clic en "Tools" (Herramientas) "Macro" y "Visual Basic". Esto abrirá el ambiente de programación VBA.

  3. 3

    Haz clic en "Insert" (Insertar) y "Module" (Modular). Ahora estás en el módulo de código de programación.

  4. 4

    Teclea o copia y pega los siguientes subprocedimientos en el módulo de código: Sub ADOFromExcelToAccess() ' exports data from the active worksheet to a table in an Access database ' this procedure must be edited before use Dim cn As 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; " & _ "Data Source=C:\FolderName\DataBaseName.mdb;" ' open a recordset Set rs = New ADODB.Recordset rs.Open "TableName", cn, adOpenKeyset, adLockOptimistic, adCmdTable ' all records in a table r = 3 ' the start row in the worksheet Do While Len(Range("A" & r).Formula) > 0 ' repeat until first empty cell in column A With rs .AddNew ' create a new record ' add values to each field in the record .Fields("FieldName1") = Range("A" & r).Value .Fields("FieldName2") = Range("B" & r).Value .Fields("FieldNameN") = Range("C" & r).Value ' add more fields if necessary... .Update ' stores the new record End With r = r + 1 ' next row Loop rs.Close Set rs = Nothing cn.Close Set cn = Nothing End Sub La plantilla de código crea una conexión a una base de datos de acceso VBA e inserta varios registros dentro. Asegúrate de reemplazar el nombre de la carpeta y de la base de datos con tu actual base de datos y carpeta para este trabajo.

No dejes de leer...

Filtrar por:
  • Mostrar todos
  • Artículos
  • Galerías de fotos
  • Videos
Ordenar:
  • Más relevante
  • Más popular
  • Más reciente

No se encuentran artículos disponibles

No se encuentran slideshows disponibles

No se encuentran videos disponibles

Copyright © 1999-2014 Demand Media, Inc. Acerca de

El uso de este sitio constituye la aceptación de los términos y política de privacidad de eHow. Ad Choices es-US

Demand Media