Fórum Tabela Corrompida #41072
18/12/2003
0
Amilton/pr
Curtir tópico
+ 0Posts
18/12/2003
Maicongabriel
:: [url]http://www.firebase.com.br/cgi-bin/firebase.cgi/artigo?ID=3[/url]
Gostei + 0
19/12/2003
Amilton/pr
Naum dá pra construir um aplicativo usando esses aplicativos e ser distribuido com o programa principal para ser utilizado em caso de corrupção das tabelas?
Gostei + 0
19/12/2003
Afarias
T+
Gostei + 0
20/12/2003
Amilton/pr
Gostei + 0
20/12/2003
Afarias
T+
Gostei + 0
22/12/2003
Amilton/pr
Como se executa?
Gostei + 0
22/12/2003
Afarias
Hummm... não... pelo q lembro só os comandos relacionados a validação e correção do banco de dados. Alguns outros é em outros componentes (como -write sync por exemplo)
|Como se executa?
acho q F1 no componente chama o help com 1 exemplo, em todo caso, segue 1 exemplo simples::
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
Memo1.Lines.Text := ´Verificando erros...´;
with IBValidationService1 do
begin
{ informações de conexão }
Protocol := TCP;
ServerName := ´nome_ou_ip_do_servidor´;
DatabaseName := ´caminho_completo_do_arquivo_gdb´;
{ informações de login }
LoginPrompt := False;
Params.Values[´user_name´] := ´SYSDBA´;
Params.Values[´password´] := ´cdkey´;
{ processo: neste caso validação do banco }
Options := [ValidateDB, ValidateFull];
Attach;
try
ServiceStart;
while not Eof do
begin
Memo1.Lines.Add(GetNextLine);
Application.ProcessMessages;
end;
finally
Detach;
Memo1.Lines.Add(´Verificação concluída.´);
end;
end;
end;
T+
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)