المثال رفعته مرة اخرى
MySaver_for_Listbox_items.zip
(13-09-13, 11:38 AM)Nŏ Coммεητ كتب :
ممكن توضح الفكره اكثر مافهمتها
العنوان واضح لكن الازرار غير واضح المقصود منها
بالنسبه للبرنامج يارايت ترجع ترفعه من جديد
___________
دمت بخير
الفكرة اخي الكريم ان حفظ محتويات الـ Listbox حال الربط بقاعدة البيانات يختلف عنها حال من غير ربط.
هذه اساس الفكرة ويوجد زرين هما
حفظ الكل من جدول1 الى جدول2
حفظ المحدد من جدول1 الى جدول3
وفي كلا الزرين يتم التحقق من هل اداة Listbox1 الاولى مربوطة ام لا بالشرط او الكود التالي:
كود :
If IsNothing(ListBox1.DataSource) Then
اذا تحقق هذا الشرط انظر للكود كيف كتبناه وان لم يتحقق ايضا انظر كيف يكون الكود
ان كان غير مربوط انظر كيف نحفظ القيمة المحددة من الـ Listbox1
كود :
cm.Parameters.AddWithValue("@tn", itm)
الـ itm هذه ضمن جملة For
طيب في حال عدم تحقق الشرط اي ان الاداة مربوطة وهي LIstbox1
كود :
cm.Parameters.AddWithValue("@tn", itm("tn"))
الـ tn هي اسم عمود الاسماء في الجدول
اما الزرين الاوليين فلا يهم لانه فقط فصل الاداة وربطها
(12-09-13, 10:31 PM)العزابي كتب : جميل جدا جدا وأشكرك ...........
العفو اخوي
والاجمل تواجدك بالموضوع.
اللهم إني أعوذ بك من غلبة الدين وغلبة العدو، اللهم إني أعوذ بك من جهد البلاء ومن درك الشقاء ومن سوء القضاء ومن شماتة الأعداء
اللهم اغفر لي خطيئتي وجهلي، وإسرافي في أمري وما أنت أعلم به مني، اللهم اغفر لي ما قدمت وما أخرت، وما أسررت وما أعلنت وما أنت أعلم به مني، أنت المقدم وأنت المؤخر وأنت على كل شيء قدير