|
Mudando o status da base de dados no Delphi
Em algumas situações, como por exemplo, a execução do backup/restore, você vai se deparar com a necessidade de proibir o acesso das aplicações clientes a sua base de dados. Esse artigo apresenta a solução desse problema usando um componente nativo no Delphi 7 chamado TIBConfigService que pode ser encontrado na paleta InterBase Admin.
Após adicionar o componente TIBConfigService na sua aplicação, falta somente a implementação do código para mudar o status da base de dados.
Abaixo está um exemplo de como alterar o status da base de dados para off-line, ou seja, derruba-la.
|
with IBConfigService1 do
begin
DatabaseName:=caminno para a base de dados;
ServerName:=nome do servidor;
LoginPrompt:=False;
Params.Clear;
{antes de derrubar a base de dados você deve se conectar a base de dados.
o usuário que se conecatar a base de dados para derruba-la será o único
que poderá tonar a base de dados online de novo.}
Params.Add(user_name=SYSDBA);//nome do usuário que vai derrubar a base
Params.Add(password=masterkey);//senha do usuário
try
Active:=True;//ativa o serviço, ou seja, se conecta na base
{a linha abaixo ira mudar o status da base de dados para off-line
e fará com que todas as conexões ativas com esta base seja perdida}
ShutdownDatabase(Forced, 0);
except
ShowMessage(Não foi possível mudar o status da base de dados para off-line);
end;
Active:=False;//desativa o serviço, ou seja, desconecta da base
end; |
Listagem 1 – Derrubando uma base de dados
O procedimento ShutdownDataBase possui dos parâmetros: Options e Wait. O parâmetro Options especifica como a base de dados será derrubada e o parâmetro Wait informa quantos segundos será aguardado antes da base ser derrubada. Veja na tabela abaixo os valores permitidos para o parâmetro Options e o que ele significa.
|
Valor |
Descrição |
|
Forced |
Derruba a base de dados após o tempo definido no parâmetro wait. Você pode derrubar a base de dados imediatamente se definir wait como 0. |
|
DenyTransaction |
Não serão permitidas novas transações durante o tempo definido no parâmetro wait e se após o tempo definido ainda houver pelo menos uma transação ativa a base não será derrubada. |
|
DenyAttachment |
Não serão permitidas novas conexões durante o tempo definido no parâmetro wait e se após o tempo definido ainda houver pelo menos uma conexão ativa a base não será derrubada. |
Como visto na listagem 1, Antes de você derrubar uma base de dados você deve conectar na base com algum usuário e este usuário será o único que poderá mudar seu status para on-line novamente. Também é importante saber que durante o período que a base de dados estiver off-line, o usuário que à derrubou poderá se conectar e usar a base normalmente.
Agora vamos ver o código para marcar a base de dados como on-line.
|
with IBConfigService1 do
begin
DatabaseName:=caminho para a base de dados;
ServerName:=nome do servidor;
LoginPrompt:=False;
Params.Clear;
{para definir o status da base de dados como on-line novamente
você deve usar o mesmo usuário que a derrubou.}
Params.Add(user_name=SYSDBA);//nome do usuário
Params.Add(password=masterkey);//senha do usuário
try
Active:=True;//ativa o serviço, ou seja, conecta na base
{a linha abaixo ira mudar o status da base de dados para on-line}
BringDatabaseOnline;
except
ShowMessage(Não foi possível mudar o status da base de dados para on-line);
end;
Active:=False;//desativa o serviço, ou seja, desconecta da base
end; |
Listagem 2 – Mudando o status da base para on-line
Essas duas funções são muito úteis, principalmente, quando se tem aplicações que trabalhão em rede, mas você não pode se esquecer que o usuário que a derrubou continuará tendo acesso a base de dados normalmente e que ele será o único que pode torna-la on-line novamente. Tomando esses cuidados você não terá problemas.
|
Conheça os planos de créditos DevMedia e visualize esse post agora mesmo!
-2.jpg)
