Club Delphi  
    Paypal   FTP   CCD     Buscar   Trucos   Trabajo   Foros

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

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 14-12-2015
Avatar de Casimiro Noteví
Casimiro Noteví Casimiro Noteví is offline
Merodeador
 
Registrado: sep 2004
Ubicación: En algún lugar.
Posts: 32.681
Poder: 10
Casimiro Noteví Tiene un aura espectacularCasimiro Noteví Tiene un aura espectacular
Pon el código que lo veamos
Responder Con Cita
  #2  
Antiguo 14-12-2015
Gusso Gusso is offline
Miembro
NULL
 
Registrado: oct 2015
Posts: 11
Poder: 0
Gusso Va por buen camino
Codigo

Cita:
Empezado por Casimiro Notevi Ver Mensaje
Pon el código que lo veamos
Aqui esta mi codigo lo ejecuto un boton "aceptar"
Código Delphi [-]
procedure TForm1.IniciarClick(Sender: TObject);
begin
with datamodule2 do
begin
ql.SQL.Text:='Select idEmpleados, Password, AreaTrab from empleados where AreaTrab=:"box" and idEmpleados=:log and Password=:"pass"';
ql.Parameters.ParamByName('log').Value:=Edit1.Text;
ql.Parameters.ParamByName('pass').Value:=Edit2.Text;
ql.Parameters.ParamByName('box').Value:=Box.Text;
ql.Open;
  if ql.RecordCount=1 then
    begin
      ShowMessage('BIENVENIDO');
      Form1.hide;
      //Form3.Show;
        if box.Text= 'Medicina' then Form3.Show;
        if box.Text= 'Farmacia' then Form7.Show;
        if box.Text= 'Administrativo' then Form8.Show;
    end
    else
      begin
        ShowMessage('Error en usuario y/o contraseña');
        e:=e+1;
      end;
if e=3 then
  begin
    Button2.Click;
  end;
edit2.Text:='';
end;

Última edición por Casimiro Noteví fecha: 14-12-2015 a las 12:47:44.
Responder Con Cita
  #3  
Antiguo 14-12-2015
Avatar de Casimiro Noteví
Casimiro Noteví Casimiro Noteví is offline
Merodeador
 
Registrado: sep 2004
Ubicación: En algún lugar.
Posts: 32.681
Poder: 10
Casimiro Noteví Tiene un aura espectacularCasimiro Noteví Tiene un aura espectacular
Código Delphi [-]
ql.SQL.Text:='Select idEmpleados, Password, AreaTrab from empleados where AreaTrab=:"box" and idEmpleados=:log and Password=:"pass"';
Para empezar, quita esas comillas de los parámetros.
Código Delphi [-]
ql.SQL.Text:='Select idEmpleados, Password, AreaTrab from empleados where AreaTrab=:box and idEmpleados=:log and Password=: pass';

Y recuerda poner los tags al código fuente, ejemplo:



Gracias
Responder Con Cita
  #4  
Antiguo 15-12-2015
Gusso Gusso is offline
Miembro
NULL
 
Registrado: oct 2015
Posts: 11
Poder: 0
Gusso Va por buen camino
Muchas gracias, lo hare... pero alguna sugerencia con mi problema?
Responder Con Cita
  #5  
Antiguo 15-12-2015
Avatar de Casimiro Noteví
Casimiro Noteví Casimiro Noteví is offline
Merodeador
 
Registrado: sep 2004
Ubicación: En algún lugar.
Posts: 32.681
Poder: 10
Casimiro Noteví Tiene un aura espectacularCasimiro Noteví Tiene un aura espectacular
Cita:
Empezado por Gusso Ver Mensaje
Muchas gracias, lo hare... pero alguna sugerencia con mi problema?
Pero si te he puesto la solución
Responder Con Cita
  #6  
Antiguo 15-12-2015
Gusso Gusso is offline
Miembro
NULL
 
Registrado: oct 2015
Posts: 11
Poder: 0
Gusso Va por buen camino
Cita:
Empezado por Casimiro Notevi Ver Mensaje
Pero si te he puesto la solución
Pero el quitar las comillas no me resolvio mi problema, aun sigue sin diferenciar en el password minusculas y mayusculas, y en el RAD 10 studio no tengo esta opcion en el tag u.u, quede igual, disuculpen... pero aun soy novato
Responder Con Cita
  #7  
Antiguo 15-12-2015
Avatar de Casimiro Noteví
Casimiro Noteví Casimiro Noteví is offline
Merodeador
 
Registrado: sep 2004
Ubicación: En algún lugar.
Posts: 32.681
Poder: 10
Casimiro Noteví Tiene un aura espectacularCasimiro Noteví Tiene un aura espectacular
¿Pero en box.text qué valor hay? ¿no lo convertirás todo a mayúsculas, por ejemplo, al guardarlo y al leerlo?
Es que no vemos más que el trozo de código que has puesto, tenemos que intentar adivinar.
¿Has seguido el programa con el debug para ver qué valor hay en box.text y en la base de datos?
Responder Con Cita
Respuesta


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

Temas Similares
Tema Autor Foro Respuestas Último mensaje
Buscar sin diferenciar mayusculas de minusculas DARK_WARRIOR Conexión con bases de datos 5 09-12-2007 06:59:51
Update Minúsculas a Mayúsculas (Acentos) Paoti Firebird e Interbase 2 30-08-2007 18:58:04
convertir mayusculas y minusculas. Solo la primera letra en Mayusculas Delphius MS SQL Server 2 21-07-2007 02:20:22
Índices mayúsculas/minúsculas sur-se Firebird e Interbase 4 20-09-2004 20:35:31
Mayusculas Y Minusculas jberaza Firebird e Interbase 1 24-05-2003 18:44:32


La franja horaria es GMT +2. Ahora son las 11:57:53.


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