¿Cómo agregar datos a la base de datos de acceso usando VB?

Dos métodos, uno es usar SQL y el otro es ADO

1. Usar SQL para agregar datos:

insertar en el nombre de la tabla (campo 1, campo 2, campo 3)

valores (valor 01, valor 02, valor 03)

Por ejemplo:

docmd.runsql"insertar en EmpTable (Nombre, edad, cargo, salario) valores ('Wang Ming', 35, 'Director de Comercio Exterior', 12500)"

2. Utilice ADO:

ADO es más complicado Dame un ejemplo completo:

Dim strSqlfitjc As String

strSqlfitjc = "select * from *table"

Set RSfitjc = New ADODB.Recordset. 'Definición Una conexión ADO, conectada a la base de datos

RSfitjc.Open strSqlfitjc, cn, adOpenKeyset, adLockOptimistic 'Abre la conexión

RSfitjc.addnew 'Agrega un registro

RSfitjc. Fields("Número de accesorio") = "estilo" 'Asignar un valor a cada campo

.Actualizar 'Guardar el nuevo registro de la asignación

.Cerrar Cerrar el conexión

Termina con