Администрирование пользователей

[ndb]

На сколько я помню в InterBase 6.0, 7 ; FireBird 1, 1.5 все пользователи хранятся в отдельной базе. Добавлять их только утилитой gsec.
Можно ли ещё каким-нибудь образом добавить пользователя, не работая локально на сервере (далеко он)?

[Slava Ekimov]

На сколько я помню в InterBase 6.0, 7 ; FireBird 1, 1.5 все пользователи хранятся в отдельной базе. Добавлять их только утилитой gsec.
Можно ли ещё каким-нибудь образом добавить пользователя, не работая локально на сервере (далеко он)?

1. Помнишь не совсем правильно.
2. Давно используются сервисы.

[ndb]

1. Помнишь не совсем правильно.
2. Давно используются сервисы.

Можно тогда поподробнее, совсем значит отстал я от жизни

Задача стоит так:
Сервер далеко, идти/ехать к нему... нерентабельно
создать пользователя надо и выдать ему права на чтение некоторых таблиц.

[Slava Ekimov]

1. Помнишь не совсем правильно.
2. Давно используются сервисы.

Можно тогда поподробнее, совсем значит отстал я от жизни

Задача стоит так:
Сервер далеко, идти/ехать к нему... нерентабельно
создать пользователя надо и выдать ему права на чтение некоторых таблиц.

Возьми IBExpert и не мучайся. Только не надо прописывать путь к isc4.gdb.

[ndb]

Возьми IBExpert и не мучайся. Только не надо прописывать путь к isc4.gdb.

если на удалённом (физически) сервере стоит FireBird?
не до конца понимаю схему, как IBExpert получит доступ к необходимой базе?
И можно ли это сделать из программы (прогу напишу).
По хорошему доступа к ней быть не должно, как сделать потом, чтобы никто не мог удалённо пользователей создавать? Не хорошо получается как-то, опасно (хотя надо воспользоватья сейчас, но на будущее это надо пресечь).

[kdv]

лучше доку почитай....посмотри пример Admin к ibx.

[DSKalugin]

пример из хелпа

Код: Выделить всё

procedure TForm1.Button1Click(Sender: TObject);
begin
 with IBSecurityService1 do
  begin
  ServerName := 'Poulet';
  LoginPrompt := False;
  Params.Add('user_name=sysdba');
  Params.Add('password=masterkey');
  Active := True;
    try
      UserName := Edit1.Text;
      FirstName := Edit2.Text;
      MiddleName := Edit3.Text;
      LastName := Edit4.Text;
      UserID := StrToInt(Edit5.Text);
      GroupID := StrToInt(Edit6.Text);
      Password := Edit7.Text;
      AddUser;
    finally
    Active := False;
    end;
  end;
end;