SoloCodigo

Programación General => Visual Basic 6.0 e inferiores => Mensaje iniciado por: agfed en Martes 3 de Febrero de 2004, 17:12

Título: Actualizar El Recordset De Un Adodc
Publicado por: agfed en Martes 3 de Febrero de 2004, 17:12

Yo queria hacer cambios en un resgistro para despues actualizarlos con un cmdbtn que tiene el siguiente codigo, pero hace caso omiso de los cambios por ejemplo del campo "nombre" en una tabla de una base de datos acces2000. Ademas de que no me reporta ningun error. ¿Que esta mal?.

Nota: Los campos text4 del 0 al 3 estan ligados a los campos mediante codigo en el evento load (al verificar la liga en estas lineas, me declara que si estan ligados).
El adodc le puse el nombre usuariosdc

Private Sub btnguarda2_Click()

    With Me.usuariosdc
        .ConnectionString = _
            "Provider=Microsoft.Jet.OLEDB.4.0;" & _
            "Data Source=" & sbase & ";"
        ' Indicarle de que tabla vamos a leer los datos
        .RecordSource = "usuarios"
    End With
    usuariosdc.Refresh
   
    usuariosdc.Recordset.bookmark = bookmark
   
    Text4(0).Text = Val(Text1.Text)
    Text4(1).Text = Text2.Text
    Text4(2).Text = Val(text3.Text)
    Text4(3).Text = " "

usuariosdc.Recordset.Update
usuariosdc.Recordset.Close

Título: Re: Actualizar El Recordset De Un Adodc
Publicado por: Brroz en Miércoles 4 de Febrero de 2004, 15:14

Hola agfed.

El tema lo solucionas fácilmente sustituyendo la asignación de valores a Text4(n) por la asignación a los correspondientes campos del recordset, es decir:

en vez de...

Código: Text

1.  
2. Text4(0).Text = Val(Text1.Text)
3. Text4(1).Text = Text2.Text
4. Text4(2).Text = Val(text3.Text)
5. Text4(3).Text = " "
6.  
7.  

usa esto otro...

Código: Text

1.  
2. usuariosdc.Recordset.Fields("NombreCampo0") = Val(Text1.Text)
3. usuariosdc.Recordset.Fields("NombreCampo1") = Text2.Text
4. usuariosdc.Recordset.Fields("NombreCampo2") = Val(text3.Text)
5. usuariosdc.Recordset.Fields("NombreCampo3") = " "
6.  
7.  

En vez de 'NombreCampoX' puedes utilizar el índice del campo.

Suerte.

Título: Re: Actualizar El Recordset De Un Adodc
Publicado por: QliX=D! en Miércoles 4 de Febrero de 2004, 20:29

Tambien abrilo en AdOpenDynamic no como ForwardOnly que es la opcion por defecto.