الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

عدم تكرار البيانات في listbox

بدأه الفيجوال 2 في 27 أبريل 2010 · 6 رد · 1,762 مشاهدة · في Microsoft Visual Basic.NET
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

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

أعمل على sql2008 و Vb.net 2008

لدي Listbox1

و listbox2

الأول يتم تعبئة فيه أرقام العمل جميع الموظفين (pno) المخزنة في قاعدة بيانات وجدل اسمه Information

والثاني يتم تعبئة فيه أرقام العمل الموظفين (pno) الذين التحقوا بالخدمة الوطنية من جدول اسمه army

الامور كلها تمام لحد الآن والكود شغال والأرقام كلها تظهر

بس المشكلة أني أريد الأرقام التي تظهر في listbox2 الخاص بالخدمة الوطنية لا تظهر في Listbox1

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

جزاكم الله كل خيرا ولو على اطلاعكم على الموضوع

شكرا سلفا

#2

اعتذ بشدة لأني وضعت الموضوع هنا في الدوت نت العام

والله كنت اعتقد بأني وضعته في قسم الفيجوال دوت نت

اعتذر لإدارة الموقع ونرجوا نقل الموضوع لمكانه

وشكرا

تم تعديل هذه المشاركة بواسطة الفيجوال 2 في 28 أبريل 2010 في 12:51

#3

السلام عليكم

ممكن ترسل البنيه الداخليه للجدولين والكود للجزئيه التي شرحتها

لأتمكن من مساعدتك بطريقه صحيحه تستفيد منها

شكرا

#4

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

شكرا اخي الكريم وبارك الله فيك

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

-------------

Dim con2 As New SqlConnection
        con2.ConnectionString = "Data Source=SOMAPC\MSSQLSERVER2008;Initial Catalog=abc;Integrated Security=True;Pooling=False"

        Try
            con2.Open()
            Dim sq As String = "select pno from information where wstat='يعمل' "
            Dim sq2 As String = "select * from army "
            Dim cmd2 As New SqlCommand(sq2, con2)
            Dim rd2 As SqlDataReader = cmd2.ExecuteReader
            ListBox2.Items.Clear()
            While rd2.Read
                Me.ListBox2.Items.Add(rd2("pno"))
            End While
            ListBox2.Sorted = True
            rd2.Close()
            Dim cmd As New SqlCommand(sq, con2)
            Dim rd As SqlDataReader = cmd.ExecuteReader
            ListBox1.Items.Clear()
            While rd.Read
                ListBox1.Items.Add(rd("pno"))
            End While
            ListBox1.Sorted = True
            rd.Close()
        Catch ex As Exception
            MsgBox(ex.Message)
        Finally
            con2.Close()
        End Try

طبعا الكود يقوم بـــ

ان pno الموجود في جدول army والذي يتم تعبئته في listbox2

وpno الموجود في information والذي يتم تعبئته في listbox1

أريد عمل فحص الـ Listbox2 قبل تعبئة listbox1 ... اي في حال أن pno موجود في listbox2 لا يتم وضعه في listbox1

ان شاء الله الفكرة تكون واضحة

لم يبقى لي الا هذا الكود في مشروعي ... اتمنى المساعدة السريعة وجزاكم الله كل خير ان شاء الله

والسلام عليكم

تم تعديل هذه المشاركة بواسطة الفيجوال 2 في 1 مايو 2010 في 16:14

#5

السلام عليكم

أتمنا انيكون هذا تعديل المناسب

شكرا

post-227437-12727788037801_thumb.jpg

post-227437-12727788050817_thumb.jpg

الفيجوال 2.zip

1
#6

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

الله يرحم والديك ويجازيك كل خير ان شاء الله ويجازيك على كل حرف حسنة

والله فعلا مشكور .... المشروع ماناقصه الا هذا الكود اللي جنني وغدا لازم اسلم المشروع للدكتور

بارك الله فيك مرة اخرى ودائما ان شاء الله

#7

بالتوفيق إن شاء الله

وشد حالك

مواضيع مشابهة

عدد الزوار حالياً

المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية

—الإجمالي—أعضاء مسجّلون—زوار بدون تسجيل

جارٍ التحقق من المتواجدين…