Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > SQL
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 07-09-2005
Avatar de Maury Manosalva
Maury Manosalva Maury Manosalva is offline
Miembro
 
Registrado: ago 2005
Posts: 101
Poder: 19
Maury Manosalva Va por buen camino
Consulta Sencilla SQL + Delphi

Hola a todos, tengo esta sencilla pregunta, quiero por SQL si un usuario esta creado en la lista de usuarios permitidos para entrar en la aplicación pero me aparece un error Unterminated String, yo estaba haciendo la consulta verificando usuario y contraseña en una sola consulta:
consulta := 'Select * from TabUsuarios where LogUsuario ='+char(39)+ txtUsuario.Text+char(39)+
'and ConUsuario ='+chr(39) + txtcontrasena.Text+char(39);

y funciona perfecto, pero se me ocurrio que si el usuario no existia mostrara un mensaje de 'usuario no existe', pero si el usuario existe y la contraseña esta mal, al tercer intento lo saque de la aplicación y ademas me bloquee el usuario que esta tratando de entrar. como lo estoy haciendo, asi:

consulta := 'Select logUsuario from TabUsuarios where LogUsuario like ='+char(39)+ txtUsuario.Text +char(39)+';

pero me aparece : Unterminated String y Missing Operator or semicolon..

Que estoy haciendo mal...

Gracias.

Maury Manosalva
Colombia
Responder Con Cita
  #2  
Antiguo 07-09-2005
Avatar de Casimiro Notevi
Casimiro Notevi Casimiro Notevi is offline
Moderador
 
Registrado: sep 2004
Ubicación: En algún lugar.
Posts: 32.040
Poder: 10
Casimiro Notevi Tiene un aura espectacularCasimiro Notevi Tiene un aura espectacular
[quote=
consulta := 'Select logUsuario from TabUsuarios where LogUsuario like ='+char(39)+ txtUsuario.Text +char(39)+';
[/QUOTE]
Puede que sea más cómodo algo así como esto:
Código SQL [-]
 'select logUsuario from tabUsuarios where logUsuario like '+quotedStr(txtUsuario.Text)
Responder Con Cita
  #3  
Antiguo 07-09-2005
MasterXP MasterXP is offline
Miembro
 
Registrado: ene 2005
Posts: 193
Poder: 20
MasterXP Va por buen camino
Código SQL [-]
   consulta := 'Select logUsuario from TabUsuarios where LogUsuario like
 ='+char(39)+ txtUsuario.Text +char(39)+';   <---- El Error aqui
 

el error esta en la ultima comilla que pusiste
Responder Con Cita
  #4  
Antiguo 07-09-2005
Avatar de Casimiro Notevi
Casimiro Notevi Casimiro Notevi is offline
Moderador
 
Registrado: sep 2004
Ubicación: En algún lugar.
Posts: 32.040
Poder: 10
Casimiro Notevi Tiene un aura espectacularCasimiro Notevi Tiene un aura espectacular
Cita:
Empezado por MasterXP
Código SQL [-]
    consulta := 'Select logUsuario from TabUsuarios where LogUsuario like
  ='+char(39)+ txtUsuario.Text +char(39)+';   <---- El Error aqui
  
el error esta en la ultima comilla que pusiste
Bueno, por errores, también sobra el 'igual' del like like =
Responder Con Cita
  #5  
Antiguo 08-09-2005
Sirkius Sirkius is offline
Miembro
 
Registrado: jun 2004
Posts: 83
Poder: 20
Sirkius Va por buen camino
Dos cosas:

1º. Le pinta mejor un "=" que un "like", porque necesitas el nombre exacto.

2º. En vez de hacer una consulta para ver si existe el usuario y otra para ver si el usuario y la contraseña son correctos porque no haces una sola consulta, que te devuelva el password.

Entonces:
- Si no te devuelve registros -> no existe el usuario
- Si la contraseña no coincide -> contraseña incorrecta (1, 2, 3º intento)
- Contraseña coincide -> OK

PD: de todas formas siempre he preferido que no te diga si el usuario existe. Prefiero un mensaje tipo "Usuario/contraseña no valido".
__________________
SIN FIRMA :P
Responder Con Cita
Respuesta



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 23:37:26.


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
Copyright 1996-2007 Club Delphi