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

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

إخواني الأكارم لو تكرّمتم فضل و إحسان منكم .. المساعدة بإيجاد عدد الذّكور و عدد الإناث و كتابة الناتج المتغيّر حسب الإدخال بالتاكسات 1 و 2 بالفورم 3 الخاص بالإحصاء

بارك الله فيكم و لكم مقدّمًا و جزاكم خير الجزاء

PHP كود :

   Private Sub Form3_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        dbase_conn()
        InfoCommand = New OleDbCommand("SELECT * FROM RECENSEMENT ORDER BY Nname", con)
        InfoAdapter = New OleDbDataAdapter()
        InfoAdapter.SelectCommand = InfoCommand
        InfoTable = New DataTable()
        InfoAdapter.Fill(InfoTable)
        DataGridView1.DataSource = InfoTable

        If con.State <> ConnectionState.Open Then con.Open()
        Using cmd As New OleDbCommand(Nothing, con)
            cmd.CommandText = "SELECT COUNT(*) FROM RECENSEMENT WHERE Ggenre='ذكر'"
            TextBox1.Text = cmd.ExecuteScalar
            cmd.CommandText = "SELECT COUNT(*) FROM RECENSEMENT WHERE Ggenre='أنثى'"
            TextBox2.Text = cmd.ExecuteScalar
        End Using
        con.Close()
    End Sub 

#16

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

تسلم أخي الكريم و سلم يمينك و دينك .. هذا هو المطلوب بتمامه و كماله و الكمال لله

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

تحياتي

(18-12-17, 03:00 PM)عبد العزيز البسكري كتب : [ -> ]
السّلام عليكم و رحمة الله و بركاته

تسلم أخي الكريم و سلم يمينك و دينك .. هذا هو المطلوب بتمامه و كماله و الكمال لله

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

تحياتي

بوركت بالايمان بالمسيح

بسم الله الرّحمن الرّحيم

قال تعالى : " قولوا آمنّا بالله و ما أنزل إلينا و ما أنزل إلى ابراهيم و اسماعيل و إسحاق و يعقوب و الأسباط و ما أوتي موسى و عيسى و ما أوتي النبيّون من ربّهم لا نفرّق بين أحد منهم و نحن له مسلمون "

صدق الله العظيم

(18-12-17, 02:30 PM)عبد العزيز البسكري كتب : [ -> ]
السّلام عليكم و رحمة الله و بركاته

إخواني الأكارم لو تكرّمتم فضل و إحسان منكم .. المساعدة بإيجاد عدد الذّكور و عدد الإناث و كتابة الناتج المتغيّر حسب الإدخال بالتاكسات 1 و 2 بالفورم 3 الخاص بالإحصاء

بارك الله فيكم و لكم مقدّمًا و جزاكم خير الجزاء

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

تفضل اخي عبدالعزيز

كود مختصر :

كود :

Private Sub Form3_Load(sender As Object, e As EventArgs) Handles MyBase.Load

        dbase_conn()

        InfoAdapter = New OleDbDataAdapter("SELECT * FROM RECENSEMENT ORDER BY Nname", con)

        InfoTable = New DataTable()

        InfoAdapter.Fill(InfoTable)

        DataGridView1.DataSource = InfoTable

        InfoAdapter = New OleDbDataAdapter("SELECT Sum(IIf([Ggenre]= 'ذكر',1,0)) AS Male, Sum(IIf([Ggenre] = 'أنثى',1,0)) AS Female FROM RECENSEMENT", con)

        InfoTable = New DataTable()

        InfoAdapter.Fill(InfoTable)

        TextBox1.Text = InfoTable.Rows(0)(0).ToString

        TextBox2.Text = InfoTable.Rows(0)(1).ToString

    End Sub

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

بارك الله فيك و رزقك من حيث تحتسب و من حيث لا تحتسب أخي قبل كلمة أستاذي الكريم " حريف برمجة " على الهديّة الثمينة .. روعة تُضاف لقائمة إبداعاتك و هو يفي بالغرض طولاً و عرضًا

تحياتي و تقييماتي

وممكن نخترصها أكثر

PHP كود :

TextBox1.Text = InfoTable.Rows.Cast(Of DataRow).Where(Function(r) r.Item("Ggenre").Equals("ذكر")).Count
TextBox2.Text = InfoTable.Rows.Cast(Of DataRow).Where(Function(r) r.Item("Ggenre").Equals("أنثى")).Count 

(18-12-17, 08:24 PM)طالب برمجة كتب : [ -> ]وممكن نخترصها أكثر

PHP كود :

TextBox1.Text = InfoTable.Rows.Cast(Of DataRow).Where(Function(r) r.Item("Ggenre").Equals("ذكر")).Count TextBox2.Text = InfoTable.Rows.Cast(Of DataRow).Where(Function(r) r.Item("Ggenre").Equals("أنثى")).Count

لمسة رائعة .. لك منّي كل الشّكر و التّقدير و الإحترام