[asemshahen5]

PHP كود :

   Private Sub BackgroundWorker1_DoWork(sender As Object, e As System.ComponentModel.DoWorkEventArgs) Handles BackgroundWorker1.DoWork
        For Each row As DataRow In dtEmployee_Table.Tables(0).Rows
            DataGridView1.Rows.Add(row.ItemArray)
        Next
    End Sub
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Control.CheckForIllegalCrossThreadCalls = False
        dtEmployee_Table.Clear()
        Dim connSQL = "Data Source=(Local);Initial Catalog=ImportFromExcel;Integrated Security=True"
        Dim da As New SqlDataAdapter("select * from Full_Tree_Account order by AccountID ", connSQL)
        da.Fill(dtEmployee_Table)
        DataGridView1.ColumnCount = dtEmployee_Table.Tables(0).Columns.Count
        Dim daEM As New SqlDataAdapter("select * from Empty_Tree_Account order by AccountID ", connSQL)
        Dim dtEM As New DataTable
        daEM.Fill(dtEM)
        ComboBox1.DataSource = dtEM
        ComboBox1.DisplayMember = "AccountNameAR"
        With DataGridView1
            .RowsDefaultCellStyle.SelectionBackColor = Color.BlueViolet
            .RowsDefaultCellStyle.SelectionForeColor = Color.White
            .ColumnHeadersDefaultCellStyle.BackColor = Color.SkyBlue
            .DefaultCellStyle.WrapMode = DataGridViewTriState.True
            .AutoSizeRowsMode = DataGridViewAutoSizeRowsMode.AllCells
            .DefaultCellStyle.Font = New Font("Times New Roman", 12, FontStyle.Bold)
            .ColumnHeadersDefaultCellStyle.Font = New Font("Times New Roman", 12, FontStyle.Bold)
            .ColumnHeadersDefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
            .Columns(0).DefaultCellStyle.BackColor = Color.Azure
            .Columns(0).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
            .Columns(1).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
            .Columns(2).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
            .Columns(1).Width = 354
            .Columns(1).HeaderText = "إسم الموظف"

            .Columns(2).Width = 354
            .Columns(2).HeaderText = "الوظـيـفـه"
        End With

        ComboBox1.Text = ""
        If Not BackgroundWorker1.IsBusy Then
            BackgroundWorker1.RunWorkerAsync()
        End If
    End Sub 


فقط غيير الاستعلام لاسماء جدولك و اعمدتك .