بسم الله الرحمن الرحيم
الاخوة الكرام هل يمكن تنفيذ ضغط او اصلاح قاعدة الاكسس من خلال الدلفي كما هو موجود في الاكسس.
وتفبلو فائق الاحترام.
هل يمكن ضغط قاعدة اكسس من خلال امر بالدلفي
مغلق
اخي العزيز انا لا اعرف كيفية البرمجة بدلفي ولكن اعتقد انكم تستخدموا ADO او DAO مثل فيجوال بيسك
ومنها يمكنك اصدار هذه الاوامر مثلا في فيجوال بيسك مع DAO
امر ضغط قاعدة البيانات
DBEngine.CompactDatabase "C:OldPath", "c:NewPAht"
شكرا
اخي العزيز لقد تحدث عن دلك الاستاد سيم سابقا ارجوا مراجعت والبحث عليه
ولكي اقرب لك هناك كمننت اسمه zlp تجده في الدلفي وهناك
ادوات اخري قمت بتزيلها .
لكن هده الادوات تقوم بعمل winzip اي ضغط الملفات وبما ان mdb ملفات فتصلح ان شاء الله
واعتقد اني كتب مثال في السابق عن الضغط ...
سابحث معاك ولله معنا .:o
********** الادات zlb
هده اهم الاوامر المستعملة في ضغط الملفات جلبتها من البرنامج الدي قمت به والدي قمت بتوسيعه بعدما نقلته
لكن تنقصه بعض الوحدات لدللك لا استطيع ان اجعله في رابطة الا بعد تصليحه
عند الضغط على جديد
********************************************************
procedure Tform1.New1Click(Sender: TObject);
var
ext : string;
begin
if Savedialog1.execute then
begin
if pos('.zlb',lowercase(extractfilename(Savedialog1.filename))) = 0 then
ext := '.zlb'
else
ext := '';
ZLB1.CreateArchive(Savedialog1.filename+ext);
end;
end;
********************************************************
عن الضغط على فتح ضع Opendialog1 على الفورم
procedure Tform1.Open1Click(Sender: TObject);
begin
if Opendialog1.Execute then
ZLB1.OpenArchive(Opendialog1.filename);
end;
********************************************************
عندما تريد اضافة ملف
procedure Tform1.AddFiles1Click(Sender: TObject);
begin
opendialog2.Title := 'Add File(s) to '+extractfilename(zlb1.archivename);
if opendialog2.Execute then
ZLB1.AddFiles(opendialog2.files);
end;
********************************************************
عندما تريد التغيير
procedure Tform1.UpdateFiles1Click(Sender: TObject);
begin
opendialog2.Title := 'Update File(s) in '+extractfilename(zlb1.archivename);
if opendialog2.Execute then
ZLB1.UpdateFiles(opendialog2.files);
end;
********************************************************
عندما تريد ضغط الملف
procedure Tform1.compClick(Sender: TObject);
begin
opendialog2.Title := 'Add File(s) to '+extractfilename(zlb1.archivename);
if opendialog2.Execute then
ZLB1.AddFiles(opendialog2.files);
end;
********************************************************
عندما تريد حدف الملف
procedure Tform1.delClick(Sender: TObject);
var
filelist : tstringlist;
loop : integer;
begin
if listview1.SelCount = 0 then exit;
if messagedlg('Delete selected files from archive?',mtConfirmation,mbOKCancel,0) = idok then
begin
filelist := tstringlist.create;
try
loop := 0;
while loop
begin
if listview1.items[loop].selected then filelist.Add(listview1.items[loop].SubItems[6]+listview1.items[loop].caption);
inc(loop);
end;
ZLB1.DeleteFiles(filelist);
finally
filelist.free;
end;
end;
end;
********************************************************
عنما ترسد اعاد التسمية
procedure Tform1.N10Click(Sender: TObject);
var
name : string;
begin
if listview1.SelCount = 0 then exit;
if listview1.SelCount > 1 then
begin
messagedlg('You can only rename one file at a time',mtinformation,[mbok],0);
end
else
begin
name := listview1.Selected.Caption;
if InputQuery('Rename File', 'Please enter a new name:', name) then
begin
if (name '') and (ansilowercase(name) ansilowercase(listview1.Selected.Caption)) then
zlb1.RenameFileByName(listview1.Selected.SubItems[6]+listview1.Selected.Caption,listview1.Selected.SubItems[6]+name);
end;
end;
end;
شكرا
هذا الموضوع مغلق.