05-09-2015, 01:10 PM
السلام عليكم
ارتكبت خطا في كتابة الدالة
لا تغير الدالة CompactAndRepair اتركها على حالها هكدا
و تحتها مرر متغيراتك (مسار قاعدة بياناتك وكلمة المرور ان وجدت) الى الدالة كما اعتدنا . هدا الكود يبقى كما هو
ولا تنسى اضافة ComObj الى قائمة uses
بالتوفيق
ارتكبت خطا في كتابة الدالة
لا تغير الدالة CompactAndRepair اتركها على حالها هكدا
PHP كود :
function CompactAndRepair(DB, Password: string) : boolean;
const
sProvider = 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=%s;Jet OLEDB:Database Password="%s"';
var
v: OLEvariant;
begin { CompactAndRepair }
Result := True;
try
v := CreateOLEObject('JRO.JetEngine');
try
v.CompactDatabase(Format(sProvider, [DB, Password]), Format(sProvider, [DB + 'x', Password]));
if FileExists(DB + 'x') then begin
DeleteFile(DB);
RenameFile(DB + 'x', DB)
end;
finally
v := Unassigned
end; { try }
except
Result := False
end; { try }
end; { CompactAndRepair }
PHP كود :
procedure TForm5.Button3Click(Sender: TObject);
begin
DataModule1.ADOConnection1.Close;
if CompactAndRepair('E:\Projet\gestion commerciale\gestion commerciale\gestion commerciale\gestion commerciale.mdb','') then
ShowMessage('database compact successfully');
DataModule1.utilisateur.Open;
end;
بالتوفيق