Foro de elhacker.net

Programación => Programación Visual Basic => Mensaje iniciado por: R3Z en 21 Julio 2015, 22:08 pm



Título: Data Control VB6?
Publicado por: R3Z en 21 Julio 2015, 22:08 pm
Alguien puede decir por que me sale error    este codigo lo tengo en un solo commando cada vez que le doy me sale error

Código
  1. Private Sub Command2_Click()
  2. Data1.Recordset.FindFirst ("Codigo='" & TXTCodigo & "'")
  3. If Data1.Recordset.NoMatch = True Then
  4. Data1.Recordset.AddNew
  5. Data1.Recordset!Codigo = TXTCodigo
  6. Data1.Recordset!Descripcion = TXTDescripcion
  7. Data1.Recordset!Aula = TXTAula
  8. Data1.Recordset.Update
  9. MsgBox "Registro Adicionado"
  10. Else
  11. Data1.Recordset.Edit
  12. MsgBox "Registro Editado"
  13. Data1.Recordset.AddNew
  14. Data1.Recordset!Codigo = TXTCodigo
  15. Data1.Recordset!Descripcion = TXTDescripcion
  16. Data1.Recordset!Aula = TXTAula
  17. Data1.Recordset.Update
  18.  
  19.  


Título: Re: Data Control VB6?
Publicado por: Cj2009z en 21 Abril 2016, 05:12 am
mmmm a la hora de modificar un registro, no debes de agregar el método .addnew sino que simplemente .update, intenta y comentas.