Fórum Como verificar Banco Usando Componentes quot;InterBase Admi #254024
11/10/2004
0
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
Curtir tópico
+ 0Posts
12/10/2004
Christian_adriano
[]´s.
Christian.
Gostei + 0
13/10/2004
Christian_adriano
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
13/10/2004
Afarias
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
14/10/2004
Christian_adriano
muito Obrigado !!!
[]´s.
Christian.
Gostei + 0
19/10/2004
Christian_adriano
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
20/10/2004
Afarias
|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
Clique aqui para fazer login e interagir na Comunidade :)