[Mtaktak]

انا استخدم الكود هذا للتعديل

كود :

Private Sub Update_Studant(ByVal ID As Integer, ByVal DicName As String, ByVal DicNo As String, ByVal Issu As String, ByVal Exp As String)
       Dim sSQL As String = "Update DicT set ID=@ID,DicName=@DicName,DicNo=@DicNo,Issu=@Issu,Exp=@Exp where ID=" & Me.cmbID.Text & ""

       Dim cmd As New OleDbCommand(sSQL, Con)
       cmd.Parameters.Add(New OleDbParameter("@ID", OleDbType.VarWChar)).Value = ID
       cmd.Parameters.Add(New OleDbParameter("@DicName", OleDbType.VarWChar)).Value = DicName
       cmd.Parameters.Add(New OleDbParameter("@DicNo", OleDbType.VarWChar)).Value = DicNo
       cmd.Parameters.Add(New OleDbParameter("@Issu", OleDbType.VarWChar)).Value = Issu
       cmd.Parameters.Add(New OleDbParameter("@Exp", OleDbType.VarWChar)).Value = Exp

       If Con.State = ConnectionState.Open Then Con.Close()

       Con.Open()
       cmd.ExecuteNonQuery()
       Con.Close()
       MessageBox.Show("Update SuccessFully", "Update", MessageBoxButtons.OK, MessageBoxIcon.Information)
   End Sub