[asemshahen5]

عدل كود الحذف ليكون كالتالي :

PHP كود :

   Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
        If MsgBox("هل انت متأكد من عملية حذف السجل : " & TextBox2.Text, MsgBoxStyle.YesNo, "") = MsgBoxResult.Yes Then
            InfoAdapter = New OleDbDataAdapter("Delete From RRR where ms=" & TextBox1.Text, Conne)
            InfoAdapter.Fill(InfoTable)
            اضافة_وضع_Load(Nothing, Nothing)
            MessageBox.Show("تمّت بنجاح عملية حذف بيانات الكتاب", "عملية الحذف", MessageBoxButtons.OK, MessageBoxIcon.Asterisk, MessageBoxDefaultButton.Button1, MessageBoxOptions.RightAlign)
        End If
    End Sub 


و كود تحميل الفورم ليكون كالتالي :

PHP كود :

   Private Sub اضافة_وضع_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        If Conne.State = ConnectionState.Closed Then Conne.Open()
        Load_Location_Information(DataGridView1)
        DataGridViewHeaderText(DataGridView1)
    End Sub