Ayuda autentificacion BD

[gallirto]

Hola chicos...tomando las ideas que me aportaron, me di a la tarea de inmediatamente empezar a trabajar en eso...
Estuve tratando de varias maneras y al parecer hay algo que me esta fallando...
primero lo probe en el sistema que tengo ya hecho y no quiso...
entonces despues cree una nueva aplicacion para empezar de cero...
puse un componente de bd, un datasource y una tabla...las di de alta, porque ya tenia dado el odbc de mysql...y listo no hubo problema...
entonces de algo sencillito, quise hacer que funcionara la autenticacion, pero que creen...pos que sigue sin funcionar...me marca el siguiente error, espero que puedan ayudarme a resolverlo...

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

Trate de cambiar el EDatabaseError en la exepcion y ponerle EDBEngineError, pero pues tampoco...estuve buscando algun ejemoplo pero tampoco...asi que regreso con ustedes para ver si me pueden ayudar!!!...se los agradecere muchisisisisisimo!!
De antemano Gracias!!

[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