Foros Club Delphi - Validaciones Con Consultas SQL

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- SQL (https://www.clubdelphi.com/foros/forumdisplay.php?f=6)

- - Validaciones Con Consultas SQL (https://www.clubdelphi.com/foros/showthread.php?t=64363)

Validaciones Con Consultas SQL

Hola:
Hace poco que estoy programando en Delphi y quisiera ayuda para que un formularion en donde se busca un cliente y donde se realizan cambios sobre los datos del mismo tenga validaciones que le indiquen al usuario que por ejemplo el dni ingresado es inexistente.

tengo el siguiente codigo el cual funciona, es decir, cuando se le ingresa un dni existente muestra los demas campos de datos pero cuando no existe el dni simplemente no hace nada. Mi pregunta es como y donde coloco el codigo para que me diga que no existe ese DNI, me imagino que la Base de Datos MySQL 2005 debe devolver algo cuando no existe el dato pero que???
estoy trabajando con delphi 2007.

Código Delphi [-] 
procedure TForm1.BitBTN1Click(Dender:TObject);
begin
  With DataModule2.AdoQuery1 do
     begin
        close;
        SQL.Clear;
        SQL.Add ('Select * from cliente where id_cliente= :dato');
        Parameters.ParamByName('dato').Value := StrToInt (DBEditDNI.Text);
        open;
      end;
end;

Muchas gracias

Cita:

Empezado por Sole_l (Mensaje 343062)

Código Delphi [-] procedure TForm1.BitBTN1Click(Dender:TObject); begin   With DataModule2.AdoQuery1 do      begin         close;
         SQL.Clear;
         SQL.Add ('Select * from cliente where id_cliente= :dato');
         Parameters.ParamByName('dato').Value := StrToInt (DBEditDNI.Text);
         open; 
      end;
 end;

Muchas gracias

....

Código Delphi [-]procedure TForm1.BitBTN1Click(Dender:TObject);
begin
  With DataModule2.AdoQuery1 do
     begin
        close;
        SQL.Clear;
        SQL.Add ('Select * from cliente where id_cliente= :dato');
        Parameters.ParamByName('dato').Value := StrToInt (DBEditDNI.Text);
        open;

if Adoquery1.RecordCount > 0 then
HacerCambios()
else
ShowMessage('No existe ese DNI.');

      end;
end;

Un Saludo.

o también:

Código Delphi [-]With DataModule2.AdoQuery1 do
 ...
 ...
 Open;
 IF not IsEmpty then
  HacerCambios();
 else
  showmessage('no existe');

Muchas gracias por responder tan pronto.
Las dos formas funcionan, mil gracias!!!!