como obtener el valor de un campo

[Yoli]

Hola a todos, estoy haciendo una consulta con un IBQuery que va asi:
select login, clave, id_perfil from usuarios where clave=: cla and login=:log

lo que quiero es extraer el valor de campo id_perfil para el registro obtenido y guardarlo en una variable (perf = string;) .

lo que llevo del codigo es lo siguiente:

with IBQUsuarios do
begin
ParamByName('USU').AsString:= txtUsuario.Text;
ParamByName('CLA').AsString:= txtClave.Text;
Active := true;

pero no se que instruccion debo colocar para guardar el valor del campo id_perfil en la variable perf. Bueno espero puedan aconsejarme con esto. chao y saludos de antemano.

[Héctor Randolph]

Hola Yoli!

Una forma de hacerlo sería la siguiente:


var
perf: String;
begin
.
.
with IBQUsuarios do
begin
ParamByName('USU').AsString:= txtUsuario.Text;
ParamByName('CLA').AsString:= txtClave.Text;
Active := true;
perf:=FieldByName('id_perfil').AsString;
.
.

end;


Otra forma posible sería


var
perf: String;
begin
.
.
with IBQUsuarios do
begin
ParamByName('USU').AsString:= txtUsuario.Text;
ParamByName('CLA').AsString:= txtClave.Text;
Active := true;
perf:=Fields[2].Value;// Considerando que login=0,clave=1,id_perfil=2
.
.

end;



Espero que alguna de estas te sea útil, un saludo

[Yoli]

Hola Hector gracias por tu ayuda, ya probe el codigo y me funciona perfectamente. Saludos y gracias de nuevo.