منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[VB.NET] التشييك عن السجلات المشتركة بين جدولين و حذف العنصر الغير مشترك بينهما - نسخة قابلة للطباعة

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

الصفحات: 1 2


التشييك عن السجلات المشتركة بين جدولين و حذف العنصر الغير مشترك بينهما - larbihamri - 06-09-18

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


RE: التشييك عن السجلات المشتركة بين جدولين و حذف العنصر الغير مشترك بينهما - elgokr - 06-09-18

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

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

طبقاً للمسميات التى لديك فى قاعدة البيانات

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



RE: التشييك عن السجلات المشتركة بين جدولين و حذف العنصر الغير مشترك بينهما - larbihamri - 06-09-18

شكرا اخي و استاذي elgokr


RE: التشييك عن السجلات المشتركة بين جدولين و حذف العنصر الغير مشترك بينهما - elgokr - 06-09-18

الشكر لله

اليك المطلوب بالمرفقات
مرفق السورس + برنامج للاختبار 

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



RE: التشييك عن السجلات المشتركة بين جدولين و حذف العنصر الغير مشترك بينهما - larbihamri - 06-09-18

شكرا اخي و استاذي elgokr
اردت تجربت الكود مباشرة على الداتاسات يعني بدون الداتاقريد فيو لكني لم انجح فيه
كود :
For i As Integer = 0 To Me.DbDataSet1.t2.Rows.Count - 1
           For ii As Integer = 0 To Me.DbDataSet1.t1.Rows.Count - 1
               If Me.DbDataSet1.t1.Rows(ii).Item(1).ToString = Me.DbDataSet1.t2.Rows(i).Item(1).ToString Then
                 
               Else()
                   Me.DbDataSet1.t1.Rows.RemoveAt(ii)
               End If
           Next
       Next



RE: التشييك عن السجلات المشتركة بين جدولين و حذف العنصر الغير مشترك بينهما - elgokr - 06-09-18

لا يوجد اختلا ما بين الـ DataGidView و DataSet
هيلزم عليك تطبيق نس الكود كملاً 
بمعنى الـ Sub و شرط التحقق

لانك بتتعامل مع قاعدة البيانات والسورس من خلال الادوات وليس الكود
يعنى لا يوجد اى سطر هينقص من الكود لديك خلف فقط
تغيير طريقة المسميات من DatagidView الى DataSet

تذكر طريقة التى تستخدمها فى ردك
قد تنجح اذا كان كلا من اجدولين متساوى النتائج
يعنى الجدول الاول يحتوى على 2 عنصر وكذلك الجدول الثاني على 2 عنصر

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

يمكنك مراجعة الرابط التالى للاطلاع على كيفية التعامل من خلال الاكواد بدلاً من الاداوت
http://vb4arb.com/vb/showthread.php?tid=25720&pid=123384#pid123384

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



RE: التشييك عن السجلات المشتركة بين جدولين و حذف العنصر الغير مشترك بينهما - سعود - 06-09-18

PHP كود :
Me.DbDataSet1.t1.Rows.RemoveAt(ii
تحتاج لامر تحديث 

PHP كود :
da.update(ds,"tb1"

 غير المتغيرات ليناسب مالديك


RE: التشييك عن السجلات المشتركة بين جدولين و حذف العنصر الغير مشترك بينهما - larbihamri - 06-09-18

لم ينجح معي الامر اساتذتي
لم اعرف ماذا اغير في هذا الكود 
كود :
   Sub CheckDataGid(DGVMax As DataGridView, DGVMin As DataGridView)

و ماذا اغير اغير في هذا النص البرمجي 
كود :
CheckDataGid(T1DataGridView, T2DataGridView)



RE: التشييك عن السجلات المشتركة بين جدولين و حذف العنصر الغير مشترك بينهما - سعود - 07-09-18

بعد حلقة التشييك والحذف مباشرة اكتب كود امر التحديث update

اظنك تحتاج تغيير الفكرة.
لان بهذه الطريقة اي حقل باي صف بالقراءة الحالية قد لاتجد نتيجة وبناء على ذلك سيتم حذف كافة الصفوف باستثناء صف واحد.
اقترح ان تغير الفكرة لتكون كالتالي:
جدول 1 عادي
جدول 2 يحتوي عمود يحمل رقم معرف الجدول1
وعند الاستعلام ابحث عن هذا العمود ...وايضا عند الاضافة اضف معرف العمود الاول.


RE: التشييك عن السجلات المشتركة بين جدولين و حذف العنصر الغير مشترك بينهما - elgokr - 07-09-18

(06-09-18, 09:11 PM)larbihamri كتب : لم ينجح معي الامر اساتذتي
لم اعرف ماذا اغير في هذا الكود 
كود :
   Sub CheckDataGid(DGVMax As DataGridView, DGVMin As DataGridView)

و ماذا اغير اغير في هذا النص البرمجي 
كود :
CheckDataGid(T1DataGridView, T2DataGridView)

لا عليك اخى الحبيب

اليك السورس + برنامج لمعينة مرفق
بعد اضافة كود التعامل من خلال DataSet

ستجد فى السورس كود للتعامل مع DataGridView وكذلك DataSet
لتتاكد ان كلاهما واحد وان لا يوجد فرق بينهم وان الامر يعتمد على التمويه
حتى تتمكن من حذف من القيمة الزائدة دون ان تفقد اى شئ من البيانات

والمشكلة فقط انك تتعامل هنا وكما ذكرت مسبقاً من خلال الادوت
اذا كنت تتعامل مع الامور من خلال الاكواد لاختلف الوضع تماماً

على اى حال صورة لشكل البرنامج

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