التنبيهات التالية ظهرت :
Warning [2] count(): Parameter must be an array or an object that implements Countable - Line: 864 - File: showthread.php PHP 7.4.33 (Linux)
File Line Function
/showthread.php 864 errorHandler->error



تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
هل يمكن اختصار هذا الكود
#1
السلام عليكم إخوتي،
معرفتي محدودة جدا في البرمجة، وقد استخدمت هذا الكود للحصول على احصائيات من قاعدة البيانات، وهذا نتيجة للبحث عبر محتلف المنتديات
الكود الذي استخدمه يعمل معي، لكن هل يمكن صياغته بطريقة أفضل؟

كود :
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
الرد }}}
تم الشكر بواسطة:


الردود في هذا الموضوع
هل يمكن اختصار هذا الكود - بواسطة blida02 - 27-05-18, 03:42 AM
RE: هل يمكن اختصار هذا الكود - بواسطة elgokr - 27-05-18, 05:35 AM
RE: هل يمكن اختصار هذا الكود - بواسطة blida02 - 29-05-18, 03:11 AM
RE: هل يمكن اختصار هذا الكود - بواسطة blida02 - 29-05-18, 04:29 PM

المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Exclamation [سؤال] كيف يمكن الغاء السوال عند الكتابة على ملف موجود dell 0 48 19-03-24, 01:23 AM
آخر رد: dell
  ممكن حل المشكلة فى الكود التالي - من مشاركة استاذنا القدير / عبدالله الدوسري new_programer 4 169 02-03-24, 07:36 PM
آخر رد: new_programer
  ماهو حل هذا الخطأ في الكود melad2002 7 264 25-02-24, 12:25 AM
آخر رد: justforit
  كيفية انشاء سكريبت لقاعدة بيانات من خلال الكود heem1986 1 193 20-02-24, 12:00 AM
آخر رد: Kamil
  ما هو اختصار هذه الاكواد justforit 4 450 22-01-24, 03:10 PM
آخر رد: salamandal
  [VB.NET] أرغب فى استخدام هذا الكود بالتحديد على الإصدار 10 AmeenRashed 3 206 19-01-24, 12:42 PM
آخر رد: Taha Okla
  [VB.NET] ما الخطأ فى هذا الكود - كود البحث المتعدد Ashraf Elafify 7 464 27-12-23, 10:50 PM
آخر رد: Ashraf Elafify
  [VB.NET] اريد تعديل في الكود عند طباعة DGV abu_hisham7 1 431 03-12-23, 02:40 AM
آخر رد: abu_hisham7
  [VB.NET] كيف يمكن إخفاء ظهور الشاشة السوداء فى الـــ console AmeenRashed 2 316 15-11-23, 03:51 PM
آخر رد: justforit
  رجاء التعديل على الكود المرفق - كلاس لعرض كود المورد new_programer 4 357 13-10-23, 01:47 AM
آخر رد: new_programer

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم