Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Conexión con bases de datos (https://www.clubdelphi.com/foros/forumdisplay.php?f=2)
-   -   como obtener el valor de un campo (https://www.clubdelphi.com/foros/showthread.php?t=19708)

Yoli 23-03-2005 03:04:50

como obtener el valor de un campo
 
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 23-03-2005 03:32:28

Hola Yoli!

Una forma de hacerlo sería la siguiente:

Código Delphi [-]
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

Código Delphi [-]
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 23-03-2005 15:04:24

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


La franja horaria es GMT +2. Ahora son las 17:29:57.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi