الحذف من الجدول الفارغ من البيانات

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

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : الحذف من الجدول الفارغ من البيانات (/showthread.php?tid=23706)

الصفحات: 1 2

الحذف من الجدول الفارغ من البيانات - عبد العزيز البسكري - 06-02-18

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

أمسية طيّبة للجميع .. أرجو أن تكونوا كلّكم بتمام الصحّة و العافية إن شاء الله

إخواني الأكارم .. حاولت العديد من المرّات لكنّي لم أتوصّل إلى التّنسيق المناسب لتتم عمليّة الحذف بأحسن طريقة

كود الحذف يعمل بطريقة ممتازة ..

لكن لو الجدول فارغ تماما من البيانات و أضغط سهوا على زر الأمر " الحذف " ينتج على ذلك خطأ بالملف مثلما تشير الصّورة أدناه ..

كيف لو سمحتم أضيف خاصّية الخروج من تنفيذ الكود و إلغاء الحذف لو الجدول فارغًا من السجلات

بارك الله فيكم و لكم و جزاكم خير الجزاء

تحياتي

RE: الحذف من الجدول الفارغ من البيانات - سعود الشامان - 06-02-18

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

مثال بسيط لأمر الخروج من الكود بشرط

كود :

If Me.Text = "Form1" Then

            MsgBox("عبدالعزيز البسكري")

            Return

         MsgBox("1 2 3 4 5 6 7 8 9")

        End If

RE: الحذف من الجدول الفارغ من البيانات - عبد العزيز البسكري - 06-02-18

(06-02-18, 05:26 PM)سعود الشامان كتب : وعليكم السلام ورحمة الله وبركاته

مثال بسيط لأمر الخروج من الكود بشرط

كود :

If Me.Text = "Form1" Then MsgBox("عبدالعزيز البسكري") Return MsgBox("1 2 3 4 5 6 7 8 9") End If

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

بارك الله فيك و لك و جزاك خير الجزاء أخي الكريم " سعود " على المساعدة

لكن هنا أمر الحذف لا يتم .. بمعنى لا يتم الانتقال للجزء الخاص بالحذف إذا كان الجدول موجود فعلا به بيانات

كل الشكر و الاحترام

RE: الحذف من الجدول الفارغ من البيانات - عبدالله الدوسري - 06-02-18

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

InfoManager.Current
هو السجل الحالي الذي يؤشر علية ال bindingsource
اسأل اذا لم يكن هذا السجل Nothing
عندها نفذ إزالة السجل

كود :

if InfoManager.Current Isnot Nothing Then

 نفذ الحذف هنا

 End If

ومن باب أولى ان تعطل الزر إذا لم يكن هناك أي سجل في الأصل
هناك حدث خاص بال bindingsource
اسمه : CurrentItemChanged
يتم تنفيذ هذا الحدث إذا تم تغيير مكان المؤشر بشكل تلقائي ، ويحدث عندما يتم افراغ الداتا قريد فيو ايضاً لأن المؤشر أصبح غير موجود لعدم وجود سجلات. ويحدث عند التنقل بين السجلات.
هنا انت تستفيد من هذا الحدث للتحكم بواجهة المستخدم. مثلا زر الحذف يتم تعطيلة لعدم وجود سجلات في الأصل وكذلك زر التحرير لنفس السبب.
مثلا بعض السجلات تحتوي على وثيقة وليس كل السجلات . وقمت بتصميم زر لعرض هذة الوثيقة. فمن باب أولى ان اسأل السجل هل يحتوي على وثيقة أم لا، وبالتالي افعل زر عرض الوثيقة أو أقوم بتعطيلة، وهكذا دواليك مع أي زر يتعامل مع السجل.

كود :

Private Sub InfoManager_CurrentItemChanged(sender as Object, e as EventArgs) Handles InfoManager.CurrentItemChanged

 if InfoManager.Current Isnot Nothing Then

 فعل الزر هنا 

Else

عطل الزر هنا

 End If

 End Sub

ودائماً وأبداً ( نصيحة )
استخدم :

كود :

Try 

 Catch ex As Exception 

 End Try

( خصوصاً ) عندما تتعامل مع حالات غير متوقعة ، أو لا يمكن التنبؤ بالنتيجة .
وهي تنفع ايضاً للهروب من الأخطاء .

أتمنى الفكرة تكون بسيطة.

RE: الحذف من الجدول الفارغ من البيانات - سعود الشامان - 06-02-18

وبارك بكك أخي الغالي

شاهد هذا الفيديو بخصوص الحذف من قاعدة البيانات

https://youtu.be/zlJkXjPsKtg

وجاري تحميل المشروع مع اني لفترة قواعد البيانات إن شاء الله نوصل معك للحل

RE: الحذف من الجدول الفارغ من البيانات - عبد العزيز البسكري - 06-02-18

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

تسلم أخي الفاضل " عبد الله الدّوسري " على الشّرح الرّائع و النّصائح المفيدة .. روعة شخصك الكريم

بارك الله فيك و أحسن إليك و زادك من علمه و فضله إن شاء الله

فقط أخي الكريم .. كيف يمكن إضافة الجزء الخاص لمّا يكون الجدول فارغًا ببداية الكود ..

إذا كان الجدول فارغا من البيانات .. يتم الخروج من الكود و عدم تنفيذ الحذف

و إذا كان الجدول به بيانات يتم تجاهل الجزء أعلاه و يتم الحذف بشكل عادي بالكود بالمرفقات بالملف بالمشاركة الأولى

شاكر مجهودك أخي القدير .. إلهي يجعل كل حرف ممّا كتبته بمليون حسنة و أكثر

تحياتي

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

تسلم أخي الفاضل " سعود الشامان " ربّنا يبارك فيك و لك و يديم عليك بخيراته و طيّباته و يرزقك خيرات الداريْن إن شاء الله

المشكلة أخي الغالي ليست في عمليّة الحذف بحد ذاته مثلما ذكرت ..

الاشكاليّة عندما يكون الحقل فارغًا ..

ال IF DB NULL .. لم أعرف كيف أو ظفها من غير الخروج من تنسيق كود الحذف بالمرفقات

كل الاحترام و الشكر و التقدير

RE: الحذف من الجدول الفارغ من البيانات - سعود الشامان - 06-02-18

اذا حضر الماء بطل التيمم

Big Grin

شكرا عالمعلومات أستاذ عبدالله

شكرا على الدعوه اخوي عبدالعزيز عسى الله يوفقككك ويحقق مطلبك

والمشروع عندي فيه اشكالية لا تتم القراءة من القاعدة ولا يظهر خطا

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

RE: الحذف من الجدول الفارغ من البيانات - عبدالله الدوسري - 06-02-18

(06-02-18, 08:00 PM)سعود الشامان كتب : اذا حضر الماء بطل التيمم

شكرا عالمعلومات أستاذ عبدالله

ما نستغني عنك أخوي سعود ، بارك الله فيك .

RE: الحذف من الجدول الفارغ من البيانات - سعود الشامان - 06-02-18

لإختصار الوقت

من قائمة المشروع اختر ملف >> تسجيل الدخول >>

دخول Admin

اسم المستخدم: سعود الشامان
كلمة السر : 1411

http://www.mediafire.com/file/57g8x4m57sv351r/sintral_test2.zip

RE: الحذف من الجدول الفارغ من البيانات - عبدالله الدوسري - 06-02-18

(06-02-18, 07:54 PM)عبد العزيز البسكري كتب :
فقط أخي الكريم .. كيف يمكن إضافة الجزء الخاص لمّا يكون الجدول فارغًا ببداية الكود ..

إذا كان الجدول فارغا من البيانات .. يتم الخروج من الكود و عدم تنفيذ الحذف

و إذا كان الجدول به بيانات يتم تجاهل الجزء أعلاه و يتم الحذف بشكل عادي بالكود بالمرفقات بالملف بالمشاركة الأولى

شاكر مجهودك أخي القدير .. إلهي يجعل كل حرف ممّا كتبته بمليون حسنة و أكثر

تحياتي

مشاركاتي حلياً بالهاتف، ولا استطيع تحميل ملفات المشاريع بالهاتف.
نفس ردي السابق لا تغيير ، يمكن الفكرة ما وصلت، ان شاء الله الشباب ما يقصرون فيهم الخير والبركة.
وأعتذر منك أخوي عبدالعزيز، لبعدي عن جهاز الكمبيوتر حالياً.
تحياتي للجميع.