Fórum Executar funções em outros Softwares #149675

O Caminho é por aqui...estude este código e pense um pouco

Como Reindexar um Banco M$Access 2000?
Uses
comobj, db, dbtables;

procedure TFormReindexar.Button1Click(Sender: TObject);
var
dao: OLEVariant;
begin
try
Panel1.Caption:=´Compactando Tabela´;
Panel1.Repaint;
dao := CreateOleObject(´DAO.DBEngine.36´);
dao.CompactDatabase(extractfiledir(Application.ExeName)+´\banco.mdb´, extractfiledir(Application.ExeName)+´\banco2.mdb´,´´,0,´;pwd=1203583´);
Panel1.Caption:=´Apagando Arquivo Temporário´;
Panel1.Repaint;
if FileExists(extractfiledir(Application.ExeName)+´\banco2.mdb´) then DeleteFile(extractfiledir(Application.ExeName)+´\banco.mdb´);
Panel1.Caption:=´Renomeando Arquivo´;
Panel1.Repaint;
if FileExists(extractfiledir(Application.ExeName)+´\banco2.mdb´) then
RenameFile(extractfiledir(Application.ExeName)+´\banco2.mdb´,extractfiledir(Application.ExeName)+´\banco.mdb´);
Panel1.Caption:=´Arquivo Banco.mdb Compactado´;
Panel1.Repaint;
except
panel1.caption:=´Ocorreu um Erro durante a compactação´;
end;
DataModule1.ADOConnection1.Connected:=true;
end;


{Dica by Lloyd Dickinson}

da um erro:

[Microsoft][ODBC Driver Manager]Nome da fonte de dados não encontrado e nenhum driver especificado.

Desculpe o erro que ocorre é de senha.

extractfiledir(Application.ExeName)+´\banco2.mdb´[b:1b20104f20],´´,0,´;pwd=1203583´[/b:1b20104f20]);

Esta parte em negrito que estou com dúvida, sei q os numeros são a senha só que gostaria de deixar o banco sem senha coloquei o [b:1b20104f20]pwd=´[/b:1b20104f20] mas da erro de [b:1b20104f20]´Argumento inválido´[/b:1b20104f20]

Gostaria de saber para que serve o resto ([b:1b20104f20],´´,0,´;[/b:1b20104f20])