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

كود :

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

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