[Hazem1]

بسم الله الرحمن الرحيم
بالأمس عرضت مشكلة ظهور Error في مسار تشغيل البرنامج وكتب الأخ الفاضل [b]elgokr [/b]الحل عن طريق حذف ملف obj - وملف Debug وإعادة بناء المشروع ، بالفعل فعلت ذلك وعاد البرنامج للعمل بشكل صحيح، وللأسف الشديد مع أول تعديل في الأكواد اليوم تم حذف كل البيانات التي قُمت بإدخالها ولا حول ولا قوة إلا بالله العلي العظيم، ما الحل في هذه المُشكلة الله يرضى عنكم ؟



مُرفق لحضراتكم رابط الموضوع السابق 

http://vb4arb.com/vb/showthread.php?tid=26229

[elgokr]

اهلاً بك اخى Hazem1

يبدو ان مشكلة فقدان التصميم ناتج عن ظهور مثل هذه الصورة

ومما جعل منك الضغط على Ignore And Continue

اذا كان هذا ما حصل فكل ما عليك اغلاق المشروع دون عمل حفظ

وعند اعادة تشغيله ستجد انه اعادة كما هو عليه

يبقي النقطة التالية هو الملفات التى قد فقدت مثل مكتبة كانت مستخدمة

مثل مكتبات التصاميم وما شبه .. الخ

بخصوص ان المشكلة عادة مجدداً

من كم يوم كان فى موضوع مشابه لك لاحد الاعضاء الاخري

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

يقوم بعدم اغلاق البرنامج بعد استخراجة من السورس وفتحه لاختباره

مما يجعل كلما قمت بالتعديل على الكود 

وحاولت ان تقوم باستخراج نسخة جديدة من البرنامج

تعطى بالفشل دائماً كما هو لديك فى الصورة

اذا كان الامر يتكرر كثيراً

فى هذه الحالة ستقوم بتكرار ما سبق من شرحه فى موضوع السابق

ولكن فى هذه المرة كلما قمت بعمل استخراج البرنامج لا تقوم بتشغيله من خلال السورس

بل تقوم بنسخ البرنامج من مجلد Debug وليكن على سطح المكتب وتقوم باختبارة

وبعد الانتهاء تقوم بحذفه 

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

حتى اقوم بتوضيح بانه يوجد مشكلة قائمة بالسورس ام لا

---

---

تذكر ايضاً من المشاكل الشائعة التى قد تحدث احياناً

عند اتمام فتح سورس واتمام التعديل من اضفات او تغييرات على السورس

وتقوم باستخراج البرنامج وتغلق السورس وتتفجاء بان البرنامج والسورس لازال على قديمه

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

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

او ان تقوم بعمل Rebuild وتقوم باعادة محاولة الحفظ

يجب ان تتاكد بان لايوجد علامة * بجانب اى تاب كما هو فى الصورة التالية

وجود الـ * تعنى ان السورس لم يقوم بالحفظ بعد

تحياتى لك

وتمنياتى لك التوفيق

[Hazem1]

أخي الفاضل [b]elgokr [/b]لم تظهر الصورة ولكن من قبل كان يتم حفظ البيانات بشكل جيد حتى قمت بإضافة عمود جديد في قاعدة الأكسس، الغريب جداً أن الحفظ يتم لكن إذا قمت بالتعديل في الأكواد وأغلقت البرنامج وفتحته مرة ثانية لا أجد البيانات التي قُمت بإدخالها.

[elgokr]

(26-08-18, 01:42 PM)Hazem1 كتب : أخي الفاضل [b]elgokr [/b]لم تظهر الصورة ولكن من قبل كان يتم حفظ البيانات بشكل جيد حتى قمت بإضافة عمود جديد في قاعدة الأكسس، الغريب جداً أن الحفظ يتم لكن إذا قمت بالتعديل في الأكواد وأغلقت البرنامج وفتحته مرة ثانية لا أجد البيانات التي قُمت بإدخالها.

اذا الامر هنا بسيط جداً ولا يوجد اى مشكلة

يبدو انك تستخدم كود تنفيذ الحفظ / التعديل داخل كود

كود :

Try

لذلك لا تظهر لك رسالة بفشل اتمام التعديل بسبب نقص البيانات وما شبه

حتى توضح الامر اكثر لى وتوضيح لماذا يحدث معك ذلك

اتمنى ارفاق السورس وساقوم بتوضيح لك اين المشكلة 

بعد اتمامك للتعديلات لديك على قاعدة البيانات

فى انتظار ارسال او ارفاق السورس حتى توضح الصورة اكثر

واقدر افيدك بالحل الفعلى بدل من التخمين

تحياتى لك

وتمنياتى لك التوفيق

[Hazem1]

تفضل أخي الكريم (كود زر حفظ البيانات ) :

  (Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs

On Error GoTo saveErr

        ()Table15BindingSource.EndEdit
        (Table15TableAdapter.Update(A18DataSet.Table15

        ("Select Case MsgBox("Data saved successfully, Add New Data?", MsgBoxStyle.YesNo, "Save
            Case MsgBoxResult.Yes

                ()TextBox1.Select
                ()Table15BindingSource.AddNew


            Case MsgBoxResult.No

                (Me.Table15TableAdapter.Fill(Me.A18DataSet.Table15
                With DataGridView1
                    ()ClearSelection.
                    ReadOnly = True.
                    MultiSelect = False.
                End With

 End Select

ave Err
        Exit Sub
    End Sub

    

[elgokr]

خلاف ان الكود به خلل المدرج فى ردك الاخير

الا انى حاولت التعامل معه 

وكل ما اريده هو معرفة خصائص Table15BindingSource

وكذلك قاعدة البيانات

اتمنى ارفاق او ارسال السورس فى رسالة خاصة

اذا كنت لا تريد تعميم السورس للعامة حتى اتمكن من مساعدتك

وللاختبار اكثر لعمية هذا الزر

قم بتعكيل كلاً من سطر 

كود :

On Error GoTo saveErr
saveErr
Exit Sub

تحياتى لك

وتمنياتى لك التوفيق

[Hazem1]

أرسلت لك رسالة على الخاص أخي الكريم

[sendbad100]

السلام عليكم

جرب الحل التالي 


لو انك مستورد قاعدة البيانات في Solution exeplorer

قم بتحديدها ثم من الخصائص اختر خيار Copy to output directory

اختر الخيار do not copy

[elgokr]

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

اهلاً بك اخى Hazem1

اليك الاسباب التالي التى تسبب فى مشكلة التى لديك

لكن اذا تتقبل منى تنبيهك اتمنى ان تتابع دورة لاى مشروع 

اذا كان برنامج حسابى او اى شئ

يعتمد على التعامل مع قواعد البيانات 

لان الطريقة التى تستخدمها كلياً ليست الانسب لك 

وهذه ملاحظة منى كاخ لاخيه فاتمنا ان تتقبلها

الاسباب الناتجة عن عدم اغلاق البرنامج

وتكرار مشكلة التى تحدث لديك

اولاً عملية التعديل / التحديث على البيانات تعمل بدون اى مشكلة

لكن تابع معى الشرح التالى لتجنب المشاكل التى تتواجد بالسورس

الخطاء الاول استخدام الكود التالى اخل زر تسجيل الدخول

كود :

           Form2.Show()
           Me.Hide()

وبمجرد وجود 

كود :

           Me.Hide()

فانت بكده جعلت البرنامج يعمل دائماً مهما قمت باغلاق شاشة الفورم التى تعمل عليها

ولحل هذه المشكلة عليك بالتالى

1- استبدال الكود السابق ليصبح بهذا الشكل

كود :

           Form2.Show()
           Me.Close()

2- اتمام الخطوات التالية بالترتيب ....
  
 [ * ] فى القائمة الجانبية تجد كلمة My Project دبل كلك عليها لاتمام فتح الشاشة التالية طبق ما فى الصورة

وبكده تكون حليك المشكلة الرئيسية وهو عدم اغلاق البرنامج

وظهور الرسائل البالغة بان المشروع لازال يعمل وانه غير قادر عن استخراج البرنامج الجديد

3- فى الفروم رقم 2 فى زر الحفظ Save قم بازالة هذا السطر 

كود :

Table15BindingSource.AddNew()

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

هذه الملاحظات السريعة الذى احببت ان انبهك بها سريعاً لتجنب المشاكل التى تظهر معك منذ الموضوع السابق

تحياتى لك

وتمنياتى لك التوفيق

[Hazem1]

تم أخي التعديلات أصلحت المشكلة بفضل الله ثُم عونك ، ما تبقى سوى حفظ البيانات ولله الأمر من قبل ومن بعد .