20-12-19, 04:15 AM
انا استخدم الكود هذا للتعديل
كود :
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