Fórum Compactar e Corrigir DB no Access #204590

Caro Amigo

Eu utilizo essa função para Reparar e Compactar um banco de dados Access usando ADO. Se servir....


procedure RepararCompactar;
var
ArquivoMDB: string;
DB: OLEVariant;
Temp: string;
begin
Screen.Cursor := crHourGlass;
try
ArquivoMDB := copy(DataModule.adoconnection1.ConnectionString,
pos(´Data Source=´, DataModule.adoconnection1.ConnectionString)+12,
length(DataModule.adoconnection1.ConnectionString)-(pos(´Data Source=´, DataModule.adoconnection1.ConnectionString)+12));
ArquivoMDB := copy(ArquivoMDB, 1, pos(´;´,ArquivoMDB)-1);
try
// cria o objeto para manipulacao do BD
DataModule.ADOConnection1.Close;
DataModule.ADOConnection1.Connected := False;

DB := CreateOLEObject(´DAO.DBEngine.35´);
// reparar
DB.RepairDataBase(ArquivoMDB);
// compactar
Temp := ExtractFilePath(ArquivoMDB) + ´Temp.mdb´;
DB.CompactDataBase(ArquivoMDB, Temp);
DeleteFile(ArquivoMDB);
RenameFile(Temp, ArquivoMDB);

Application.MessageBox(´Banco de dados reparado e compactado com sucesso.´, ´Aviso´, mb_IconInformation);
except
on E: Exception do Application.MessageBox(PChar(E.message), ´Erro DAO´, mb_IconError);
end;
finally
DataModule.ADOConnection1.Open;
DataModule.ADOConnection1.Connected := True;
Screen.Cursor := crDefault;
end;
end;

Agradeço a ajuda, vou testar e depois lhe digo.

Obrigado.

Olá erucci,

Copiei sua função e colei em meu sistema, logo abaixo de [b:3698ddd7a6][color=red:3698ddd7a6]{$R *.DFM}[/color:3698ddd7a6][/b:3698ddd7a6], alterando apenas o nome [b:3698ddd7a6]DataModule.adoconnection1[/b:3698ddd7a6] para [b:3698ddd7a6][color=blue:3698ddd7a6]DMDados.CONEXAO[/color:3698ddd7a6][/b:3698ddd7a6]



No evento OnClick do botão Compactar coloquei:

Mas ao clicar neste, deu a seguinte mensagem: [b:3698ddd7a6][color=red:3698ddd7a6]Project Oficios.exe raised exception class EOleException with message ´Não foi possível encontrar o arquivo DASQL.1´´[/color:3698ddd7a6][/b:3698ddd7a6]

Em seguida destaca a linha: [b:3698ddd7a6][color=blue:3698ddd7a6]DB.RepairDataBase(ArquivoMDB);[/color:3698ddd7a6][/b:3698ddd7a6]

Vc saberia me dizer o q fiz de errado?

Grato,

Ilano