Anónimo
Actualización tabla access con VB
Hola! Estoy trabajando en un access y hasta ahora he podido ir resolviendo las necesidades con las consultas de access y macros. Pero ahora necesito actualizar todos los registros devueltos por una consulta para lo que necesito un ciclo y creo que las consultas de access no me lo permiten.
Mi pregunta es si me podrías mostrar una consulta a BD por medio de VB, que variables hay que declarar, como se realiza la conexión etc. La idea sería hacer un Select * FROM tabla1 WHERE id=$campo_formulario, y un ciclo WHILE donde modifico campo1=$valor para cada uno de los registros devueltos.
Sobre todo me interesa el tema de la conexión porque he buscado ejemplos y todos me generan errores.
Mil gracias!
Mi pregunta es si me podrías mostrar una consulta a BD por medio de VB, que variables hay que declarar, como se realiza la conexión etc. La idea sería hacer un Select * FROM tabla1 WHERE id=$campo_formulario, y un ciclo WHILE donde modifico campo1=$valor para cada uno de los registros devueltos.
Sobre todo me interesa el tema de la conexión porque he buscado ejemplos y todos me generan errores.
Mil gracias!
1 Respuesta
Respuesta de luis45ccs
1
Los errores son producidos seguramente por la falta de adaptación a lo que tienes
Como ejemplo pon esto en un botón
Private Sub Boton_click()
Dim r As Recordset
Set r = CurrentDb.OpenRecordset("Tabla", dbOpenDynaset)
If r.RecordCount > 0 Then
r.MoveLast
r.MoveFirst
For a = 1 To r.RecordCount
If r!Código <> Código Then
r.Edit
r!Predeterminado = False
r.Update
End If
r.MoveNext
Next
End If
End Sub
Como ejemplo pon esto en un botón
Private Sub Boton_click()
Dim r As Recordset
Set r = CurrentDb.OpenRecordset("Tabla", dbOpenDynaset)
If r.RecordCount > 0 Then
r.MoveLast
r.MoveFirst
For a = 1 To r.RecordCount
If r!Código <> Código Then
r.Edit
r!Predeterminado = False
r.Update
End If
r.MoveNext
Next
End If
End Sub
Mi correo es [email protected] si quieres, enviame lo que tienes y te podre ayudar más