ورود

View Full Version : فشرده سازی و ترمیم یک بانک اطلاعاتی Access


مجتبی جوادی
شنبه 08 دی 1386, 23:47 عصر
سلام
دوستان زحمت کشیدند و کد فشرده سازی و ترمیم یک بانک اطلاعاتی Access را در یک تاپیک قرارداده اند . حال می خواستم بدانم اگر روی دیتابس پسورد داشته باشد کد برنامه چگونه می شود ؟
با تشکر
arshia_
یک شنبه 09 دی 1386, 11:36 صبح
من نمی دونم از چه متدی استفاده شده اما اگر از dao بوده که این کد کمک می کنه
[code]
dao.DefaultPassword := ...
dao.CompactDatabase(...)
[code/]
Saeid59_m
یک شنبه 09 دی 1386, 14:29 عصر
.
.
.
DB:=Online_Rec.DataBasePath;
R := True;
try
v := CreateOLEObject('JRO.JetEngine');
try
V.CompactDatabase('Provider=Microsoft.Jet.OLEDB.4. 0;Jet OLEDB:Database Password="رمز دیتابیس";Data Source='+DB,
'Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Database Password="رمز دیتابیس";Data Source='+DB+'x;Jet OLEDB:Engine Type=5');
DeleteFile(DB);
RenameFile(DB+'x',DB);
finally
V := Unassigned;
end;
except
R := False;
end;
.
.
.