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

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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

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

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

Big Grin

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


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

بعد قلبي انت

نقطة من بحر في جانبك أستاذنا الغالي ,, ماشاء الله عليك

بعد إذن الغالي  عبد العزيز

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

الآن لو شاركت قاعدة البيانات واعطيت صلاحية إضافة بيانات لقسم اخر فلنفرض ( الإدارة الطبية )
ستكون قاعدة البيانات في خطر ( سيتمكن اي عابث او مخرب او حاقد من حذف القاعدة )

هل يوجد حل لهذه المشكلة ؟


مع العلم الآن تعمل على السيرفر الإفتراضي للويندوز كتجربة
لكن مستقبلا سيتم وضعها على ( جهاز سيرفر )

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

(06-02-18, 08:17 PM)سعود الشامان كتب : لإختصار الوقت

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

دخول Admin

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

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


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

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


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

If DT.ROWS.COUNT = 0 Then
            Exit Sub
        End If
تححقق من وجود سجلات اولا   DT هي داتا تايبل تجلب السلاجلات

في كل البرامج يجب وضع قواعد التحقق أولا في الكود

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

بيوصلك باذن الله بس عطني بعض الدقائق

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

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

http://www.mediafire.com/file/57g8x4m57sv351r/sintral_test2.zip
[url=http://www.mediafire.com/file/57g8x4m57sv351r/sintral_test2.zip][/url]

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

(06-02-18, 10:08 PM)محمد بن عطية كتب : If DT.ROWS.COUNT = 0 Then
            Exit Sub
        End If
تححقق من وجود سجلات اولا   DT هي داتا تايبل تجلب السلاجلات

في كل البرامج يجب وضع قواعد التحقق أولا في الكود

السّلام عليكم و رحمة الله و بركاته
تسلم أخي الكريم " محمد بن عطية " و سلم يمينك و دينك
بارك الله فيك و لك و جزاك خير الجزاء و زادها بموازين حسناتك إن شاء الله
هذا ما كنت أبحث عنه ..
فعلاً تحقّق المطلوب .. و كود  الحذف يعمل بطريقة ممتازة ..
كود :
   Private Sub btnDelete_Click(sender As Object, e As EventArgs) Handles btnDelete.Click
       If InfoTable.Rows.Count = 0 Then
           MsgBox("قاعدة البيانات فارغة .. لا توجد بيانات لتنفيذ الأمر ")
           Exit Sub
       End If
       If MessageBox.Show("  هل تريد فعلا حذف بيانات هذا المسجل ؟؟ " & TextBox2.Text & " " & TextBox3.Text & " ? ", "الحذف", MessageBoxButtons.YesNo, MessageBoxIcon.Question, MessageBoxDefaultButton.Button2) = Windows.Forms.DialogResult.Yes Then
           InfoManager.RemoveAt(InfoManager.Position)
           MsgBox("تمت بنجاح عملية الحذف ", MsgBoxStyle.Information, "حذف البيانات")
       Else
           Call SetState("View")
       End If
   End Sub

أجدّد شكري و تقديري و امتناني لسيادتك
إحتراماتي و تقييماتي
(06-02-18, 10:11 PM)سعود الشامان كتب : بيوصلك باذن الله بس عطني بعض الدقائق

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

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

http://www.mediafire.com/file/57g8x4m57sv351r/sintral_test2.zip
[url=http://www.mediafire.com/file/57g8x4m57sv351r/sintral_test2.zip][/url]

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


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

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

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

والمشروع طورت فيه واضفت له شريط اخبار متحرك من اليسار لليمين
وسابحث عن طريقة لاضافة جداول الاقسام صورة او كتاب الكتروني (pdf)

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

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

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


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

ما شاء الله تبارك تصميم قمة الروعة

ألف شكر يا غالي ,, والموضوع بسيط ما يحتاج ...

اسال الله لك التوفيق والنجاح