حصر عدد الرتب في التكست بوكس - نسخة قابلة للطباعة

حصر عدد الرتب في التكست بوكس - نسخة قابلة للطباعة

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

حصر عدد الرتب في التكست بوكس - أبووسم - 16-05-18

السلام عليكم

اخواني الكرام

أريد جميع الرتب الموجودة في قاعدة البيانات حتى اعرف عددها وتم توضيح ذلك في المشروع المرفق.

شاكر و مقدر لكم

RE: حصر عدد الرتب في التكست بوكس - سعود - 16-05-18

PHP كود :

Using cm As New OleDbCommand("SELECT count(rotba) FROM Embo2018 where rotba='جندي'", Conn)
            If Conn.State = ConnectionState.Closed Then Conn.Open()
            TextBox4.Text = cm.ExecuteScalar
            If Conn.State = ConnectionState.Open Then Conn.Close()
        End Using

        Using cm As New OleDbCommand("SELECT count(rotba) FROM Embo2018 where rotba='جندي أول'", Conn)
            If Conn.State = ConnectionState.Closed Then Conn.Open()
            TextBox5.Text = cm.ExecuteScalar
            If Conn.State = ConnectionState.Open Then Conn.Close()
        End Using


        Using cm As New OleDbCommand("SELECT count(rotba) FROM Embo2018 where rotba='عريف'", Conn)
            If Conn.State = ConnectionState.Closed Then Conn.Open()
            TextBox6.Text = cm.ExecuteScalar
            If Conn.State = ConnectionState.Open Then Conn.Close()
        End Using

        TextBox7.Text = Val(TextBox4.Text) + Val(TextBox5.Text) + Val(TextBox6.Text) 

RE: حصر عدد الرتب في التكست بوكس - mrnooo2000 - 16-05-18

ضع هذا الكود فى نهاية كود تحميل النموذج

كود :

       TextBox4.Text = DataSet1.Tables("Embo2018").Compute("Count(rotba)", "rotba='جندي'")

        TextBox5.Text = DataSet1.Tables("Embo2018").Compute("Count(rotba)", "rotba='جندي أول'")

        TextBox6.Text = DataSet1.Tables("Embo2018").Compute("Count(rotba)", "rotba='عريف'")

        TextBox7.Text = DataSet1.Tables("Embo2018").Rows.Count

RE: حصر عدد الرتب في التكست بوكس - عبدالله الدوسري - 16-05-18

إذا أردت أن تكون الأمور ديناميكية فيجب أن تكون بهذا الشكل
أي بمعنى لن نقوم بتحديد رتبة في الكود , بل سنجلب كل رتبة موجودة في قاعدة البيانات , وبناءاً عليها مجموع تكرار هذة الرتبة

[attachment=18049]

جملة الأستعلام جعلتها في سطر واحد لأنة لو قسمتها على أسطر سيظهر لديك خطأ
[attachment=18045]

لدي في الـ Visual Studio 2017 أستطيع أن أكتب الجملة بهذا الشكل : هي نفس الجملة في الأعلى ولكن فقط موضوع ترتيب شكل الكود
[attachment=18046]

RE: حصر عدد الرتب في التكست بوكس - elgokr - 16-05-18

ما شاء الله الاخوة ما قصرت

مبارك عليكم شهر رمضان

RE: حصر عدد الرتب في التكست بوكس - سعود - 17-05-18

اكواد الاتصال المتصل ساحبة تفكيري كله Smile

برضو كدا يمشي

PHP كود :

       TextBox4.Text = DataSet1.Tables(0).Select("[rotba]='جندي'").Length
        TextBox5.Text = DataSet1.Tables(0).Select("[rotba]='جندي أول'").Length
        TextBox6.Text = DataSet1.Tables(0).Select("[rotba]='عريف'").Length 

RE: حصر عدد الرتب في التكست بوكس - أبووسم - 17-05-18

جزاكم الله كل خير ، و الله يعجز لساني عن الثناء عليكم لوقفتكم الواحدة والتي تثلج الصدر لتواجدي في هذا المنتدى القيم ،

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