Mudando o status da base de dados no Delphi

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;

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.

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;