| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Программное удаление пользователя [D6, IB6.x]

me2 ©   (2003-05-14 14:20:00) 

Есть грид в котором отображаются пользователи из некой таблицы tblUsers (даные беру из системной таблицы). Мне нужно удалить пользователя. Делаю так
if MessageBox(Application.Handle, "

---

me2   (2003-05-14 15:07:00) [1]

Немного разобрался - там был просто какойто пользователь, который не хотел удаляться(даже при помощи UserManager IBExperta). Пришлось напрямую из БД. Вопрос теперь в следующем - как видно из кода, который я привел, я сохраняю трансакцию и даже потом еще перреоткрываю tblUsers, но после удаления пользователь еще отображается в гриде и пропадает только после перезапуска приложения. Что с этим делать?

---

Соловьев   (2003-05-14 14:58:00) [2]

у меня работает.

> UserName := DM.dsUsers.DataSet["USER_NAME"];

точно там есть то что ты удаляешь?
ошибку выдает или что?

---

me2   (2003-05-14 14:51:00) [3]

Да я этот пример и использую, но пользователь не удаляется.

---

Соловьев   (2003-05-14 14:39:00) [4]

пример из хелпа:
procedure TForm1.Button2Click(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;
DeleteUser;
finally
Edit1.Clear;

Active := False;
end;
end;
end;

---

Наверх