validacion de clave

[luisgutierrezb]

Porque no intentas:
ADOModulo.ADOQuery1.SQL.Clear;
ADOModulo.ADOQuery1.SQL.text:=('Select clave_mpo from municipios where clave_mpo=:cl');
ADOModulo.ADOQuery1.ExecSQL;
If ADOModulo.AdoQuery1.IsEmpty then
ShowMessage('La clave es Valida')
else
ShowMessage('La clave es Invalida');

[marcoszorrilla]

Hola Román, tienes razón en tu afirmación, pero lo que yo progongo funciona:

Código Delphi [-]
 procedure TForm1.Button1Click(Sender: TObject);
 begin
 Adoquery1.Close;
 Adoquery1.SQL.Clear;
 Adoquery1.SQL.Add('Select count(*) as Registros From Precios');
 Adoquery1.SQL.Add('Where codigo = ''001''');
 Adoquery1.Open;
 
   if Adoquery1.Fields[0].AsInteger = 0 then
   ShowMessage('No existe ningún Registro')
   else
   ShowMessage('Registros devueltos:'+Adoquery1.Fields[0].AsString);
 end;

Me estoy refiriendo no al número de registros devueltos, que como muy bien dices como mínimo sería uno, sino a la cuenta que si que arrojará 0 cuando no exista ningún registro que cumpla la condición.

Un Saludo.