ayuda con adoquery

[buffygcs]

Hola tengo un problema, estoy trabajando con una base de datos en sqlserver y antes de insertar un dato tengo que verificar en la tabla si existe o no para poder insertar
with adoquery1 do
begin
close;
sql.Clear;
sql.Add('select sistema_estudios from setstlm
where sistema_estudios= :valorclave');
Parameters.ParamByName('valorclave').Value:= clave.Text;
ExecSQL;
end;

el problema es que no se como recuperar el resultado, es decir como se si hubo registro o no.

Bueno espero que me puedan ayudar

[marcoszorrilla]

Modifica el SQL y lanza un Select Count y así sabras si hay resultados o no, bastará con saber que te devuelva registros.

Un Saludo.

[buffygcs]

hola gracias por tu ayuda pero ahora quiero obtener el resultado y asignarlo a una variable entera como le hago

[marcoszorrilla]

Código Delphi [-]
 procedure TForm1.Button1Click(Sender: TObject);
 begin
 edit1.Text:=Query1.Fields[0].AsString;
 end;

Un Saludo.

[MasterXP]

yo uso MySQL, ejemplo en MySQL:

Código Delphi [-]
  With Query1 DO
  Begin
  Close;
  SQL.Clear;
  SQL.Add('Select (Count(Distinct(TuCampo))) From TuTabla;')
  Open;
  Existe:=Fields[0].AsInteger;
  Close;
 end;

salu2.

[MasterXP]

Ahh, tambien he creado una funcion, que et sirve para saber si existe, y cual es el ultimo numero de un campo numerico en la DB.

Código Delphi [-]
 Function BancaNext(X:Integer):Integer;
 begin
 With Datamodule1 DO
 Begin
 ADOQueryGeneral.Close;
 ADOQueryGeneral.SQL.Clear;
 ADOQueryGeneral.SQL.Add('SELECT BANCA FROM empleados_Datos');
 ADOQueryGeneral.Open;
 ADOQueryGeneral.First;
 X:=ADOQueryGeneral.Fields[0].AsInteger;
 WHILE X=ADOQueryGeneral.Fields[0].AsInteger do
 begin
 X:=X+1;
 ADOQuerygeneral.Next;
 End;
 Result:=X;
 end;
 end;

espero te sirva, un salu2.