منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

السلام عليكم

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

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

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

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) 

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

كود :

       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

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

[attachment=18049]

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

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

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

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

اكواد الاتصال المتصل ساحبة تفكيري كله 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 

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

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

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

أبووسم

سعود

mrnooo2000

عبدالله الدوسري

elgokr

سعود

أبووسم