دخول

wadoud · 17-04-2016, 12:29 PM

السلام عليكم ورحمة الله وبركاته
أحبائي الكرام حاولت إستعمال هذا الكود , ولكن لا يعطيني في الأخير رسالة نجاح العملية , لعل الخبراء ينظرون في أمره

كود :
uses  ComObj;
function TForm1.CompactMDB(const DBFile, Pwd: string): Boolean;
var
  TempDBFile:string;
  ConStr:string;
  JE:OleVariant;
begin
  ConStr := 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=%s;'
                                +'Jet OLEDB:Database Password=%s;';
  TempDBFile:=ExtractFilePath(Application.ExeName)+'Test.mdb';
  try
    JE:=CreateOleObject('JRO.JetEngine');
    JE.CompactDatabase(Format(ConStr,[DBFile,Pwd]),
        Format(ConStr,[TempDBFile,Pwd]));
     Result:=CopyFile(PChar(TempDBFile),PChar(DBFile),False);
    DeleteFile(PChar(TempDBFile));
  except
    Result:=False;
  end;
end;

ومن أجل الإستدعاء

ADOConnection1.Close;
if CompactMDB(ExtractFilePath(Application.ExeName)+'Test.mdb','1230456') then  
ShowMessage('database compact successfully');
ADOConnection1.open;

لكن لا تظهر الرسالة 
السلام عليكم.

دخول
اسم المستخدم/البريد الالكتروني :
كلمة المرور :	فقدت كلمة المرور ؟
	تذكرني بالمرة القادمة