Firebird Benutzer anlegen

[Texas]

Hallo

Kann mir jemand sagen ob es möglich ist aus Delphi heraus einen Benutzer in einer Interbase, Firebird Datenbank anzulegen und Diesen einer Role zuzuweisen? Oder geht das nur aus einem Zusatztool (IBExpert IBOConsole )

Ich glaube das ein Entanwender mit solchen Tools nicht immer umgehen kann und möchte





Danke im Voraus

Michael

[marabu]

Hallo Michael,

unter IB6 Open Edition existierte der API call isc_add_user() mit dem du einen User anlegen konntest.

Grüße vom marabu

[Hansa]

Ich gehe davon aus, daß Du IBExpert nicht extra installieren willst. Dann guck Dir mal IBEScript an. Mit UDF und so Zeugs würde ich nicht anfangen.

[Robert_G]

Das dürfte eine normale Funktion der Client API sein, UDF wäre doch die API in Gegenrichtung...
Bei den IBX/IBO,was weiß ich... Zugriffsbibliotheken dürfte doch jeweils eine Komponente enthalten sein, die das erledigt.

[alex517]

Hier noch ein Vorschlag, falls es noch nicht zu spät ist.
Da du FIBPlus hast, verwende doch einfach die Komponente TpFIBSecurityService.

Delphi-Quellcode:

  SecurityService1.ServerName := 'servername';
  SecurityService1.UserName := 'SYSDBA';
  SecurityService1.Password := 'masterkey';
  SecurityService1.Active := True;

  SecurityService1.UserName := 'Meier';
  SecurityService1.SQlRole := 'Benutzer';
  SecurityService1.Password := 'xyz12345';

  try
    SecurityService1.AddUser;
  except
    ShowMessage('Error by adding new user');
  end;
  SecurityService1.Active := False;

alex

[Texas]

Danke klappt