حفظ وأسترجاع وضغط وأصلاح نسخه من قاعده البيانات

الف شكر اخى العزيز وجارى التحميل

جزاك الله خيراا

بارك الله فيك يا اخ جيييييينز وجعله الله في ميزان حسناتك

بارك الله بك

شاكرين افضالك يا ريس

ارجو انا يكون الجميع أستفاد من المثال

وأى سؤال انا موجود

يا باشا ممكن اسألك معلش سؤال انت عامل المثال ده علي اساس مكتبة الداو طيب مع مكتبة الأدو هيبقي المثال ازاي وشكله ايه هل هيكون هناك اي تعديلات في الأكواد ولا ايه وياريت لو في فورقات توضحهالي يا باشا بعد ازنك سلام

و عليكم السلام و رحمة الله و بركاته

و شكراً جزيلاً لك ...

السلام عليكم

أخى الكريم سامح

البرنامج ده بيشتغل فى حفظ وأسترجاع القاعده من الداو او الأدو

بس خد بيالك ان المتغير الخاص بفتح قاعده البيانات اسمه db

بالنسبه لضغط وإصلاح قاعده البيانات مجربتوش مع الأدو بس هو شغال تمام مع الداو

بس انا فاكر ان كان فى المنتدى موضوع ضغط وإصلاح بالأدو

وكان شغال تمام

دور عليه وانا لو لقيت حاجه هضيفها

يا باشا يعني انت تقصد اني اغير المتغير الخاص بالقاعدة اللي هو db لمتغير الأدو وليكن مثلا cn ولا ايه يا ريت توضحلي الموضوع شوية واكون شاكر ليك يا باشا

السلام عليكم

أخ سامح

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

يقبى بدل من db.close

هيبقى cn.close

بس

والباقى زى ماهو

شكرا يا باشا علي ردك ومساعدتك الجميلة دي واكيد لسة في اسئلة ما بينا كتير بس انا كنت حابب اتأكد من المعلومة اللي عندي وشكرا ليك علي التأكيد وردك الجميل السريع علي الموضوع

انا منتظر اسئلتك

وتأكد انى وبياقى الأعضاء فى المنتدى فى تعاون دائم

جزاك الله ألف ألف ألف خير

أتمنى عليكم مراجعة هذا العمل

لان فيه نفس العمليه ولكن بتوسع

/index.ph...c=85457&hl=

السلام عليكم

أخى المهنا

مشكور على الموضوع وانا بالفعل متابع الموضوع وتطوراته

Private Sub repair1_Click()

db.Close

On Error Resume Next

Dim x As String

x = Dir(App.Path & "\repairedDB.mdb")	  'see if the TempPath already exists

If x <> "" Then Kill App.Path & "\repairedDB.mdb"	 'Check if the Temp file already exists

Dim JRO As JRO.JetEngine

Set JRO = New JRO.JetEngine

JRO.CompactDatabase "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & App.Path & "\db.mdb", "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & App.Path & "\repairedDB.mdb"

Kill App.Path & "\db.mdb"	   'Kill the original DB

Name App.Path & "\repairedDB.mdb" As App.Path & "\db.mdb"

End Sub

السلام عليكم

أخى الكريم asfora

اولا اهنئك على تعديل الكود وظبطه ليتناسب مع الأدو

وأرجو ان يكون المثال كان كويس

ثانيا أشكرك على إضافه الكود فى الموضوع هنا وبكده الموضوع بقى كامل ومش ناقصه حاجه

وجزاك الله كل خير

أخي الباشمهندس Genius-IT

اقتباس

وأرجو ان يكون المثال كان كويس

أشكرك على المثال الممتاز جداً جداً جداً وحقيقة أنا استفدت منه كثيراً جداً والفضل يرجع لله ثم لك في وضعك ذلك المثال الرائع

وقد عقبت على المثال في المشاركة رقم 27 ، 28 في الرابط التالي

/index.ph...77869&st=15

ولكن أردت أن أضعه داخل موضوعك "حفظ واسترجاع وضغط واصلاح نسخة من قاعدة البيانات " فعلاً كما قلت أنت

اقتباس

ثانيا أشكرك على إضافه الكود فى الموضوع هنا وبكده الموضوع بقى كامل ومش ناقصه حاجه

جعل الله كل أعمالك في موازين حسناتك وبارك الله فيك على ما تقضيه من وقتك في مشاركة الشباب المبرمجين والوقوف بجانبهم

:D :D :D

تسلم يا غالي وجزاك الله ألف خير

الاخوه الاعزاء اسمحو لى ان اسأل سؤال

قمت بعمل قاعدة بيانات من جدول واحد وحقولة كالاتى:

رقم الدفعة _ اسم العميل _ قيمة الدفعة _ تاريخ الدفعة

والسؤال هو.....

اريد ان اعرض اسم العميل فى lstbox وعند اختيار احد العملاء والضغط على اسمة بlistbox تظهر عندى جميج الدفعات التى دفعها فى datagrid

ثم عن طريق زر خاص لمجموع الدفعات تظهر لى فى textbox تظهر لى جملة دفعات العميل

فهل اجد من يساعدنى على ذلك؟؟؟؟

اتمنى ان يكون الرد بمثال حتى استطيع دراسته وفهم مابه من اكواد

وشكرا الف شكر الى جميع اعضاء المنتدى والسادة المشرفين

اخوكم السعيد بدر السعيد

اعذروني على المداخلة

السعيد بدر السعيد

انت من وين و من اي السعيد انت القصيم راسلني على aas162@gmail.com :lol:

شرح ممتاز للطريقه مع الداو والادو جزاكم الله كل خير فقد عزبنى هذا الموضوع كثيرا

جزاك الله خيراً أخي GENIUS-IT