Validaciones Con Consultas SQL

[marcoszorrilla]

Empezado por Sole_l

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.