RES: [firebase-br] Comando Gfix no Delphi

[Djair]

Valeu cara, vou testar.


-----Mensagem original-----
De: lista-bounces em firebase.com.br [mailto:lista-bounces em firebase.com.br] Em
nome de Fábio
Enviada em: segunda-feira, 27 de dezembro de 2004 17:39
Para: FireBase
Assunto: Re: [firebase-br] Comando Gfix no Delphi

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
>

______________________________________________
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