problemas con recordset.update
Publicado por jose (2 intervenciones) el 03/06/2009 10:53:35
Hola gracias de antemano
alguien sabe por que no me actualiza el registro y me devuelve el mensaje de no se puede encontral la fila para su actualizacion.
con el text2 compruebo el recordset localizado y es el correcto
Private Sub cmdUpdate_Click()
Adodc1.RecordSource = "select * from proveedores.proveedores Where IdProveedor='" & Text1 & "'"
Adodc1.Refresh
Text2 = Adodc1.Recordset!NombreProveedor
Adodc1.Recordset!NombreProveedor = txtFields.Item(1)
Adodc1.Recordset!NombreDelContacto = txtFields.Item(2)
Adodc1.Recordset!cargocontacto = txtFields.Item(3)
Adodc1.Recordset!direccion = txtFields.Item(4)
Adodc1.Recordset!ciudad = txtFields.Item(5)
Adodc1.Recordset!codpostal = txtFields.Item(6)
Adodc1.Recordset!EdoOProv = txtFields.Item(7)
Adodc1.Recordset!pais = txtFields.Item(8)
Adodc1.Recordset!telefono = txtFields.Item(9)
Adodc1.Recordset!fax = txtFields.Item(10)
Adodc1.Recordset!movil = txtFields.Item(11)
Adodc1.Recordset!CondicionesDePago = txtFields.Item(12)
Adodc1.Recordset!numcuenta1 = txtFields.Item(13)
Adodc1.Recordset!numcuenta2 = txtFields.Item(14)
Adodc1.Recordset!email = txtFields.Item(15)
Adodc1.Recordset!notas = txtFields.Item(16)
Adodc1.Recordset!formapago = txtFields.Item(17)
Adodc1.Recordset!producto = txtFields.Item(18)
Adodc1.Recordset!Tipo = txtFields.Item(19)
Adodc1.Recordset!fechaomo = txtFields.Item(21)
Adodc1.Recordset!fecharev = txtFields.Item(23)
Adodc1.Recordset.Update
Adodc1.Refresh
End Sub
alguien sabe por que no me actualiza el registro y me devuelve el mensaje de no se puede encontral la fila para su actualizacion.
con el text2 compruebo el recordset localizado y es el correcto
Private Sub cmdUpdate_Click()
Adodc1.RecordSource = "select * from proveedores.proveedores Where IdProveedor='" & Text1 & "'"
Adodc1.Refresh
Text2 = Adodc1.Recordset!NombreProveedor
Adodc1.Recordset!NombreProveedor = txtFields.Item(1)
Adodc1.Recordset!NombreDelContacto = txtFields.Item(2)
Adodc1.Recordset!cargocontacto = txtFields.Item(3)
Adodc1.Recordset!direccion = txtFields.Item(4)
Adodc1.Recordset!ciudad = txtFields.Item(5)
Adodc1.Recordset!codpostal = txtFields.Item(6)
Adodc1.Recordset!EdoOProv = txtFields.Item(7)
Adodc1.Recordset!pais = txtFields.Item(8)
Adodc1.Recordset!telefono = txtFields.Item(9)
Adodc1.Recordset!fax = txtFields.Item(10)
Adodc1.Recordset!movil = txtFields.Item(11)
Adodc1.Recordset!CondicionesDePago = txtFields.Item(12)
Adodc1.Recordset!numcuenta1 = txtFields.Item(13)
Adodc1.Recordset!numcuenta2 = txtFields.Item(14)
Adodc1.Recordset!email = txtFields.Item(15)
Adodc1.Recordset!notas = txtFields.Item(16)
Adodc1.Recordset!formapago = txtFields.Item(17)
Adodc1.Recordset!producto = txtFields.Item(18)
Adodc1.Recordset!Tipo = txtFields.Item(19)
Adodc1.Recordset!fechaomo = txtFields.Item(21)
Adodc1.Recordset!fecharev = txtFields.Item(23)
Adodc1.Recordset.Update
Adodc1.Refresh
End Sub
Valora esta pregunta


0