23-02-24, 10:19 PM
السلام عليكم
اريد حل لهذا الخطأ في كود التعديل استخدمت اكثر من طريق للكود ولكن لم ينجح معي حتى ببرنامج صانع الاكواد لم اجد الحل
ولكن لدسي ثقة في اعضاء هذا المنتدى لايجاد الحل
وتقبلوا تحياتي
الكود
Public Sub Update_Empotab()
Dim saveSQL As String
saveSQL = "Update Empotab Set ID = @ID,codID = @codID,numID = @numID,NAME = @NAME,ID_number = @ID_number,status = @status,Type = @Type,phone = @phone,education = @education,takhasus = @takhasus,almsrf1 = @almsrf1,dateof = @dateof,rgmalhsab = @rgmalhsab,aldrgh1 = @aldrgh1,alalaow = @alalaow,salary = @salary,aldman = @aldman,altdamn = @altdamn,alghad = @alghad,altkafl = @altkafl,alksmeat = @alksmeat,safesalray = @safesalray Where ID = @ID"
cmd = New OleDb.OleDbCommand(saveSQL, con)
cmd.Parameters.AddWithValue("@codID", Txt1.Text)
cmd.Parameters.AddWithValue("@numID", Txt2.Text)
cmd.Parameters.AddWithValue("@NAME", Txt3.Text)
cmd.Parameters.AddWithValue("@ID_number", Txt4.Text)
cmd.Parameters.AddWithValue("@status", Combo1.Text)
cmd.Parameters.AddWithValue("@Type", Combo2.Text)
cmd.Parameters.AddWithValue("@phone", Txt5.Text)
cmd.Parameters.AddWithValue("@education", Combo3.Text)
cmd.Parameters.AddWithValue("@takhasus", Txt6.Text)
cmd.Parameters.AddWithValue("@dateof", DTime1.Text)
cmd.Parameters.AddWithValue("@almsrf1", Combank.Text)
cmd.Parameters.AddWithValue("@rgmalhsab", Txtrgmh.Text)
cmd.Parameters.AddWithValue("@aldrgh1", Cbodrgh.Text)
cmd.Parameters.AddWithValue("@alalaow", Cboalow.Text)
cmd.Parameters.AddWithValue("@salary", Txtsalry.Text)
cmd.Parameters.AddWithValue("@aldman", Txtdman.Text)
cmd.Parameters.AddWithValue("@altdamn", Txttdamn.Text)
cmd.Parameters.AddWithValue("@alghad", Txtgehd.Text)
cmd.Parameters.AddWithValue("@altkafl", Txttkfl.Text)
cmd.Parameters.AddWithValue("@alksmeat", Txtgksm.Text)
cmd.Parameters.AddWithValue("@safesalray", Txtsafe.Text)
con.Open()
)
cmd.ExecuteNonQuery()
con.Close()
MsgBox("Record Updated successfullY", vbInformation)
اريد حل لهذا الخطأ في كود التعديل استخدمت اكثر من طريق للكود ولكن لم ينجح معي حتى ببرنامج صانع الاكواد لم اجد الحل
ولكن لدسي ثقة في اعضاء هذا المنتدى لايجاد الحل
وتقبلوا تحياتي
الكود
Public Sub Update_Empotab()
Dim saveSQL As String
saveSQL = "Update Empotab Set ID = @ID,codID = @codID,numID = @numID,NAME = @NAME,ID_number = @ID_number,status = @status,Type = @Type,phone = @phone,education = @education,takhasus = @takhasus,almsrf1 = @almsrf1,dateof = @dateof,rgmalhsab = @rgmalhsab,aldrgh1 = @aldrgh1,alalaow = @alalaow,salary = @salary,aldman = @aldman,altdamn = @altdamn,alghad = @alghad,altkafl = @altkafl,alksmeat = @alksmeat,safesalray = @safesalray Where ID = @ID"
cmd = New OleDb.OleDbCommand(saveSQL, con)
cmd.Parameters.AddWithValue("@codID", Txt1.Text)
cmd.Parameters.AddWithValue("@numID", Txt2.Text)
cmd.Parameters.AddWithValue("@NAME", Txt3.Text)
cmd.Parameters.AddWithValue("@ID_number", Txt4.Text)
cmd.Parameters.AddWithValue("@status", Combo1.Text)
cmd.Parameters.AddWithValue("@Type", Combo2.Text)
cmd.Parameters.AddWithValue("@phone", Txt5.Text)
cmd.Parameters.AddWithValue("@education", Combo3.Text)
cmd.Parameters.AddWithValue("@takhasus", Txt6.Text)
cmd.Parameters.AddWithValue("@dateof", DTime1.Text)
cmd.Parameters.AddWithValue("@almsrf1", Combank.Text)
cmd.Parameters.AddWithValue("@rgmalhsab", Txtrgmh.Text)
cmd.Parameters.AddWithValue("@aldrgh1", Cbodrgh.Text)
cmd.Parameters.AddWithValue("@alalaow", Cboalow.Text)
cmd.Parameters.AddWithValue("@salary", Txtsalry.Text)
cmd.Parameters.AddWithValue("@aldman", Txtdman.Text)
cmd.Parameters.AddWithValue("@altdamn", Txttdamn.Text)
cmd.Parameters.AddWithValue("@alghad", Txtgehd.Text)
cmd.Parameters.AddWithValue("@altkafl", Txttkfl.Text)
cmd.Parameters.AddWithValue("@alksmeat", Txtgksm.Text)
cmd.Parameters.AddWithValue("@safesalray", Txtsafe.Text)
con.Open()
)
cmd.ExecuteNonQuery()
con.Close()
MsgBox("Record Updated successfullY", vbInformation)