ADO parece estar todo bien (sino fuera por un error)

andru
31 de Diciembre del 2003
quiero agregar un registro y no se porque capas estoy asiendo algo mal
el unico cambio que veo es en el campo autonumerico que se incrementa, tengo 5 registro pongo añadir y el campo autonumerico pasa a 6
pero no me muestra nda no se agrega nada luego apreto añadir y el campo autonumrico pasa a 7 ..........

este es el codigo casi completo

Option Explicit
Private Base As ADODB.Connection
Private WithEvents RecorSet As ADODB.Recordset

Private Sub Form_Load()

Const RutadeAcceso As String = "C:Documents and SettingslMis documentoscontroldatos.mdb"

Set Base = New ADODB.Connection
Set RecorSet = New ADODB.Recordset


With Base
.ConnectionString = _
"Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & RutadeAcceso & ";"
.Open

End With

RecorSet.Open "SELECT * FROM personas", Base, adOpenDynamic, adLockBatchOptimistic
End Sub

.....................................
Private Sub CmdActualizar_Click()

With RecorSet
.Fields("Nombre").Value = Text2.Text & ""
.Fields("Apellido").Value = Text3.Text & ""
.Fields("Direccion").Value = Text4.Text & ""
.Fields("Ciudad").Value = Text5.Text & ""
.Fields("Telefono").Value = Text6.Text & ""
.Fields("email").Value = Text7.Text & ""
End With
RecorSet.Update

RecorSet.MoveLast

End Sub

Private Sub cmdAñadir_Click()
RecorSet.AddNew
Text2 = "nuevo"
End Sub


primero hago click en añadir ingreso los datos y luego en actualizar



tambien prove con esto


Private Sub cmdAñadir_Click()
RecorSet.AddNew
With RecorSet
.Fields("Nombre").Value = Text2.Text & ""
.Fields("Apellido").Value = Text3.Text & ""
.Fields("Direccion").Value = Text4.Text & ""
.Fields("Ciudad").Value = Text5.Text & ""
.Fields("Telefono").Value = Text6.Text & ""
.Fields("email").Value = Text7.Text & ""
End With
RecorSet.Update

RecorSet.MoveLast


End Sub



Baltasar
31 de Diciembre del 2003
En principio parece que todo lo que has puesto está correcto, tanto el primer ejemplo como el segundo.
Tal vez no estés comprobando bien el contenido de la base de datos, o los TextBox estén vacíos en el momento de agregar el registro.

Siento no poder decirte nada más.

Saludos y Feliz Año Nuevo.

andru
31 de Diciembre del 2003
la verdad que no entiendo hice la base de datos de nuevo y nada , parece que los registros se pierden..... y si apreto de nuevo en actualizar me larga un error : (" el numero de filas con cambios pendientes excedio el limite definido")