السلام عليكم إخوتي،
معرفتي محدودة جدا في البرمجة، وقد استخدمت هذا الكود للحصول على احصائيات من قاعدة البيانات، وهذا نتيجة للبحث عبر محتلف المنتديات
الكود الذي استخدمه يعمل معي، لكن هل يمكن صياغته بطريقة أفضل؟
معرفتي محدودة جدا في البرمجة، وقد استخدمت هذا الكود للحصول على احصائيات من قاعدة البيانات، وهذا نتيجة للبحث عبر محتلف المنتديات
الكود الذي استخدمه يعمل معي، لكن هل يمكن صياغته بطريقة أفضل؟
كود :
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
If CheckBox1.Checked = True And CheckBox2.Checked = False Then
Dim daa1 As New OleDbDataAdapter
Dim dtt1 As New DataTable
daa1 = New OleDbDataAdapter("SELECT count(*) from Etudiants WHERE Sexe = '1' OR Sexe = 'M' OR Sexe = 'ذ' ", connDB)
daa1.Fill(dtt1)
Dim daa2 As New OleDbDataAdapter
Dim dtt2 As New DataTable
daa2 = New OleDbDataAdapter("SELECT count(*) from Etudiants WHERE Sexe = '2' OR Sexe = 'F' OR Sexe = 'أ' ", connDB)
daa2.Fill(dtt2)
DataGridView1.Visible = True
DataGridView1.ColumnCount = 2
DataGridView1.Columns(0).Name = "ذكور"
DataGridView1.Columns(1).Name = "إناث"
DataGridView1.Rows(0).Cells(0).Value = dtt1.Rows(0)(0).ToString()
DataGridView1.Rows(0).Cells(1).Value = dtt2.Rows(0)(0).ToString()
ElseIf CheckBox2.Checked = True And CheckBox1.Checked = False Then
Dim daa1 As New OleDbDataAdapter
Dim dtt1 As New DataTable
daa1 = New OleDbDataAdapter("SELECT count(*) from Etudiants WHERE AnnéeEtude = '1' ", connDB)
daa1.Fill(dtt1)
Dim daa2 As New OleDbDataAdapter
Dim dtt2 As New DataTable
daa2 = New OleDbDataAdapter("SELECT count(*) from Etudiants WHERE AnnéeEtude = '2' ", connDB)
daa2.Fill(dtt2)
DataGridView1.Visible = True
DataGridView1.ColumnCount = 2
DataGridView1.Columns(0).Name = "السنة الأولى"
DataGridView1.Columns(1).Name = "السنة الثانية"
DataGridView1.Rows(0).Cells(0).Value = dtt1.Rows(0)(0).ToString()
DataGridView1.Rows(0).Cells(1).Value = dtt2.Rows(0)(0).ToString()
ElseIf CheckBox2.Checked = True And CheckBox1.Checked = True Then
Dim daa1 As New OleDbDataAdapter
Dim dtt1 As New DataTable
daa1 = New OleDbDataAdapter("SELECT count(*) from Etudiants WHERE AnnéeEtude = '1' and (Sexe = '1' OR Sexe = 'M' OR Sexe = 'ذ' ) ", connDB)
daa1.Fill(dtt1)
Dim daa12 As New OleDbDataAdapter
Dim dtt12 As New DataTable
daa12 = New OleDbDataAdapter("SELECT count(*) from Etudiants WHERE AnnéeEtude = '1' and (Sexe = '2' OR Sexe = 'F' OR Sexe = 'أ' ) ", connDB)
daa12.Fill(dtt12)
Dim daa2 As New OleDbDataAdapter
Dim dtt2 As New DataTable
daa2 = New OleDbDataAdapter("SELECT count(*) from Etudiants WHERE AnnéeEtude = '2' and (Sexe = '1' OR Sexe = 'M' OR Sexe = 'ذ') ", connDB)
daa2.Fill(dtt2)
Dim daa22 As New OleDbDataAdapter
Dim dtt22 As New DataTable
daa22 = New OleDbDataAdapter("SELECT count(*) from Etudiants WHERE AnnéeEtude = '2' and (Sexe = '2' OR Sexe = 'F' OR Sexe = 'أ') ", connDB)
daa22.Fill(dtt22)
DataGridView1.Visible = True
DataGridView1.ColumnCount = 4
DataGridView1.Columns(0).Name = "ذكور السنة الأولى"
DataGridView1.Columns(1).Name = "إناث السنة الأولى"
DataGridView1.Columns(2).Name = "ذكورالسنة الثانية"
DataGridView1.Columns(3).Name = "إناث السنة الثانية"
DataGridView1.Rows(0).Cells(0).Value = dtt1.Rows(0)(0).ToString()
DataGridView1.Rows(0).Cells(1).Value = dtt12.Rows(0)(0).ToString()
DataGridView1.Rows(0).Cells(2).Value = dtt2.Rows(0)(0).ToString()
DataGridView1.Rows(0).Cells(3).Value = dtt22.Rows(0)(0).ToString()
Else
DataGridView1.Visible = False
End If
End Sub
