F�rum BD corrompido como saber se est� ou n�o.... #54437

29/12/2005

Eu achei esta linha de comando para verificarse est� corrompido ou n�o mas a janela do DOS aparece e some rapidamente e eu nem sei se esta corrompido ou n�o e quero fazer com que o sistema assim que reiniciace diagnostica-se o BD e se estiver corrompido tentar� corrigilo automaticamente se a inservern��o do usu�rio e desse uma mensagem se o BD esteja ainda corrompido.

WinExec(Pchar(�gfix -v -full F5.FBD�),1);

Max.sgj

Curtir t�pico

+ 0

Responder

Posts

29/12/2005

Afarias

WinExec n�o vai te ajudar nisso...

...vc tem q obter o output do GFIX e sendo assim algo como CreateProcess seria uma op��a adequada.

Uma outra op��o (que n�o usa o GFIX) � usar a ServicesAPI -- vc pode usar um componente como IBValidationService (IBX) em lugar do GFIX

T+

Responder

Gostei + 0

29/12/2005

Max.sgj

WinExec n�o vai te ajudar nisso... ...vc tem q obter o output do GFIX e sendo assim algo como CreateProcess seria uma op��a adequada. Uma outra op��o (que n�o usa o GFIX) � usar a ServicesAPI -- vc pode usar um componente como IBValidationService (IBX) em lugar do GFIX T+

Estou utilizando Delphi 5 n�o tem IBValidationService

Responder

Gostei + 0

29/12/2005

Max.sgj

Nunca utilizei CreateProcess, como se utiliza?

Responder

Gostei + 0

29/12/2005

Max.sgj

Como utiliza o IBValidationService1

Responder

Gostei + 0

29/12/2005

Afarias

|Estou utilizando Delphi 5 n�o tem IBValidationService

tem sim, basta vc atualizar o IBX

|Nunca utilizei CreateProcess, como se utiliza?

se bem me lembro, existem alguns exemplos no site da ClubeDelphi

|Como utiliza o IBValidationService1

ex:

var
  S: string;
begin
  Memo1.Lines.Clear;  // 1 memo no form
  with IBValidationService1 do
  begin
    ServerName := �localhost�;
    Protocol := TCP;
    DatabaseName := �SeuBanco.IB�;
    Params.Values[�user_name�] := �sysdba�;
    Params.Values[�password�] := �masterkey�;
    LoginPrompt := False;
    Active := True;
    // todas as propriedades acima podem ser preenchidas
    // em tempo de projeto
    try
      Options := [ValidateDB, ValidateFull];  // gfix -v -f
      ServiceStart;
      S := GetNextLine;
      if S = EmptyStr then
        Memo1.Lines.Add(�arquivo ok�)
      else
        repeat
          Memo1.Lines.Add(S);
          S := GetNextLine;
        until (S = EmptyStr);
    finally
      Active := False;
    end;
  end;
end;

T+

Responder

Gostei + 0

29/12/2005

Max.sgj

Esta dando a mensagem de erro...
Cannot perform operation --service is attached.

Responder

Gostei + 0

29/12/2005

Afarias

lembre-se q para validar a base n�o pode haver outras conex�es no banco.

se estiver dando RUN no Delphi, certif�que-se que o componente n�o est� ativo em tempo de projeto

T+

Responder

Gostei + 0

29/12/2005

Max.sgj

lembre-se q para validar a base n�o pode haver outras conex�es no banco. se estiver dando RUN no Delphi, certif�que-se que o componente n�o est� ativo em tempo de projeto T+

Est� tudo como false mas a mensagem continua...

Responder

Gostei + 0

29/12/2005

Max.sgj

Eu n�o sei utilizar este componente preciso de ajuda...

Responder

Gostei + 0

29/12/2005

Afarias

Qual a vers�o do Interbase/Firebird Server? e � SuperServer ou Classic?

T+

Responder

Gostei + 0

29/12/2005

Max.sgj

Ferebird 1.5.2.4731

Responder

Gostei + 0

29/12/2005

Afarias

Classic ou SS ?

T+

Responder

Gostei + 0

29/12/2005

Max.sgj

Classic ou SS ? T+

Est� escrito Firebird 1.5 Server Manager

Responder

Gostei + 0

29/12/2005

Max.sgj

Qual a vers�o do Interbase/Firebird Server? e � SuperServer ou Classic? T+

� SuperServer...

Responder

Gostei + 0

29/12/2005

Afarias

s� pra ter certeza...

...compile o programinha (com o c�digo q passei) e antes de execut�-lo de um shutdown na base usando:

gfix base.gdb -shut -force 0 -user sysdba -pass masterkey

depois de testar o programa coloque a base on-line novamente

gfix base.gdb -online -user sysdba -pass masterkey

T+

Responder

Gostei + 0

Mais t�picos