Ayuda autentificacion BD

[jachguate]

Ya que no mencionas que componentes usas para conectarte, supongo que se trata del BDE, así que lo que toca hacer es poner la propiedad loginprompt del TDatabase en falso, y luego establecer por código los parámetros 'UserName' y 'password' (podrían llamarse diferentes, mirá cómo los nombra al usar los parámetros default del driver.

La propiedad Params es un TStrings, así que establecer el valor es tan sencillo como:

Código Delphi [-]
Database1.params.Values['UserName'] :=  'jose';

Hasta luego.

[gallirto]

Hola jachguate

Pero con esa instruccion estoy asignando los nombres??...
o verificando un nombre ya existente no?'
Pero si quiero que cheque si existe ese usuario...si esta, que se conecte a la BD y siga....y si no que mande mensaje de error diciendo que no es un usuario valido...ahi como le harias??

Gracias!!!

[reina]

Deberias hacer la ventana de la autenticación de la bd.. tu mismo..en un form splash(este lo deberias poner que se abra en la unit principal) o algo asi antes que se cargue la aplicacion ..y preguntar ahi el nombre del usuario y la contraseña..luego tratar de asignarle a la bd..ese usuario y contraseña si no existe alli esta tirara un excepcion, por ejemplo:

DataBase.Connected:=false;
DataBase.Params.Clear;
DataBase.Params.Add('user_name=nombreusuario');
DataBase.Params.Add('password=pass');
DataBase.LoginPrompt:=false;
DataBase.Connected:=true;

Esto lo puedes poner dentro de un try....except de ahi la podrias levantar hacia donde llamaste al form splash con un mensaje como que el usuario no existe y no dejar que la aplicacion corra..bueno espero que hayas entendido o al menos te orientes en algo, saludos!

LA PATRIA SERA LIBRE!

[jachguate]

Tomando la idea de reina:

Código Delphi [-]
  DataBase.Connected:=false;
  DataBase.Params.Clear;
  DataBase.Params.Add('user_name=nombreusuario');
  DataBase.Params.Add('password=pass');
  DataBase.LoginPrompt:=false;
  try
    DataBase.Connected:=true;
  except
    on EDatabaseError do
    begin
      ShowMessage('Error al autenticar usuario!');
      Application.Terminate;
    end;

Ahora, ya es cosa tuya si queres proveer un mecanismo para que el usuario reintente varias veces (o indefinidas veces).

Hasta luego.

[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.