Insertar registros en base access

Hola Kieleze: Necesito saber como sería el código para agregar registros en una base access. Lo que hago es leer un archivo .txt y debo actualizar una base. ¿Me podrías ayudar a resolverlo?
Tengo esto:
Private Sub Form_Load()
Dim Datos As String
Dim Registro As String
Dim NumeroLote As String
Dim Cliente As String
Dim Respuesta as String
Open "d:\Temp\Recibido\Archivo.txt" For Input As #1
Do While Not EOF(1)
Line Input #1, Datos
Registro = Datos
NumeroLote = Mid(Registro, 1, 5)
Cliente = Mid(Registro, 6, 6)
Respuesta = Mid(Registro, 8, 2)
......acá me faltaría el código
Loop
Close #1
End Sub
En Access 2000 es donde tengo la tabla que tiene 4 columnas: id(autonumérico), Lote (numérico), Clte (numérico) y Resp (alfanumérico).
Desde luego, gracias por lo que me puedas aportar.
Saludos

1 respuesta

1
Respuesta de
Hola necesito saber si haces la conexión a la base de datos por medio de un control (data o adodc)
O si lo haces por código
Dim rstGuardar As Recordset
' este seria el recordset
'bd es una variable global que esta conectada a la base de datos Set bd = OpenDatabase(BDpath) 'bdpath es la direccion a la base de datos
Set rstGuardar = bd.OpenRecordset("select * from TABLA; ", dbOpenDynaset)
ESTO DE ARRIBA SE HARIA UNA SOLA
Esto de abajo sería lo que se repite cada vez que tomas desde el archivo de texto un nuevo registro
With rstGuardar
.AddNew
.Fields("lote") = numeroLote
.Fields("Clte") = cliente
.fields("Resp") = respuesta
.Update
End With
Con esto estaría bien...
Si necesitas alguna explicación más no dudes en volver a preguntar...
Si necesitas ayuda para conectar a la base decime como quieres hacerlo. Con que control
Un saludo de ezequiel
Desde rosario argentina
Por favor no olvides puntuar la respuesta
Añade un comentario a esta respuesta
Añade tu respuesta
Haz clic para o
Escribe tu mensaje