11-09-24, 10:28 PM
الأخوة الأعزاء
السلام عليكم ورحمة الله وبركاته ،،،
عملت برنامج للموظفين وكل الأزرار تعمل ماعدا زر التعديل ولا أعلم ماهي المشكلة صار لي يومين أبحث ولم أجد حل للمشكلة
الصور التالية تشرح المشكلة
هذا هو كود التعديل
السلام عليكم ورحمة الله وبركاته ،،،
عملت برنامج للموظفين وكل الأزرار تعمل ماعدا زر التعديل ولا أعلم ماهي المشكلة صار لي يومين أبحث ولم أجد حل للمشكلة
الصور التالية تشرح المشكلة
هذا هو كود التعديل
كود :
Public Sub Update_Car_info(ByVal Car_Number As Long, ByVal Car_Module As Long, ByVal Car_Tybe As String, ByVal Car_Qesem As String, ByVal Car_Molahthat As String, ByVal Car_IDW As Long)
Dim Cmd As New OleDbCommand
With Cmd
.Connection = con
.CommandType = CommandType.Text
.CommandText = "Update Car_info Set Car_Number = @Car_Number,Car_Module = @Car_Module,Car_Tybe = @Car_Tybe,Car_Qesem = @Car_Qesem,Car_Molahthat = @Car_Molahthat, Where Car_ID = @Car_ID"
.Parameters.Clear()
.Parameters.AddWithValue("@Car_Number", OleDbType.Integer).Value = Car_Number
.Parameters.AddWithValue("@Car_Module", OleDbType.Integer).Value = Car_Module
.Parameters.AddWithValue("@Car_Tybe", OleDbType.VarWChar).Value = Car_Tybe
.Parameters.AddWithValue("@Car_Qesem", OleDbType.VarWChar).Value = Car_Qesem
.Parameters.AddWithValue("@Car_Molahthat", OleDbType.VarWChar).Value = Car_Molahthat
.Parameters.AddWithValue("@Car_ID", OleDbType.Integer).Value = Car_IDW
End With
If con.State = 1 Then con.Close()
con.Open()
Cmd.ExecuteNonQuery()
con.Close()
MsgBox("تم تعديل السجل بنجاح", MsgBoxStyle.Information, "تعديل")
Cmd = Nothing
End Sub