Ver Mensaje Individual
  #3  
Antiguo 05-08-2006
Avatar de vtdeleon
vtdeleon vtdeleon is offline
Miembro
 
Registrado: abr 2004
Ubicación: RD & USA
Posts: 3.236
Reputación: 24
vtdeleon Va por buen camino
Saludos

Cita:
Empezado por servicomp
y el segundo que creo es el mejor es usando una consulta SQL en el evento OnValidate del DBEdit el caul ocurre antes de beforeInsert y que según otros enlaces funcionan mucho mejor
Nunca he utilizado ese evento para tal caso, ni uno DBedit para buscar un dato.

Yo utilizaria un Edit normal y al presionar enter puedes buscarlo de la sigte 2 formas:

1ro - Con el método Locate del DataSet.
Código Delphi [-]
if table1.Locate('campo1',Edit1.Text,[]) then begin//Si se encuentra
//rutinas
end else begin//De lo coantrario
//rutinas
end;

2do - Agregar un Query.
Código Delphi [-]
with Query1 do begin
  sql.Text:='Select Count(*) from tabla1 where campo1=:valor';
  ParamByName('valor').AsString:=Edit1.Text;
  If Fields[0].AsInteger >0 then begin //si por lo menos hay mas de un registro
    //rutinas
  end else begin //de lo contrario
   /rutinas
  end;
end;

Bueno, esta es una de las forma de hacerlo.
__________________
Van Troi De León
(Not) Guía, Code vB:=Delphi-SQL, ¿Cómo?
Viajar en el tiempo no es teóricamente posible, pues si lo fuera, ya estarían aqui contándonos al respecto!
Responder Con Cita