Como verificar Banco Usando Componentes quot;InterBase Admi

Delphi

11/10/2004

Olá Caros Colegas,

Estou querendo implementar uma rotina para recuperação de base de dados (IB/FB) utilizando os compoentes ´InterBase Admin´.

Quero fazer uma um teste pra [b:5922de5eed]VERIFICAR[/b:5922de5eed] se esta Corrompido ou Danificado.

Se Caso Tiver Corrompido fazer pra [b:5922de5eed]REPARAR[/b:5922de5eed].


Resumindo:
Quero Verificar e Reparar uma base de dados.

Alguém sabe com fazer ?

Se puder me passar um exemplo, melhor ainda.

Agradeço atenção.

[]´s.

Christian.


Christian_adriano

Christian_adriano

Curtidas 0

Respostas

Christian_adriano

Christian_adriano

11/10/2004

sobre.....

[]´s.


Christian.


GOSTEI 0
Christian_adriano

Christian_adriano

11/10/2004

Hô afarias me dá uma help ae.... hehe

Sei q vc é o cara em banco de dados..

Quero verificar e corrigir uma base de dados ib/fb usando Servicer API.

flw


[]´s.

Christian


GOSTEI 0
Afarias

Afarias

11/10/2004

:)

Bom, vc pode para isso usar o componente IBValidationService -- já que até o momento o Services API do FB continua compatível com o IB ex::


  
  with IBValidationService1 do
  begin
    ServerName := ´servidor´;
    DatabaseName := ´c:\caminho\banco.fdb´;
    Protocol := TCP;
    Params.Values[´user_name´] := ´sysdba´;
    Params.Values[´password´] := ´senha´;
    LoginPrompt := False;
    Active := True;
    try
      Options := [ValidateDB, ValidateFull];
      ServiceStart;
      while not Eof do
        Lista.Add(GetNextLine);
      BaseOK := (Lista.Count = 1) and (Lista[0] = EmptyStr);
    finally
      Active := False;
    end;
  end;


onde Lista é um TStrings (TStringLista) -- mas vc pode usar outra coisa (ou nem usar nada!) :)

note que o procedimento acima é usado para validar a base (o mesmo que gfix -v -f), para preparar uma base para backup, vc deve alterar as opções para::

Options := [MendDB, IgnoreChecksum];

(o mesmo que gfix -m -i)


T+


GOSTEI 0
Christian_adriano

Christian_adriano

11/10/2004

Vlw afarias !!!

muito Obrigado !!!


[]´s.

Christian.


GOSTEI 0
Christian_adriano

Christian_adriano

11/10/2004

Olá afarias


Dessa forma q vc Colocou (Options := [ValidateDB, ValidateFull]; )

Ele verifica e Corrige ou verificar e não corrige, ou não verifica e corrige ?


Aguardo sua resposta.

[]´s.


Christian.


GOSTEI 0
Afarias

Afarias

11/10/2004

|Ele verifica e Corrige ou verificar e não corrige, ou não verifica e
|corrige ?

verifica e corrige. mas geralmente vc depois (caso reporte erros) deve preparar a base para backup ::

Options := [MendDB, IgnoreChecksum];


e depois fazer um backup e restaurar!


T+


GOSTEI 0
POSTAR