+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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=22973)
إيجاد عدد الذكور و عدد الإناث - عبد العزيز البسكري - 18-12-17
السّلام عليكم و رحمة الله و بركاته
إخواني الأكارم لو تكرّمتم فضل و إحسان منكم .. المساعدة بإيجاد عدد الذّكور و عدد الإناث و كتابة الناتج المتغيّر حسب الإدخال بالتاكسات 1 و 2 بالفورم 3 الخاص بالإحصاء
بارك الله فيكم و لكم مقدّمًا و جزاكم خير الجزاء
RE: إيجاد عدد الذكور و عدد الإناث - طالب برمجة - 18-12-17
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
RE: إيجاد عدد الذكور و عدد الإناث - عبد العزيز البسكري - 18-12-17
السّلام عليكم و رحمة الله و بركاته
تسلم أخي الكريم و سلم يمينك و دينك .. هذا هو المطلوب بتمامه و كماله و الكمال لله
بارك الله فيك و لك و جزاك خير الجزاء و زادها بموازين حسناتك إن شاء الله
تحياتي
RE: إيجاد عدد الذكور و عدد الإناث - طالب برمجة - 18-12-17
(18-12-17, 03:00 PM)عبد العزيز البسكري كتب :السّلام عليكم و رحمة الله و بركاتهتسلم أخي الكريم و سلم يمينك و دينك .. هذا هو المطلوب بتمامه و كماله و الكمال للهبارك الله فيك و لك و جزاك خير الجزاء و زادها بموازين حسناتك إن شاء اللهتحياتي
بوركت بالايمان بالمسيح
RE: إيجاد عدد الذكور و عدد الإناث - عبد العزيز البسكري - 18-12-17
بسم الله الرّحمن الرّحيم
قال تعالى : " قولوا آمنّا بالله و ما أنزل إلينا و ما أنزل إلى ابراهيم و اسماعيل و إسحاق و يعقوب و الأسباط و ما أوتي موسى و عيسى و ما أوتي النبيّون من ربّهم لا نفرّق بين أحد منهم و نحن له مسلمون "
صدق الله العظيم
RE: إيجاد عدد الذكور و عدد الإناث - حريف برمجة - 18-12-17
(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 SubRE: إيجاد عدد الذكور و عدد الإناث - عبد العزيز البسكري - 18-12-17
السّلام عليكم و رحمة الله و بركاته
بارك الله فيك و رزقك من حيث تحتسب و من حيث لا تحتسب أخي قبل كلمة أستاذي الكريم " حريف برمجة " على الهديّة الثمينة .. روعة تُضاف لقائمة إبداعاتك و هو يفي بالغرض طولاً و عرضًا
تحياتي و تقييماتي
RE: إيجاد عدد الذكور و عدد الإناث - طالب برمجة - 18-12-17
وممكن نخترصها أكثر
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
RE: إيجاد عدد الذكور و عدد الإناث - عبد العزيز البسكري - 18-12-17
(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
لمسة رائعة .. لك منّي كل الشّكر و التّقدير و الإحترام