كيف ضغط قواعد البيانات

السلام عليكم

ارجو التوضيح اكثر

1-هل تعنى ضغط ملف قاعدة البيانات من حيث مساحته

2 ام تصميم الجداول بطريقة منظمة تتلافى تكرار البيانات و بالتالى توفير مساحة مع الزمن

(h) (h) (h)

اليك الملف المرفق وهو لاحد الاخوه فيه ما تريدين . تحياتي لكي

اليك الملف المرفق وهو لاحد الاخوه فيه ما تريدين . تحياتي لكي

For_U3.zip

For_U3.zip

A7med_prof كتب:

اليك الملف المرفق وهو لاحد الاخوه فيه ما تريدين . تحياتي لكي

←

اخي الفاضل

السلام عليكم

عند فك ضغط المرفقات الوين زب يخبرني ان الملفات corrupted

اعد تحميل الملفات مرة اخرى

بالرغم من التحميل اكثر من مرة المشكلة موجودة

برجاء المساعدة ؟

والله شي طيب

مشكورين اخوتي على هذا التعاون والرد السريع

اخي VB6-Rocket كان طلبي هو ضغط ملف القاعدة من حيث مساحتة ولو توجد الطريقتين يكون افضل

اخي العزيز A7med_prof مشكور على الامثلة وجاري التحميل

جربي هذا الكود حيث يتم وضع زري اختيار للنسخ والضغط على القرص الصلب أو القرص المرن وطبعا يمكنك استخدام أداة common dialog لتحديد مسار الملف

Private Sub Command6_Click()
Dim dbstore As DAO.Database
If db.State = adStateOpen Then db.Close
Dim mypath, sorfile, desfile, myfile
mypath = App.Path & "\elecwater.mdb"

If Option1.Value = True Then
On Error GoTo err
desfile = "a:\elecwater.mdb"
  If Dir(desfile) <> "" Then
  Kill (desfile)
  End If
DBEngine.CompactDatabase mypath, desfile, dbLangGeneral
FileCopy mypath, desfile        ' Copy source to target.
MsgBox "تم عمل نسخة احتياطية من قاعدة بيانات المخزن", vbInformation + vbMsgBoxRight + vbMsgBoxRtlReading, "نسخة احتياطية"
End If

If Option2.Value = True Then
myfile = App.Path & "\" & "elecwater.mdb"
desfile = App.Path & "\my bakup" & "\elecwater.mdb"
  If Dir(desfile) <> "" Then
  Kill (desfile)
  End If
DBEngine.CompactDatabase myfile, desfile, dbLangGeneral
FileCopy myfile, desfile        ' Copy source to target.
MsgBox "تم عمل نسخة احتياطية من قاعدة بيانات المخزن", vbInformation + vbMsgBoxRight + vbMsgBoxRtlReading, "نسخة احتياطية"
End If
Exit Sub
err:
MsgBox "لا يوجد قرص مرن في محرك الأقراص أو أن القرص معطوب اعد المحاولة", vbInformation + vbMsgBoxRight + vbMsgBoxRtlReading, "خطأ نسخ"
End Sub

تحياتي

أخوكم ناصر

السلام عليكم

اختى سمر

بالنسبة لضغط الملف نفسه عن طريق الكود فهو عملية معقدة لانه يوجد طرق معينة و خوارزوميات لضغط الملفت و هى التى تتبعها برامج ضغط الملفات مثل winzip و winrar وهما برامج مختصة بالضغط فقط ... إذا فهى عملية ليست سهلة و ليست مستحيلة

اما بالنسبة للطريقة الاخرى فهى تحتاج الى ان يتم تصميم قاعدة البيانات و تصميم الجداول بحيث يتم تلاشى تكرار البيانات فى الجداول و ذلك عن طريق استخدام primary key و forigne key و الربط بين الجداول وهذه الطرق أكيد مشروحة فى منتديات قواعد البيانات وارجو الرجوع اليها.

مع خالص تحياتى

ابراهيم

اخي / A7med_prof للاسف الملفات المرفقة لا تعمل

اخي VB6-Rocket اشكرك على ردك وتوضيحك

لم اقصد طريقة الضغط كما في برامج winzip او winrar المعقدة

انما ضغط القاعدة وقد وجت اكثر من برنامج يحمل هذه الخاصية ومع ضغط للقاعدة لاباس به

حيث ان يوجد في برنامج الاكسس خاصية ضغط القاعدة واكيد هنالك كود ينفذ هذا الامر عن طريقة الفجول

شكرا اخي / nasser50001 على الكود وجاري التجربة

لكن ربما كان في الكود عمل نسخ احتياطية وكنت ابحث عن ضغط القاعدة فقط

واشكركم مره اخرى

الاخت العزيزه / سمر البارحي .

اسف لتاخري اليك الكود مره اخرى واسف للملف الذي لا يعمل . بس باقي خطوه لهذا الكود هو ربط الفجوال بالقاعده.

ضغط قاعدة البيانات.zip

اختي الكود الذي ارفقته يضغط قاعدة البيانات وينسخها اما على القرص الصلب أو المرن

تحياتي

السلام عليكم

اخ ناصر

ما الادوات التي اعملها لكي يعمل برنامجك لانه تطلع رسالة .

أخي ناصر :

ماهي المكتبة المطلوبة لعمل البرنامج

اخواني nasser50001 و A7med_prof اشكركم كثيراً على مساعدتكم وتعاونكم

لكن كل ما حاولت واجرب يطلع خطاء في كل من الطريقتين

فالرجاء وضع مثال مع قاعدة بيانات

واعتذر منكم اخواني فقد اتعبتكم معي

فقط اضيفي مكتبة microsoft DAO في مرجع البرنامج

ثم ضعي قاعدة البيانات في نفس مسار المشروع وضعي زري اختيار option1 و option2 وضعي مجلد جديد باسم my backup في نفس مجلد المشروع ويمكنك تطويره باستخدام اداة common dialog لتحديد مسار النسخة

تحياتي

اخوكم ناصر

هل يمكن عمل ضغط وإصلاح قاعدة البيانات عن طريق ADO نرجوا الإفاده

اشكركم كثير كثير على مساعدتكم

واعتذر منكم عن تاخري لشكركم وذلك بسبب الامتحانات التي منعتني من الدخول الى الانرنيت

والحمد لله قد عملت احد الطرق بشكل سليم

وذلك بفضلكم بعد فضل الله

واعتذر واشكركم مره اخرى