+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : إصلاح وضغط قاعدة البيانات MS Access متصلة دنامكيا (/showthread.php?tid=7733)
إصلاح وضغط قاعدة البيانات MS Access متصلة دنامكيا - wadoud - 17-04-2016
السلام عليكم ورحمة الله وبركاته
أحبائي الكرام حاولت إستعمال هذا الكود , ولكن لا يعطيني في الأخير رسالة نجاح العملية , لعل الخبراء ينظرون في أمره
كود :
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;
لكن لا تظهر الرسالة
السلام عليكم.RE: إصلاح وضغط قاعدة البيانات MS Access متصلة دنامكيا - bassem_43 - 17-04-2016
و عليكم السلام
جرب اجابتي في هدا الموضوع
http://delphi4arab.net/forum/showthread.php?tid=1465&pid=38302#pid38302
RE: إصلاح وضغط قاعدة البيانات MS Access متصلة دنامكيا - wadoud - 17-04-2016
أخي لا أستعمل dataModule
DataModule1.utilisateur.Open;
يمكن كتابتها كالتالي
ADOConnection1.Open ;
???
RE: إصلاح وضغط قاعدة البيانات MS Access متصلة دنامكيا - bassem_43 - 18-04-2016
نعم يمكن دلك
ADOConnection1.close
ADOConnection1.Open
لكن يفضل استعمال dataModule في مشاريعك ضع عليها جميع جداولك و الاتصال و غيرها للتحكم الاحسن فيها