تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
الحذف من الجدول الفارغ من البيانات
#1
السّلام عليكم و رحمة الله و بركاته
أمسية طيّبة للجميع .. أرجو أن تكونوا كلّكم بتمام الصحّة و العافية إن شاء الله
إخواني الأكارم .. حاولت العديد من المرّات لكنّي لم أتوصّل إلى التّنسيق المناسب لتتم عمليّة الحذف بأحسن طريقة
كود الحذف يعمل بطريقة ممتازة ..
لكن لو الجدول فارغ تماما من البيانات و أضغط سهوا على زر الأمر " الحذف " ينتج على ذلك خطأ بالملف مثلما تشير الصّورة  أدناه ..

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


الملفات المرفقة
.rar   الحذف.rar (الحجم : 137.8 ك ب / التحميلات : 24)
الرد
تم الشكر بواسطة:
#2
وعليكم السلام ورحمة الله وبركاته

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



كود :
If Me.Text = "Form1" Then

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

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

       End If
الرد
تم الشكر بواسطة: عبد العزيز البسكري
#3
(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

السّلام عليكم و رحمة الله و بركاته
بارك الله فيك و لك و جزاك خير الجزاء أخي الكريم " سعود " على المساعدة
لكن هنا أمر الحذف لا يتم .. بمعنى لا يتم الانتقال للجزء الخاص بالحذف إذا كان الجدول موجود فعلا به بيانات
كل الشكر و الاحترام
الرد
تم الشكر بواسطة:
#4
وعليكم السلام ورحمة الله وبركاته 

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

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


أتمنى الفكرة تكون بسيطة.
الرد
#5
وبارك بكك أخي الغالي

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

https://youtu.be/zlJkXjPsKtg

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

السّلام عليكم و رحمة الله و بركاته
تسلم أخي الفاضل " سعود الشامان " ربّنا يبارك فيك و لك و يديم عليك بخيراته و طيّباته و يرزقك خيرات الداريْن إن شاء الله
المشكلة أخي الغالي ليست في عمليّة الحذف بحد ذاته مثلما ذكرت ..
الاشكاليّة عندما يكون الحقل فارغًا ..
ال IF DB NULL .. لم أعرف كيف أو ظفها من غير الخروج من تنسيق  كود الحذف بالمرفقات
كل الاحترام و الشكر و التقدير
الرد
تم الشكر بواسطة: سعود الشامان
#7
اذا حضر الماء بطل التيمم

Big Grin

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

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

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

لكن استخدمت الحذف في عدة مشاريع ويحذف حتى لو كان فارغ
بشوف لك مشروع سابق استخدمت فيه خيار الحذف
وان شاء الله تجد به مطلبك والاستاذ عبدالله ما يقصر ولا يهونو اخواننا الغاليين
الرد
تم الشكر بواسطة: عبد العزيز البسكري
#8
(06-02-18, 08:00 PM)سعود الشامان كتب : اذا حضر الماء بطل التيمم

Big Grin

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


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

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

دخول Admin

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


http://www.mediafire.com/file/57g8x4m57s..._test2.zip
الرد
#10
(06-02-18, 07:54 PM)عبد العزيز البسكري كتب :
فقط أخي الكريم .. كيف يمكن إضافة الجزء الخاص لمّا يكون الجدول فارغًا ببداية الكود ..
إذا كان الجدول فارغا من البيانات .. يتم الخروج من الكود و عدم تنفيذ الحذف
و إذا كان الجدول به بيانات يتم تجاهل الجزء أعلاه و يتم الحذف بشكل عادي بالكود بالمرفقات بالملف بالمشاركة الأولى
شاكر مجهودك أخي القدير .. إلهي يجعل كل حرف ممّا كتبته بمليون حسنة و أكثر
تحياتي


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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Question [VB.NET] ازرار التنقل و الاضافة و الحفظ و الحذف و التعديل في entity framework باستخدام visual vb 2010 + sql server 2008 2 56 , 11:31 AM
آخر رد: vb 2010 + sql server 2008
  [VB.NET] هل من الضروري اغلاق الاتصال بعد جلب البيانات من sql في جملة الاستعلام alipro 3 86 , 03:50 AM
آخر رد: Jounior_P
  [ تمّ الحل ] : عدم القدرة على عمل أتاش لقاعدة البيانات عبد العزيز البسكري 23 831 24-10-20, 12:48 AM
آخر رد: عبد العزيز البسكري
  [VB.NET] ربط التقارير بقاعده البيانات احمد سليمان 0 67 14-10-20, 02:43 PM
آخر رد: احمد سليمان
  حفظ list box في قاعدة البيانات اعينوني,,,,,,, KIKO1992 0 74 13-10-20, 11:08 AM
آخر رد: KIKO1992
  [VB.NET] اضافة ازرار حسب عدد متغير في قاعدة البيانات Ad Heart 2 438 08-10-20, 05:07 AM
آخر رد: Ad Heart
  [VB.NET] عمل اتاش و تحديث قاعدة البيانات بعد التعديل على الحقول دون ضياع السجلات برمجيا larbihamri 4 218 06-10-20, 03:33 PM
آخر رد: larbihamri
  الحذف من جدولين khaled Mohammed 3 155 16-09-20, 06:31 PM
آخر رد: khaled Mohammed
  [VB.NET] تعديل البيانات من خلال فورم آخر EbrNaj00 6 361 16-09-20, 12:42 AM
آخر رد: EbrNaj00
  المساعدة في التعديل على كود تعديل البيانات في قاعدة سيكوال سيرفر momani33 3 230 15-09-20, 08:10 PM
آخر رد: Anas Mahmoud

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم