Club Delphi  
    Paypal   FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Conexión con bases de datos
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

Conexión con bases de datos

 
 
Herramientas Buscar en Tema Desplegado
  #2  
Antiguo 23-03-2005
Avatar de Héctor Randolph
[Héctor Randolph] Héctor Randolph is offline
Miembro Premium
 
Registrado: dic 2004
Posts: 882
Poder: 22
Héctor Randolph Va por buen camino
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
Responder Con Cita
 



Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro


La franja horaria es GMT +2. Ahora son las 04:04:37.


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