[modymody300894]

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

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

بستدعي المستخدمين داخل اداه  FlowLayoutPanel 

بس ناقصني شئ واحد وان استدعي عدد الرسائل الغير مقروءه لكل مستخدم بجانب اسمه 

مثال 
1- محمود ( 3 )
2- احمد ( 10 )
3- علي ( 7 )

انا مجهز فى جدول الشات ببرنامج سيكوال قدام كل رساله عدد الرسائل الغير مقروءه 

المطلوب ازاي استدعيها من جدول تاني فى نفس وقت استدعاء المستخدمين

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

برجاء التعديل فى الكود لاستدعاء المستخدمين مع عدد الرسائل الغير مقروءه 

كود :

 Public Sub load_users()
       con.Close()
       FlowLayoutPanel1.AutoScroll = True
       FlowLayoutPanel1.Controls.Clear()

       cmd = New SqlCommand("select * from users where name_Branches ='" & frm_home.BarStaticItem2.Caption & "' and not fullname_user ='" & frm_home.BarStaticItem4.Caption & "' ORDER BY on_off", con)
       dr = cmd.ExecuteReader
       con.Open()
       While dr.Read()
           ' خصائص الزر واستدعاء البيانات
           Dim btt = New Guna.UI2.WinForms.Guna2Button
           btt.Size = New Size(245, 60)
           btt.Font = New Font("GE SS Two Light", 12, FontStyle.Bold)
           Label11.Text = dr.Item("id_user").ToString
           btt.Tag = dr.Item("id_user").ToString
           btt.BackColor = Color.Transparent
           btt.FillColor = Color.FromArgb(0, 62, 114)
           btt.AutoRoundedCorners = True
           Label10.Text = dr.Item("fullname_user").ToString
           btt.TextAlign = HorizontalAlignment.Left
           Label1.Text = dr.Item("sex_user").ToString
           Label2.Text = dr.Item("on_off").ToString

           'جلب صوره ذكر او انثي ومتصل او لا
           If Label1.Text = "ذكر" And Label2.Text = "متصل" Then
               btt.Image = My.Resources.راجل_اخضر
           ElseIf Label1.Text = "ذكر" And Label2.Text = "مغلق" Then
               btt.Image = My.Resources.راجل_احمر
           ElseIf Label1.Text = "انثي" And Label2.Text = "مغلق" Then
               btt.Image = My.Resources.بنت_احمر
           ElseIf Label1.Text = "انثي" And Label2.Text = "متصل" Then
               btt.Image = My.Resources.بنت_اخضر
           End If

           con.Close()

           'استدعاء عدد الرسائل الغير مقروءه
           Dim dt As New DataTable
           dt.Clear()
           ad = New SqlDataAdapter("select massage_report1 from massge_chat where id_user1 = '" + Label11.Text + "' and  id_user2 = '" + frm_home.BarStaticItem12.Caption + "'  ", con)
           ad.Fill(dt)
           If IsDBNull(dt(0)(0)) = True Then
               Label12.Text = 0
           Else
               Label12.Text = dt(0)(0)
           End If
           btt.Text = Label10.Text & " ( " & Label12.Text & " )"
           btt.ImageAlign = HorizontalAlignment.Right
           btt.ImageSize = New Size(57, 57)
           btt.ImageOffset = New Size(-8, 0)
           FlowLayoutPanel1.Controls.Add(btt)
           btt.Cursor = Cursors.Hand
       End While
       Debug.Close()
       con.Close()
   End Sub

برجاء الافادة للضرورة لو سمحتوا ولكم جزيل الشكر

[modymody300894]

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

[justforit]

ابسط استعلام:

PHP كود :

SELECT uname, count(*)
FROM tusers, pms where pms.uid=tusers.uid group by uname; 


[modymody300894]

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

[justforit]

(15-11-24, 03:24 AM)modymody300894 كتب : حضرتك انا مشكلتي مش في الاستعلام
انا مشكلتي ان مش عارف انفذ استعلامين والاتصال مفتوح بيجيب خطأ ان الاتصال مفتوح يجب اغلاقه 
فياريت الافاده بالموضوع دا

المعذرة انا مش متصور المشروع يعني مش فاهمه
لكن الاستعلام يجيب الاسماء من جدول المستخدمين وعدد الرسائل من جدول صندوق الرسائل .
اعمل مثال جديد بالفكرة(ان امكن) ونعدل عليها ان شاء الله

[modymody300894]

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

[justforit]

جرب اضافة الجملة التالية في آخر جملة الاتصال:

PHP كود :

MultipleActiveResultSets=True 


---

انا سويت مثال بسيط باكسس لايصال الفكرة و انت طبقها على sqlserver

[modymody300894]

الحمدلله تمت بنجاح وتم حل المشكله بالكود اللى حضرتك ارسلته

كود :

MultipleActiveResultSets=True 

شكراً جداً لحضرتك وربنا يجعله فى ميزان حسناتك