Validar un DBEdit con delphi interbase

[vtdeleon]

Saludos

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.