validacion de clave

[samuelabad]

Saludos a todos y gracias por su ayuda de antemano.

mi problema es que he estado tratando de hacer una funcion por medio de la cual valide cuando quiero agregar un registro a mi tabla si la clave que estoy ingresando ya existe y entonces me regrese un valor indicando esto pues de otra manera me manda un mensaje de error bien raro generado por el sql de que la clave que estoy ingresando ya existe.
No se si alguien me pudiera ayudar con esta funcion, la clave la ingreso a un edit y cuando doy click en el boton guardar es cuando debe de decir si la clave existe o no.
Gracias !!!

[roman]

¿Cuál es la sentencia SQL que estás usando y cuál es el texto del error que te genera?

// Saludos

[samuelabad]

ADOModulo.ADOQuery1.SQL.Clear;
ADOModulo.ADOQuery1.SQL.Add('Select clave_mpo from municipios where clave_mpo= (edit1.text)');
i:=ADOModulo.ADOQuery1.sql.rowsaffected;
No me deja ni compilarla me dice que no reconoce rowsaffected, Uso Delphi 7

[marcoszorrilla]

Pues yo utilizaría un simple Count, con la condición que pones y si devuelve registros es que ya existe el registro.

Un Saludo.

[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');