[firebase-br] Comando Gfix no Delphi

[Fábio]

Tente assim:

Coloque um IBValidationService da paleta Interbase Admin.


procedure TForm1.Button1Click(Sender: TObject);
begin
   with IBValidationService1 do
   begin
      LoginPrompt:=False;
      Params.Add('user_name=SYSDBA');
      Params.Add('password=masterkey');
      DatabaseName := 'caminho + nome do BD';
      Options := [ValidateFull, ValidateDb];
      Active := True;
      try
         ServiceStart;
         while IsServiceRunning do Sleep(10);
            ShowMessage('Validação completa.');
      finally
         Active := False;
    end; //try
  end; //with
end;



Fábio
On Mon, 27 Dec 2004 14:33:00 -0200, Djair <djairmg em terra.com.br> wrote:
> Alguém da lista sabe como executar comando gfix via delphi? Tentei o winexec
> e o shellexecute e não funcionou, acho que dá problema nos parâmetros.
> 
> ______________________________________________
> FireBase-BR (www.firebase.com.br) - Hospedado em www.bavs.com.br
> Para editar sua configuração na lista, use o endereço http://mail.firebase.com.br/mailman/listinfo/lista_firebase.com.br
>