Club Delphi  
    Paypal   FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > SQL
Registrarse FAQ Miembros Calendario Guía de estilo Buscar Temas de Hoy Marcar Foros Como Leídos

 
 
Herramientas Buscar en Tema Desplegado
  #4  
Antiguo 01-10-2004
Avatar de Investment
Investment Investment is offline
Miembro
 
Registrado: may 2003
Posts: 378
Poder: 24
Investment Va por buen camino
Código:
//Cerramos y desactivamos la consulta.
Query_control_usuario.Active:=false;
Query_control_usuario.Close;
//Pasamos los parametros a la consulta.
Query_control_usuario.ParamByName('nu').AsString := Form2.Edit1.Text;
//Activamos y Abrimos la consulta.
Query_control_usuario.Active:=true;
Query_control_usuario.Open;
//Guardamos el resultado de la consulta en una variable ya declarada arriba.
resultado := query_control_usuario.FieldByName('TipoUsuario').AsString;
//Dependiendo del resultado que nos devuelva la consulta se haran distintas cosas.
If resultado='Administrador' then
  gbadmin.Visible:=true
else
  gbadmin.Visible:=false;
end;
Para controlar si te devuelve algun valor tu query deberias hacer lo siguiente antes del if:
Código:
 
  if Query_control_usuario.EOF then
    ShowMessage('La consulta no ha devuelto nada')
  else
    ShowMessage('La consulta ha devuelto: ' + resultado  )
__________________
Saludos,
Peter Investment
Responder Con Cita
 


Herramientas Buscar en Tema
Buscar en Tema:

Búsqueda Avanzada
Desplegado

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 12:40:28.


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