SoloCodigo

Programación General => Delphi => Mensaje iniciado por: Bachoco en Jueves 15 de Marzo de 2007, 17:38

Título: Dbedit Y Ado
Publicado por: Bachoco en Jueves 15 de Marzo de 2007, 17:38

Hola ------ tengo un problema, se guardar lo que tengo en un dbedit en una tabla, pero cada vez que paso a otro dbedit se guarda automaticamente en la tabla y yo lo que quiero es que si lo que escribi en el dbedit ya existe en un determinado campo de la tabla no me lo guarde y me diga que ya existe y si no que siga guardando........ayudenme

Título: Re: Dbedit Y Ado
Publicado por: juanlaplata en Martes 20 de Marzo de 2007, 13:45

Yo te recomiendo en ese caso que uses un Edit para cada campo.
De esta manera haces vos por voluntad propia el insert, de lo contrario lo hace automatico la coneccion DBEdit.
Entonces q la hora de insertar lo haces previa busqueda

Código: Text

1.  
2. if not (Tabla.Locate('Campo1',Edit1.text,[loPartialKey,loCaseInsensitive])) then
3.    begin
4. //Aqui una de las dos Append o Edit
5. //Tabla.Edit; // Edita el registro Actual    
6.    Tabla.append; //Agrega nuevo Registro
7.    TablaCampo1.asString:= Edit1.Text;
8.    Tabla.post;
9.    end;
10.  
11.  

Para que te reconosca "TablaCampo1" todo junto haces doble click sobre la tabla y le das addAll, lo que se hace con esto es dar acceso directo a cada registro de la tabla. Lo que esta a continuacion ".asString" es la manera que lo vas a tratar, puede que el campo sea o no string.

Si no para no tener que modificar tanto tu codigo deberias ir probando con el estado de edicion de la tabla, en el  onchange del DBEdit verificar que no exista el dato que se esta escrib. Si existe que avise.
Bueno espero te sirva, Suerte.