دخول

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;

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

bassem_43 · 17-04-2016, 02:37 PM

و عليكم السلام
جرب اجابتي في هدا الموضوع
http://delphi4arab.net/forum/showthread....2#pid38302

wadoud · 17-04-2016, 04:08 PM

أخي لا أستعمل dataModule

DataModule1.utilisateur.Open;

يمكن كتابتها كالتالي

ADOConnection1.Open ;
???

bassem_43 · 18-04-2016, 01:03 PM

نعم يمكن دلك
ADOConnection1.close
ADOConnection1.Open
لكن يفضل استعمال dataModule في مشاريعك ضع عليها جميع جداولك و الاتصال و غيرها للتحكم الاحسن فيها

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