Ayuda autentificacion BD

[roman]

El ejemplo de jachguate debe funcionar bien excepto que donde dice user_name debe decir user name, es decir, va un espacio en lugar del caracter de subrayado.

// Saludos

[gallirto]

Holas...
Ya POR FIN quiso funcionar...YUPI!!!
ya autentifica los usuarios y sus contraseñas...
pero ahora el problema que tengo ahora, es que no entra a la exepcion...es decir...si ponen mal el nombre de usuario o la contraseña, no manda el mensaje de error...vuelve a salir el mensaje de:

Project sistema.exe raised exception class EDBEngineError with message
'Key violation [TCX]ÑMyODBC] Access denied for 'root'@localhost (using password: YES) Alias: sistema. Process stopped. Use step or run to continue

que creen que pueda ser???

el codigo que tengo es el siguiente:

DataBase1.Connected:=false;
DataBase1.Params.Clear;
DataBase1.Params.Add('user name='+edit1.text);
DataBase1.Params.Add('password='+edit2.text);
DataBase1.LoginPrompt:=false;
try
begin
dataBase1.Connected:=true;
label1.Caption:='SI ENTRO';
end;
except
on EDatabaseError do
begin
ShowMessage('Error al autenticar usuario!');
Application.Terminate;
end;
end;

De antemano...Gracias!!!

[jachguate]

Empezado por roman

El ejemplo de jachguate debe funcionar bien excepto que donde dice user_name debe decir user name, es decir, va un espacio en lugar del caracter de subrayado.

// Saludos

Por eso había dicho ya:

Empezado por jachguate

(podrían llamarse diferentes, mirá cómo los nombra al usar los parámetros default del driver.

[gallirto]

Holas compañeros del foro...
Pues fijense que sigue sin funcionar...
Al momento de dar bien el login y el password si conecta a la base de datos y no marca errores en la aplicacion ni nada...pero si escribo mal el password, en vez de mandarme el mensaje de error de la exepcion, marca el siguiente error:

Project sistema.exe raised exception class EDBEngineError with message
'Key violation [TCX]ÑMyODBC] Access denied for 'root'@localhost (using password: YES)
Alias: sistema. Process stopped. Use step or run to continue

Alguna idea de como resolverlo??...

Mi codigo es:

Código Delphi [-]
DataBase1.Connected:=false;
DataBase1.Params.Clear;
DataBase1.Params.Add('user name='+edit1.text);
DataBase1.Params.Add('password='+edit2.text);
DataBase1.LoginPrompt:=false;
try
  begin
    dataBase1.Connected:=true;
    label1.Caption:='SI ENTRO';
  end;
except
  on EDatabaseError do
    begin
      ShowMessage('Error al autenticar usuario!');
      Application.Terminate;
   end;
end;

De antemano Gracias a todos!!

[roman]

Quizá tu bloque except no capta el error porque nada más le indicas que intercepte EDatabaseError y el error que recibes es EDBEngineError.

// Saludos

[gallirto]

Hola Roman...
Pues fijate que yo crei lo mismo, pero aunque ponga esa excepcion, no entra...funciona cuando si lo pones bien el password y el login, pero ni con esa ni con la otra excepcion funciona...por eso es que se me hace raro...
Si ves el codigo, lo trate de probar en una aplicacion sencilla para que funcionara, pero pues ni a si funciona...

Alguna otra idea??...Gracias!!!

[reina]

El caso es que no puedes captar la excepcion porque no la estas manejando..deberias mirar la ayuda de delphi la parte de excepciones y de esa clase particularmente (EDBEngineError) para ver si te da alguna pista de como captarla. Tu codigo funciona si pones bien el el user y el pass..simplemente porque no se genera ninguna excepcion..espero que tomes mi recomendacion y leas el help! saludoss

LA PATRIA SERA LIBRE

[gallirto]

Hola chicos....POR FIN!!!!...
Por fin funciono todo!!!!.....yupi!!!

Gracias a todos por su valiosa cooperacion y consejos...
Como se resolvio??...pues despues de tanta lectura y preguntas...

mi codigo estaba bien...

Código Delphi [-]
DataBase1.Connected:=false;DataBase1.Params.Clear;DataBase1.Params.Add('user name='+edit1.text);DataBase1.Params.Add('password='+edit2.text);DataBase1.LoginPrompt:=false;try  begin    dataBase1.Connected:=true;    label1.Caption:='SI ENTRO';  end;except  on EDBEngineError do    begin      ShowMessage('Error al autenticar usuario!');      Application.Terminate;   end;end;

y me estaba mandando el siguiente error:

Project sistema.exe raised exception class EDBEngineError with message
'Key violation [TCX]ÑMyODBC] Access denied for 'root'@localhost (using password: YES) Alias: sistema. Process stopped. Use step or run to continue

Cuando se corria, trataba de conectarse a la BD y si no era usuario valido, mandaba automaticamente el error...
Entonces...investigando y preguntando, me di cuenta que habia que desactivar los mensajes de error del debuger...asi que fui a tool-debugger options-Language exceptions y ahi quitarle la opcion de "Stop on delphi exceptions".....

Y LISTO!!!....-FUNCIONO!!!!

Gracias!!...y espero que si alguien tiene este mismo problema pueda ver esta solucion