[حريف برمجة]

استبدل هذا الكود بالموجود معك في البرنامج ....

كود :

Public Sub searching()
        Dim _SQL As String =
        " SELECT COUNT(*) AS total, Nationalities.NationalitiesCaption, Depet.Depets, Qualifications.QualiCaption " &
        " FROM (((Depet INNER JOIN " &
        "         Employees ON Depet.DepetID = Employees.Depets) INNER JOIN " &
        "         Nationalities ON Employees.EmpNatio = Nationalities.NationalitiesID) INNER JOIN " &
        "         Qualifications ON Employees.EmpConfig = Qualifications.QualiDI) " &
        " GROUP BY Nationalities.NationalitiesCaption, Qualifications.QualiCaption, Depet.Depets "
        Dim dt As New DataTable
        Dim da As New OleDbDataAdapter(_SQL, con)
        da.SelectCommand.Parameters.AddWithValue("?EmpNatio", ComboBox1.SelectedValue)
        da.SelectCommand.Parameters.AddWithValue("?EmpConfig", ComboBox2.SelectedValue)
        da.SelectCommand.Parameters.AddWithValue("?Depets", ComboBox3.SelectedValue)

        da.Fill(dt)
        DataGridView1.DataSource = dt
    End Sub

[Marwan9990]

حسنا اخي حريف برمجة رح اجربه ولس عوده بنتيجة باذن الله

---

اخي حريف برمجة الكود لم ينجح لم يعطي النتيجه المطلوبه ..

هذا صوره اخره ل توضيح صممتها ب فوتوشوب 

المعنى بها اني عملت اكثر من بحث واحد ل اقسام مختلفه 


قمت بعمل بحث 3 مرات وكل نواتج كانت تاتي متسلسله اي لا ينحذف  نتيجة البحث السابق 

فستطعنا ان نحصل على 3 اقسام في نفس الداتا قريد من خلال 3 مرات من البحث 

[abdualla]

طيب جرب التغيير التالي لحدث الزر Button2_Click وكود searching

PHP كود :

Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
        DataGridView1.Columns.Clear()
        DataGridView1.DataSource = emp

    End Sub


    Public Sub searching()
        Dim _SQL As String =
       " SELECT COUNT(*) AS total, Nationalities.NationalitiesCaption, Depet.Depets, Qualifications.QualiCaption " & _
       " FROM (((Depet INNER JOIN " & _
       "         Employees ON Depet.DepetID = Employees.Depets) INNER JOIN " & _
       "         Nationalities ON Employees.EmpNatio = Nationalities.NationalitiesID) INNER JOIN " & _
       "         Qualifications ON Employees.EmpConfig = Qualifications.QualiDI) " & _
       " WHERE (Employees.EmpNatio = ?) AND (Employees.EmpConfig = ?) AND (Employees.Depets = ?) " & _
       " GROUP BY Nationalities.NationalitiesCaption, Qualifications.QualiCaption, Depet.Depets "
        Dim dt As New DataTable
        Dim da As New OleDbDataAdapter(_SQL, con)
        da.SelectCommand.Parameters.AddWithValue("?EmpNatio", ComboBox1.SelectedValue)
        da.SelectCommand.Parameters.AddWithValue("?EmpConfig", ComboBox2.SelectedValue)
        da.SelectCommand.Parameters.AddWithValue("?Depets", ComboBox3.SelectedValue)

        da.Fill(dt)

        DataGridView1.DataSource = Nothing

        If DataGridView1.Columns.Count = 0 Then
            DataGridView1.Columns.Add("total", "total")
            DataGridView1.Columns.Add("NationalitiesCaption", "NationalitiesCaption")
            DataGridView1.Columns.Add("QualiCaption", "QualiCaption")
            DataGridView1.Columns.Add("Depets", "Depets")
        End If

        DataGridView1.Rows.Add(dt.Rows(0)(0), dt.Rows(0)(1), dt.Rows(0)(2), dt.Rows(0)(3))

    End Sub 


[Marwan9990]

ربي يرزقك جنات النعيم ي شيخ فعلا هذا ما كنت ابحث عنه 
الان الكود شغال ولكن توجد مشكله بسيطه لما يكون ماشي بيانات في قاعدة البيانات واقوم بالاختيار لو ما كان موجود بيانات مخزنه في القاعده البرنامج يتوقف وتظهر لي هذا المشكله ..

صوره ل توضيح مشكله ..

[abdualla]

تمام، ندخل هذا السطر في شرط التحقق من وجود نتائج

PHP كود :

If dt.Rows.Count > 0 Then
            DataGridView1.Rows.Add(dt.Rows(0)(0), dt.Rows(0)(1), dt.Rows(0)(2), dt.Rows(0)(3))
        End If 


[Marwan9990]

شاكر لك  وولاخ حريف برمجة دنيا واخره جعلكم من الذين يدخلون جنات الفردوس بغير حساب ..

تسلم اخي عبدالله  كل شي ميه ميه ..

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

تم الانتهاء مرفق المشروع للفائده

[awidan76]

متابع الموضوع