حفظ وأسترجاع وضغط وأصلاح نسخه من قاعده البيانات
مشكووووووووووووووووووووووووووووووووووووور يا اخ GENIUS
الله يجزاك الخير
سبحان الله والحمد لله ولا اله الا الله و الله اكبر
اللهم صلي وسلم وبارك على سيدنا محمد وعلى اله وصحبه وسلم
شكرا جزيلا لك
مشكووووور اخي العزيز وجزاك الله خير كثيرا
الف الف شكر
ياليت كود يقوم بضغط واصلاح القاعدة وهي في مسار معين مثلاً هذا المسار
C:\Test\layan.mdb
اريد ضغط واصلاح القاعدة layan دون نسخها ولكن الهدف هو تقليص حجم القاعدة فقط
يعني اريد تثبيت مسار القاعدة وليس اختيار قاعدة من مكان آخر
ارجو الرد عاجلاً
كلمات اتعبت الملائكة في كتابة الأجر فذهبوا وشكوا إلى ربهم .... ماذا يفعلون
فقال لهم سبحانه وتعالى اطووها بصحائفها وضعوها تحت عرشي فتبقى حسناتها إلى يوم القيامة الله اكبر
(( اللهم لك الحمد كما ينبغي لجلال وجهك وعظيم سلطانك))
لا اله الا الله
كلمات اتعبت الملائكة في كتابة الأجر فذهبوا وشكوا إلى ربهم .... ماذا يفعلون
فقال لهم سبحانه وتعالى اطووها بصحائفها وضعوها تحت عرشي فتبقى حسناتها إلى يوم القيامة الله اكبر
(( اللهم لك الحمد كما ينبغي لجلال وجهك وعظيم سلطانك))
سبحان الله وبحمده سبحان الله العظيم
لماذا لا احد يرد هل السؤال صعب لهذه الدرجة اين المبرمجون ؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟
كلمات اتعبت الملائكة في كتابة الأجر فذهبوا وشكوا إلى ربهم .... ماذا يفعلون
فقال لهم سبحانه وتعالى اطووها بصحائفها وضعوها تحت عرشي فتبقى حسناتها إلى يوم القيامة الله اكبر
(( اللهم لك الحمد كما ينبغي لجلال وجهك وعظيم سلطانك))
سبحان الله وبحمده سبحان الله العظيم
كلمات اتعبت الملائكة في كتابة الأجر فذهبوا وشكوا إلى ربهم .... ماذا يفعلون
فقال لهم سبحانه وتعالى اطووها بصحائفها وضعوها تحت عرشي فتبقى حسناتها إلى يوم القيامة الله اكبر
(( اللهم لك الحمد كما ينبغي لجلال وجهك وعظيم سلطانك))
السلام عليكم ورحمة الله وبركاته
حياكم الله جميعا وبعد غياب لمدة طويلة أعود لأتعلم من اخواني الكرام
شكرا اخي جينيس على الكود وهو فعلا مهم لكثير من الناس...
بالنسبة لطلب الأخ layan
اذا كانت قاعدة بياناتك على المسار التالي C:\layan.mdb
فمن الممكن اصلاحها وضغطها ووضعها في نفس المسار دون اظهار صندوق الحوار والاختيار يدويا
وذلك عن طريق الكود التالي:
x = "C:\layan.mdb" Dim dbE As New DAO.DBEngine dbE.CompactDatabase x, App.Path & "\RepairedDB" Kill x Name App.Path & "\repairedDB.mdb" As x
ولكن يجب ان تعلم انك لن تلاحظ اي شئ عند التجربة لان العملية ستتم بسرعة جدا وسيتم اصلاح قاعدة البيانات وإعادتها لنفس المسار فورا وبنفس الاسم
واذا أردت ان تتأكد من ان العملية تمت بنجاح ضع الكود التالي في النهاية بعد حرف الاكس
& ".new"
شكرا لكم على مشاركاتكم الطيبة وبالتوفيق دائما
=================
إلى اللقاء
JusT LeT YouR MinD WorK
مشكور والله اخى المصرى الكريم والله يبارك فى المصريين ويزيدهم من علمه وده من المواضيع المهمة فعلا وياريت لو عندك خبرة فى الفيجوال مع السيكوال تراجع سؤالى فى المنتدى واللى محدش جاوبه ؟؟
سبحان الله العظيم ............ سبحان الله وبحمده
اللهم علمنا بما ينفعنا وانفعنا بما علمتنا
الف الف شكر لك اخي MR^King
ولكن عند استخدام الكود تظهر هذه الرسالة علماً ان الويندوز فيستا والاوفيس 2007
رسالة الخطأ:
عزيزي اريد ان اخبرك بان القاعدة المطلوب ضغطها واصلاحها ليست مرتبطة بالبرنامج وانما هي ببرنامج اخر
كل ما اريده هو عمل برنامج يحتوي على زرين امر فقط واحد لضغط واصلاح القاعدة ونسخها من مسارها الى مسار اخر
ليتم ارسالها بالبريد الألكتروني
اسف على الاطالة
تم تعديل هذه المشاركة بواسطة layan في 7 يوليو 2007 في 14:45
كلمات اتعبت الملائكة في كتابة الأجر فذهبوا وشكوا إلى ربهم .... ماذا يفعلون
فقال لهم سبحانه وتعالى اطووها بصحائفها وضعوها تحت عرشي فتبقى حسناتها إلى يوم القيامة الله اكبر
(( اللهم لك الحمد كما ينبغي لجلال وجهك وعظيم سلطانك))
السلام عليكم ورحمة الله وبركاته
أخي الكريم ANASS OMAR
ممكن حضرتك تضع رابط موضوعك وان شاء الله نحاول نجاوب على سؤالك بقدر الامكان
-----------------------
أخي layan
هذه الرسالة تظهر عندما تكون حضرتك اسخدمت المكتبة دون استدعائها
فكل ما عليك هو ان تذهب الى الـ References وتستدعي مكتبة الداو Data Access Objects
وسيعمل البرنامج ان شاء الله
بالنسبة للبرنامج الذي تريد عمله فأعتقد يمكنك استخدام مشروع الاخ جينيس والتعديل عليه بما يناسبك
JusT LeT YouR MinD WorK
الف الف شكر لك عزيزي
كلمات اتعبت الملائكة في كتابة الأجر فذهبوا وشكوا إلى ربهم .... ماذا يفعلون
فقال لهم سبحانه وتعالى اطووها بصحائفها وضعوها تحت عرشي فتبقى حسناتها إلى يوم القيامة الله اكبر
(( اللهم لك الحمد كما ينبغي لجلال وجهك وعظيم سلطانك))
هذا الموضوع مغلق.