validacion de clave

[roman]

Marcos, creo que no es correcto esto que dices. Si hace un COUNT, siempre regresará un registro, aun cuando su valor sea cero.

// Saludos

[samuelabad]

Intente con esto pero aun asi me manda error del sql cuando agrego una clave ya ingresada, osea no me valida todabia

i:=0;
ADOModulo.ADOQuery1.SQL.Clear;
ADOModulo.ADOQuery1.SQL.text:=('Select clave_mpo from municipios where clave_mpo=:cl');
ADOModulo.ADOQuery1.ExecSQL;
i:=ADOModulo.ADOQuery1.rowsaffected;
if i=0 then
ShowMessage('La clave es Valida')
else
ShowMessage('La clave es Invalida');

[roman]

RowsAffected te devuelve el número de registros afectados (modificados o borrados). Tú estás seleccionando registros, no afectándolos en forma alguna. De ahí que no te funcione.

// Saludos

[vtdeleon]

Saludos

Bueno, he hecho una prueba con IBx y Firebird, y RowsAffected me devuelve un valor con Select. No se si Con Ado sea diferente

[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.