تغییر پسورد بانک اکسس

[مجتبی جوادی]

دوستان درود
دنبال یک کد برای تغییر پسورد بانک اکسس بودم که کد زیر را را پیدا کردم . امید وارم مفید باشه . البته شاید هم کسی قبلا زخمتشو کشیده باشه ولی من جستجو نکردم!

Uses ComObj
function ChangeAccessPassword(DB,OldPass,NewPass: string): Boolean;
var
v: OLEvariant;
begin
Result := True;
try
v := CreateOLEObject('JRO.JetEngine');
try
V.CompactDatabase('Provider=Microsoft.Jet.OLEDB.4. 0;Jet OLEDB:Database ' +
'Password="'+OldPass+'";Data Source='+DB,
'Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Database ' +
'Password="'+NewPass+'";Data Source='+DB+'x;Jet OLEDB:Engine Type=5');
DeleteFile(DB);

RenameFile(DB+'x',DB);
finally
V := Unassigned;
end;
except
Result := False;
end;
end;

[hadisalahi2]

زحمت کشیدی اما امنیت پسورد در اکسس چیزی در حدود 0 هستش
و به راحتی قابل پیدا کردن هستش