Crear usuarios en FB 2.5

[Angel.Matilla]

La instrucción

CREATE USER NombreUsuario PASSWORD ‘Contraseña’ [FIRSTNAME ‘PrimerNombre’] [MIDDLENAME ‘SegundoNombre’] [LASTNAME ‘Apellido’];

¿cómo habría de ejecutarse en BCB 6? Me refiero a si con un TIBQuery, un TIBStroredProc...

[Angel.Matilla]

Me respondo yo mismo. Se puede hacer con un TIBQuery pero no se pueden usar parámetros. Es decir:

Query1->Close();
Query1->SQL->Text = "CREATE USER Usuario PASSWORD :Clave";
Query1->ParamByName("Clave")->AsString = Clave;
Query1->ExecSQL();

da error. Hay que meter los valores directamente en la cadena:

Query1->Close();
Query1->SQL->Text = "CREATE USER Usuario PASSWORD '" + Clave + "'";
Query1->ExecSQL();

[ecfisa]

Hola.

Solo para agregar que si estas usando los componentes IBX, también tenes la opción de usar TIBSecurityService.

Ejemplo:

Código PHP:

...
{
  TIBSecurityService *ss = static_cast<TIBSecurityService*>(IBSecurityService1);

  ss->LoginPrompt = false;
  ss->Params->Clear();
  ss->Params->Add("user_name=sysdba");
  ss->Params->Add("password=masterkey");

  ss->UserName    = "PEPE";
  ss->Password    = "1234";
  ss->FirstName   = "JOSE";
  ss->MiddleName  = "MARIO";
  ss->LastName    = "PEREZ";

  ss->Active      = true;
  ss->AddUser();
  ss->Active      = false;
} 


Saludos

[Angel.Matilla]

Empezado por ecfisa

Hola.

Solo para agregar que si estas usando los componentes IBX, también tenes la opción de usar TIBSecurityService.

Muchas gracias por la respuesta pero no tengo instalados los copmponentes IBX. Prefiero no andar instalando paquetes externos salvo que sea imprescindible porque luego em dan muchos problemas y en concreto estos no logré instalarlos nunca.

[Casimiro Notevi]

Los IBX son los que vienen con Delphi
¿No vienen en BCB?

[Angel.Matilla]

Empezado por Casimiro Notevi

Los IBX son los que vienen con Delphi
¿No vienen en BCB?

¿Pues no estaba pensando en una paleta externa?