كيف يمكن العرض من قاعده البيانت الى الداتا جريد يوجد صورة

كود :

       Dim x As String = InputBox("INVOICE NO ")

        If IsNumeric(x) = False Then

            MsgBox("يرجى كتابة رقم الفاتورة ")

            Exit Sub

        Else

            Dim DataAdapter As New OleDbDataAdapter("SELECT part_no,des,qty,up,tp FROM QYE WHERE inv=" & Val(x) & "", con)

            con.Open()

            dataset1.Clear()

            DataAdapter.Fill(dataset1, "QYE")

            Me.DataGridView1.Refresh()

            con.Close()







            DataGridView1.DataSource = dataset1

            DataGridView1.DataMember = "QYE"







            DataGridView1.Refresh()



            DataGridView1.RowHeadersWidth = 25





            DataGridView1.Columns(0).Width = 180

            DataGridView1.Columns(1).Width = 100

            DataGridView1.Columns(2).Width = 100

            DataGridView1.Columns(3).Width = 100

            DataGridView1.Columns(4).Width = 100

            DataGridView1.Columns(0).HeaderText = "PART NO"

            DataGridView1.Columns(1).HeaderText = "DESCREPTION"

            DataGridView1.Columns(2).HeaderText = "QTY"

            DataGridView1.Columns(3).HeaderText = "UNIT RATE"

            DataGridView1.Columns(4).HeaderText = "TOTAL"



     

        End If

PHP كود :

       Dim x As String = InputBox("INVOICE NO ")
        If IsNumeric(x) = False Then
            MsgBox("يرجى كتابة رقم الفاتورة ")
            Exit Sub
        Else

            DataGridView1.RowHeadersWidth = 25
            DataGridView1.Columns(0).Width = 180
            DataGridView1.Columns(1).Width = 100
            DataGridView1.Columns(2).Width = 100
            DataGridView1.Columns(3).Width = 100
            DataGridView1.Columns(4).Width = 100

            DataGridView1.Columns(0).HeaderText = "PART NO"
            DataGridView1.Columns(1).HeaderText = "DESCREPTION"
            DataGridView1.Columns(2).HeaderText = "QTY"
            DataGridView1.Columns(3).HeaderText = "UNIT RATE"
            DataGridView1.Columns(4).HeaderText = "TOTAL"


            DataGridView1.Columns(0).DataPropertyName = "part_no"
            DataGridView1.Columns(1).DataPropertyName = "des"
            DataGridView1.Columns(2).DataPropertyName = "qty"
            DataGridView1.Columns(3).DataPropertyName = "up"
            DataGridView1.Columns(4).DataPropertyName = "tp"

            Dim DataAdapter As New OleDbDataAdapter("SELECT part_no,des,qty,up,tp FROM QYE WHERE inv=" & Val(x) & "", con)
            con.Open()
            DataSet1.Clear()
            DataAdapter.Fill(DataSet1, "QYE")
            Me.DataGridView1.Refresh()
            con.Close()

            DataGridView1.AutoGenerateColumns = False
            DataGridView1.DataSource = DataSet1
            DataGridView1.DataMember = "QYE"

            DataGridView1.Refresh()

        End If