FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Buscar | Temas de Hoy | Marcar Foros Como Leídos |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
TDataSet Verificar registro duplicado
Hola, estoy intentando hacer que un TSqlite3DataSet impida la insercion de registros duplicados puesto que se trata de facturas.
Lo que se me ocurrio (soy muy nuevo en esto, perdon por las burradas) es checkear el evento "BeforePost" pero no he tenido suerte. El codigo es el siguiente, y el problema es que no cancela el post en cambio me crea igual un registro que queda completamente en blanco... En resumen, lo que yo espero es que no quede ningun rastro del registro, pero en vez de eso, me deja un registro con sus campos completamente vacios Código:
procedure TForm.TFacturas_cabBeforePost(DataSet: TDataSet); var query: String; begin query:='SELECT COUNT(nro_factura_cab) FROM facturas_cab WHERE nro_factura_cab='+QuotedStr(TFacturas_cabnro_factura_cab.Value); if not (TFacturas_cab.QuickQuery(query)='0') then begin TFacturas_cab.Cancel; MessageDlg('Esta factura ya existe!', mtError,[mbOk],0); end; end; |
Herramientas | Buscar en Tema |
Desplegado | |
|
|
Temas Similares | ||||
Tema | Autor | Foro | Respuestas | Último mensaje |
Copiar informacion de un Tdataset a otro Tdataset | joelphi | Varios | 10 | 19-02-2009 22:27:44 |
Verificar registro con trigger | fedelphi | Firebird e Interbase | 3 | 20-12-2006 12:57:43 |
como capturar error de registro duplicado | ajmr81 | Firebird e Interbase | 3 | 17-10-2006 10:36:07 |
Registro Duplicado En Query | jmedina | SQL | 2 | 29-11-2004 22:11:47 |
Registro Duplicado | jmedina | Conexión con bases de datos | 0 | 17-11-2004 19:53:34 |
|