[سؤال] شباب هل من طريقة لتحديث البيانات بعد حفظها او العديل او الحذف

كود :

Private Sub Load_orders_Data()

        Try

            Dim sql As String = "SELECT * FROM [car1] "

            If Con.State = 0 Then Con.Open()

            Using olecmd As New OleDbCommand(sql, Con)

                Using dr As OleDbDataReader = olecmd.ExecuteReader

                    orders_Table.Clear()

                    orders_Table.Load(dr)

                End Using

            End Using

            DataGridView1.AutoGenerateColumns = True   ' تعبئة الجريد مع  البندنج

            Me.bindingt.DataSource = orders_Table

            BindingNavigator1.BindingSource = bindingt

            txtid.DataBindings.Add(New Binding("Text", bindingt, "carID"))

            ComboBox1.DataBindings.Add(New Binding("Text", bindingt, "cusName"))

            txtdri.DataBindings.Add(New Binding("Text", bindingt, "dri"))

            txtdat.DataBindings.Add(New Binding("text", bindingt, "ass"))

            ComboBox2.DataBindings.Add(New Binding("Text", bindingt, "carName"))

            txtCnum.DataBindings.Add(New Binding("text", bindingt, "caNum"))

            txtkind.DataBindings.Add(New Binding("text", bindingt, "kind"))

            txtCq.DataBindings.Add(New Binding("Text", bindingt, "qun"))

            txtprice.DataBindings.Add(New Binding("text", bindingt, "price"))

            txttotal.DataBindings.Add(New Binding("text", bindingt, "total"))

            Load_orders_Data2()

        Catch ex As Exception

            MsgBox(ex.Message)

        End Try

    End Sub

PHP كود :

Private Sub load_details_data(ByVal orderid As String)
        Try
            Dim sql1 As String = "SELECT carID2, ahda, monName, price, paky, date1 FROM car2 WHERE (carID2 = @oid)"
            If Con.State = 0 Then Con.Open()
            Using olecmd1 As New OleDbCommand(sql1, Con)
                olecmd1.Parameters.AddWithValue("@oid", orderid)

                Using dr1 As OleDbDataReader = olecmd1.ExecuteReader
                    details_Table.Clear()
                    details_Table.Load(dr1)
                    DataGridView1.AutoGenerateColumns = True
                    DataGridView1.DataSource = details_Table

                    DataGridView1.Columns(0).Visible = False
                    DataGridView1.Columns(1).Visible = False
                    DataGridView1.Columns(2).Visible = True
                    DataGridView1.Columns(3).Visible = True
                    DataGridView1.Columns(4).Visible = True
                    DataGridView1.Columns(5).Visible = True
                    '''''''''''''''''''''

                    DataGridView1.Columns(2).Width = 140
                    DataGridView1.Columns(3).Width = 120
                    DataGridView1.Columns(4).Width = 140
                    DataGridView1.Columns(5).Width = 140
                    ''''''''''''''''''''''''''''''''''''''''''''''''
                    DataGridView1.Columns(2).HeaderText = "المنصرف"
                    DataGridView1.Columns(3).HeaderText = "المبلغ"
                    DataGridView1.Columns(4).HeaderText = "الباقى"
                    DataGridView1.Columns(5).HeaderText = "التاريخ"
                    '''''''''''''''''
                    DataGridView1.ColumnHeadersDefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
                    DataGridView1.MultiSelect = False
                    With Me.DataGridView1
                        .RowsDefaultCellStyle.BackColor = Color.White
                        .AlternatingRowsDefaultCellStyle.BackColor = Color.White
                        .RowsDefaultCellStyle.ForeColor = Color.Black
                        .AlternatingRowsDefaultCellStyle.ForeColor = Color.Black
                    End With


                End Using
            End Using
        Catch ex As Exception
            MsgBox(ex.Message)

        End Try
    End Sub