¿Existe un usuario en FB?

[Angel.Matilla]

Estaba corrigiendo un fallo que había en un proyecto en el tema de dar de alta o modificar usuarios y me he encontrado con un problema. Usando el código que me sugirió ecfisa en su día resulta que en la base de datos del proyecto ese usuario no existe (al ejecutar el query no me devuelve nada) pero sí está dado de alta para otras bases de datos que tengo instaladas y me da error

¿Cómo puedo evitar este error?

[Casimiro Notevi]

Pues no dando de alta otro repetido

[Angel.Matilla]

Empezado por Casimiro Notevi

Pues no dando de alta otro repetido

¡Muy gracioso!

Tenía un error de base en el manejo de FB: Yo suponía que los usuarios se daban de alta en el motor a nivel de cada una de las bases de datos y no a nivel del motor en conjunto. Al final lo he resuelto de la manera más tonta:

Query->Close();
Query->SQL->Text = "SELECT DISTINCT RDB$USER FROM RDB$USER_PRIVILEGES WHERE RDB$USER = :Nombre";
Query->ParamByName("Nombre")->AsString = Nombre->Text;
Query->Open();

SecurityService->UserName = Nombre->Text;
SecurityService->Password = Clave->Text;
SecurityService->Active = true;
if (Query->IsEmpty())
{
     try
     {
          SecurityService->AddUser();
     }
     catch(Exception &Exc)
     {
          SecurityService->Active = true;
          SecurityService->ModifyUser();
     }
}
else
     SecurityService->ModifyUser();
SecurityService->Active = false;