::: Como criar uma senha no arquivo MDB via Delphi ?! ...
... Meu programa cria o seu Banco de Dados Access (.MDB) sozinho.
Acontece que eu preciso criá-lo com senha. Não sei fazer isso.
Se alguém souber abradeço pela ajuda.
:wink:
Acontece que eu preciso criá-lo com senha. Não sei fazer isso.
Se alguém souber abradeço pela ajuda.
:wink:
Nogueirajr
Curtidas 0
Respostas
Marcelo.c
12/04/2003
Dica extraída do DTDelphi:
716. Colocar senha geral em um banco de dados Access:
procedure TForm1.Button1Click(Sender: TObject);
var
DBDAO: Variant;
begin
DBDAO := CreateOleObject(´DAO.DBEngine.35´);
Screen.Cursor :=3D3D crHourGlass;
try
DBDAO.CompactDatabase(´C:SeuBancodeDadosAtual.MDB´,
´C:CopiaCompactadadoBancodeDados.MDB´,,,´;PWD=3DsenhadoBD´);
finally
Screen.Cursor := crDefault;
DBDAO := Unassigned;
end;
ShowMessage(´Operacao Concluida´);
end;
716. Colocar senha geral em um banco de dados Access:
procedure TForm1.Button1Click(Sender: TObject);
var
DBDAO: Variant;
begin
DBDAO := CreateOleObject(´DAO.DBEngine.35´);
Screen.Cursor :=3D3D crHourGlass;
try
DBDAO.CompactDatabase(´C:SeuBancodeDadosAtual.MDB´,
´C:CopiaCompactadadoBancodeDados.MDB´,,,´;PWD=3DsenhadoBD´);
finally
Screen.Cursor := crDefault;
DBDAO := Unassigned;
end;
ShowMessage(´Operacao Concluida´);
end;
GOSTEI 0