السلام عليكم
أخوانى الكرام انا مش متابع الموضوع من اوله ولكن
يوجد فى التوقيع الخاص بى موضع حول حفظ وأسترجاع وضغط وأصلاح قاعده البيانات
وبه مثال شغاال 100% وهو بالداو ولن يختلف على الأدو
وهذا هو الرابط
Never Give Up You Are Programmer
Being Genius Is The Step Before Madness
Artificial Intelligence Is No Match For Natural Stupidity
شكراً أخي الحبيب Genius-IT على الإهتمام والمساعدة جزاكم الله خيرا فعلاً فعلاً Genius
ياشباب الكود الخاص بالباشمهندس Genius-IT فعال وشغال ميه ميه
ولكن عندي مشكلة بسيطة جداً وهي أن الضغط والاصلاح تم عمله بمكتبة DAO وعندي المشروع كاملاً يعمل بتقنية ADO لذلك فالجزء الخاص بالضغط والاصلاح
لقاعدة البيانات والذي يعتمد أصلا على المكتبة لا يتم تنفيذه عندي حاولت البحث داخل المنتدى وخارجه على تصميم الضغط والاصلاح بمكتبة ADO ولكن لم يتسنى لي
وحاولت أسويها بنفسي ولكن للأسف فشلت فلو حد عنده معرفه بهذا الموضوع يبقى جزاه الله خير الجزاء
الكود التالي :
Private Sub repair1_Click()
On Error Resume Next
db.Close
Dim x As String
Dialog1.Filter = "Database(*.MDB) | *.MDB"
Dialog1.ShowOpen
x = Dialog1.FileName
' Dim dbE As New dao.DBEngine
dbE.CompactDatabase x, App.Path & "\RepairedDB"
' بينما في مكتبة ADOلا يوجد DBE.COMPACTDATABASE وهنا المشكلة فما هو المقابل للسطر السابق من خلال مكتبة ADO
Kill App.Path & "\sairlines.mdb"
Name App.Path & "\repairedDB.mdb" As App.Path & "\sairlines.mdb"
End Sub
طبعاً حاولت كتير ولكن لم تظهر نتيجة
المشكلة في طريقة الحل عن باستخدام مكتبة ADO بينما الطريقة الموجودة هي مكتبة DAO
وشكراً جزيلاً
السلام عليكم
أخوانى الكرام انا وجدت فى احدى المنتديات الأجنبيه مثال
على ضغط قاعده البيانات عن طريق الأدو
المثال فى المرفقات ولكنى لم أجربه بعد
أرجو ان يفيد الجميع
Never Give Up You Are Programmer
Being Genius Is The Step Before Madness
Artificial Intelligence Is No Match For Natural Stupidity
السلام عليكم
أخ genius جربت المثال
و لكن عند فتح ال (out)(database ) يعطيني error
windows installer
preparing to install
لماذا
هذا الموضوع مغلق.
المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية
جارٍ التحقق من المتواجدين…