Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

Firebird 1.5.0 [D6, Firebird]

Amid © (2004-09-25 11:47:00)
Как отсоеденить все юзеры каторые соедены к базе ?.

Есть база c:\q.gdb, к ней соедены и работают 3 юзеры, как програмным путем отсоеденить все юзеры штоб я мог удалить эту базу ?

kaif (2004-09-26 04:09:00) [1]
А может быть остается коннект того клинета, который шатдаун делал? Есть еще один вариант: создай EVENT с громким именем CLOSE_CLIENTS_FORCED, на клиентах лови этот EVENT с помощью какого-нибудь хорошего компонента, ловящего ивенты и как только разослано это событие - пусть клиенты сами дисконнектятся. А потомделай шатдаун (чтобы больше не пытались законнектиться), отконнечивайся сам и убивай файл базы (я бы его предварительно забекапил на всякий пожарный все же...).

Amid (2004-09-25 14:28:00) [2]
Да, это я делаю, но опять я не могу удалить базу, значит коннекты остаются, но как зделать дисконнект этих коннектов если это можно ?

xmrz (2004-09-25 14:05:00) [3]
gfix -shut -force 0 c:\q.gdb -user sysdba -password masterkey

Можешь выполнить это через CreateProcess...

-SeM- (2004-09-25 13:55:00) [4]
Только проверил. Отключение от базы для клиентов при Forced действительно происходит. А вот коннект остается до тех пор, пока работает клиент. Т.о. если есть возможность изменить клиента и не используется в других целях - сделай обработку FIBDatabase.OnLostConnect на закрытие клиента.
Как вариант - DenyAttachment с большим значением Wait, после которого (в случае успеха) DropDatabase.

Amid (2004-09-25 13:43:00) [5]
пробывал FIBDatabase.DropDatabase, но тоже не идет.
Делал ShutdownDatabase потом DropDatabase, ошибка DATABASE in used

-SeM- (2004-09-25 13:12:00) [6]
А не пробывал FIBDatabase.DropDatabase?

Amid (2004-09-25 12:56:00) [7]
После выполнение этой програмы, пытаюсь удалить мануально, и не удаляется Cannot delete BASEFINAL: It is being used ....

-SeM- (2004-09-25 12:50:00) [8]
Как ты ее удаляешь?

Amid (2004-09-25 12:38:00) [9]
Пробовал FibPlus - ConfigService.ShutdownDatabase но не идетб не могу удолить базу, (ошибку дает, занята база)

Procedure TForm1.Button2Click(Sender: TObject);
Begin
with pFIBConfigService1 do
begin
LoginPrompt := False;
Params.Add('user_name=SYSDBA');
Params.Add('password=masterkey');
DatabaseName := 'D:\BTelefon\BaseFinal.gdb';
Active := True;
try
if RadioButton1.Checked then
ShutdownDatabase(Forced, 0);
if RadioButton2.Checked then
ShutdownDatabase(DenyTransaction,0);
if RadioButton3.Checked then
ShutdownDatabase(DenyAttachment,0);
finally
Active := False;
end;
end;
End;

Amid (2004-09-25 12:05:00) [10]
юзеры ждут :)

Amid (2004-09-25 12:04:00) [11]
Но как это зделать ?, подскажите !!!!

-SeM- (2004-09-25 11:58:00) [12]
С помошью чего?
IBExpert - Services->Database Shutdown
FibPlus - ConfigService.ShutdownDatabase
IB API - см. isc_spb_prp_shutdown_db

> отсоеденить все юзеры штоб я мог удалить эту базу

А юзерям что потом делать?

DrPass (2004-09-25 11:56:00) [13]
сделай shutdown (естественно, не компьютеру :-)

Наверх

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