احتاج مساعده في تحويل كود الاستعلام

احتاج مساعده في تحويل كود الاستعلام - نسخة قابلة للطباعة

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

احتاج مساعده في تحويل كود الاستعلام - Marwan9990 - 15-04-18

اسعد الله ايامكم جميعا احبتي

استفسار ي اخوان الصوره التاليه فيها كود من نوع select cont الكود شغال حسب طريقة الي في الصورة التاليه [صورة مرفقة: p_835obfav1.png]

هذا الكود شغال ولكني احاول اكتبه بطريقة التاليه بحيث يعرض لي الناتج في ليبل

الكود المطلوب ك صوره
[صورة مرفقة: p_835ph09o1.png]

الكود المطلوب ك كود

كود :
   Protected Sub GetNoMasg()

        If Not String.IsNullOrEmpty(Request.QueryString("IDUser")) Then

            Dim conn As New SqlConnection()

            conn.ConnectionString = ConfigurationManager.ConnectionStrings("Knowledge").ConnectionString

            conn.Open()

            Dim sql As String = "SELECT COUNT(*) FROM(TaMassage)WHERE(IsActive = @IsActive) AND (MaTo = @MaTo)"

            Dim cmd As SqlCommand = New SqlCommand(sql, conn)

            Label2.Text = cmd.ExecuteScalar()

            conn.Close()

        End If

    End Sub

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

ياليت الي يعرف يحول لي كود اول صوره ل نص برمجي مثل الي ارفقته يحوله لي واكون شاكر له باذن الله

مودتي للجميع

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