Outro erro no Delphi... [RESOLVIDO]

celso22
(usa Debian)

Enviado em 31/12/2008 - 19:02h

erro na: Try
gostaria de saber o porque desse erro.
desde já agradeço...

procedure TfrmCompactar.Panel1Click(Sender: TObject);
var dao:OLEVariant;
begin
Panel1.Visible :=True;
dm.BASE_DADOS.Connected :=False

erro aqui >>> Try

Panel1.Caption:='Compactando banco de Dados...';
Panel1.Repaint;

dao:=CreateOleObject('DAO.DBEngine.36');
dao:=CompactDatabase(ExtractFileDir(Application.ExeName)+
'\DADOS.mdb',ExtractFileDir(Application.ExeName)+'\DADOS2.mdb',",0,");

Panel1.Caption:='Apagando Arquivos Temporário...';
Panel1.Repaint;

if FileExists(ExtractFileDir(Application.ExeName)+'\DADOS2.mdb') then
DeleteFile(ExractFileDir(Application.ExeName)+'\DADOS.mdb');

Panel1.Caption:='Renomeando Arquivo...';
Panel1.Repaint;

if FileExits(ExtractFileDir(Application.ExeName)+'\DADOS2.mdb') then
RenameFile(ExtractFileDir(Application.ExeName)+'\DADOS2.mdb',
ExtractFileDir(Application.ExeName)+'\DADOS.mdb');

Panel1.Caption:='Banco de Dados Compactado';

Finally

end;
end;

end;

gibroh@hotmail.c
(usa Lubuntu)

Enviado em 04/01/2009 - 09:33h

//faltou ponto e virgula(";")
procedure TfrmCompactar.Panel1Click(Sender: TObject);
var dao:OLEVariant;
begin
Panel1.Visible :=True;
dm.BASE_DADOS.Connected :=False//aqui(;)

celso22
(usa Debian)

Enviado em 04/01/2009 - 10:37h

valeu pela dica.
feliz 2009 pra vc.