منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب - استفسار عن امكانية جمع اكثر من حقل من قاعدة البيانات..

الصفحات : 1 2 3

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

كود :

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

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

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

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

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

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

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

طيب جرب التغيير التالي لحدث الزر 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 

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

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

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

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 

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

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

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

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

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

الصفحات : 1 2 3

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

حريف برمجة

Marwan9990

abdualla

Marwan9990

abdualla

Marwan9990

awidan76