ADO... añadir un registro nuevo
hola tengo um problemita resulta que tengo una base de datos en access 2000 y un formulario ue supuestamente tendria que servir entre otras cosas para ingresar registro nuevos pero me manda un error este es el codigo
Private Sub cmdAñadir_Click()
Recorset.AddNew
Text2.Text = "Nuevo"
Recorset.Update
Recorset.MoveLast
End Sub
me larga el error que dice "el numero de filas con cambios pendientes excedio el limite definido"
Private Sub cmdAñadir_Click()
Recorset.AddNew
Text2.Text = "Nuevo"
Recorset.Update
Recorset.MoveLast
End Sub
me larga el error que dice "el numero de filas con cambios pendientes excedio el limite definido"
No veo dónde cambias el contenido del registro, es decir después que le dices AddNew tienes que decirle algo como:
Recordset.Fields(nombre del campo)= Text2.Text
y luego recordset.Update
Espero que sea esa tu duda.
Recordset.Fields(nombre del campo)= Text2.Text
y luego recordset.Update
Espero que sea esa tu duda.
disculpen que no fui demaciado claro tengo un boton que se supone que anade un registro (cmdAñadir) y otro (cmdAtualizar) que tiene el siguente codigo
Private Sub CmdActualizar_Click()
With Recorset
'
.Fields("Nombre") = Text2 & ""
.Fields("Apellido") = Text3 & ""
.Fields("Direccion") = Text4 & ""
.Fields("Telefono") = Text5 & ""
.Fields("mail") = Text6 & ""
.Update
End With
End Sub
pero lo que pasa ahora es lo siguiente hago clik en el boton añadir y el campo autonumerico cambia escribo los datos y hago clik en actualizar
pero no hace nada no veo el registro nuevo igual voy a la base de datos y la habro con access y no hay ningun registro nuevo pero si vuelvo a cargar el programa el campo autonoumerico me marca 9
me cuenta el ultimo que agregue
Private Sub CmdActualizar_Click()
With Recorset
'
.Fields("Nombre") = Text2 & ""
.Fields("Apellido") = Text3 & ""
.Fields("Direccion") = Text4 & ""
.Fields("Telefono") = Text5 & ""
.Fields("mail") = Text6 & ""
.Update
End With
End Sub
pero lo que pasa ahora es lo siguiente hago clik en el boton añadir y el campo autonumerico cambia escribo los datos y hago clik en actualizar
pero no hace nada no veo el registro nuevo igual voy a la base de datos y la habro con access y no hay ningun registro nuevo pero si vuelvo a cargar el programa el campo autonoumerico me marca 9
me cuenta el ultimo que agregue
lo que veo en tu codigo es que estas haciendo un addnew pero no estas agregando ningun registro y luego haces un update
tu codigo deberia ser asi
Recorset.AddNew
recordset.fields("nombre").value="hola"
Recorset.Update
Recorset.MoveLast
aqui recordset.fields("nombre").value hace referencia al campo nombre de tu tabla asignada al recordset.
espero se entienda
suerte
tu codigo deberia ser asi
Recorset.AddNew
recordset.fields("nombre").value="hola"
Recorset.Update
Recorset.MoveLast
aqui recordset.fields("nombre").value hace referencia al campo nombre de tu tabla asignada al recordset.
espero se entienda
suerte