مشكلة في كود التحديث

thepast كتب:

Dim cmd As New OleDbCommand("UPDATE EMPLOYEES SET MAIL_DEL_DATE = SYSDATE WHERE EMP_NO =  " & gvRow.Cells(0).Text, con)

اتوقع يجب عليك وضع اشارة " ' " في جملة التحديث لتصبح كتالي

Dim cmd As New OleDbCommand("UPDATE EMPLOYEES SET MAIL_DEL_DATE = ' " &  SYSDATE & " '  WHERE EMP_NO =  " & gvRow.Cells(0).Text, con)

بالتوفيق

لم يعمل الكود لانه وضعت بجانب sysdate &

انا هنا اقصد الكوتشن في الكود نفسه لان هذا الكود انا استخدمه في المقارنة برقم

thepast كتب:

لم يعمل الكود لانه وضعت بجانب sysdate &

انا هنا اقصد الكوتشن في الكود نفسه لان هذا الكود انا استخدمه في المقارنة برقم

اتوقع المشلكة من التي بعد النص

gvRow.Cells(0).Text

انا انوقع ايضا

اعتقد ممكن نضع لها كوتشن او شي مثل ذلك

السلام عليكم اخي

بالنسبة لطلبك يمكنك مراجعة هذا الكود

اولا : استدعاء الموظف المراد تحديث حقله سيكون الكود كتالي

dim cmd as new oledbcommand
dim dr as oledbDataReader
cmd.connection = conn
cmd.connection.open
cmd.commandtext = " SELECT * FROM EMPLOYEE  WHERE EMP_NO = ' " & textbox1.text & " ' "
dr = cmd.excutereader
dr.read()
dim empno as string = dr.item("EMP_NO")

في الكود السابق قمنا بالبحث عن الموضظ المراد تعديل الحقل الخاص به و الان ننتقل الى عملية التحديث

dim sql as string = "UPDATE EMPLOYEE SET Email_Del_Date = SYSDATE WHERE EMP_NO = ' " & empno & " ' "
conn.open()
dim updacmd asnew oledbcommand(sql,conn)
updatcmd.exctuetNonQuery
conn.close
msgbox("تم تعديل بنجاح")

جربه وإن شاء الله تمام

بالتوفيق