منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

بسم الله الرحمن الرحيم

السلام عليكم ورحمة الله وبركاته

عند الضغط على زر تعديل.... تظهر لدي شاشة فيها كافة الحقول المتعلقة بذاتية زبون.......
وعند اجراء تعديل على بعض الحقول ........ومن ثم الضغط على زر حفظ.......تظهر رسالة خطا
syntax error in update statment
راجعت الكود اكثر من مرة ولم اهتدي الى مكان الخطأ لدي

وفيما يلي نص الكود
[HTML]
Dim cmd As New OleDb.OleDbCommand
Dim n As String

Try
n = Val(Me.txt_Zatea_id.Text)
DataConnection()

cmd.Connection = Conn
cmd.CommandType = CommandType.Text

cmd.CommandText = "UPDATE Zatea SET Customer = '" & Trim(txt_Customer.Text) & "' , Area = '" & Trim(Area_Combobox.Text) & "', bayan = '" & Trim(lbox_Bayan.Text) & "' , Phone1= '" & Trim(txt_Phone1.Text) & "' , Phone2= '" & Trim(txt_Phone2.Text) & "', Mobile= '" & Trim(txt_Mobile.Text) & "', Fax= '" & Trim(txt_fax.Text) & "', Email= '" & Trim(txt_Email.Text) & "', Note= '" & Trim(txt_Note.Text) & "' WHERE Zatea_id ='" & n & "'"

cmd.ExecuteNonQuery()
Conn.Close()
MsgBox("1 Record has been Updated correctly")

'اصطياد الاخطاء
Catch ex As Exception
'عرض الخطا فى رساله
MsgBox(ex.Message, 16, "خطأ")

End Try[/HTML]

لدي سؤالين
1- الاشارة الى مكمن الخطأ بالكود السابق
2- كما تلاحظون اخوتي، طول السطر المتعلق بال update وهنا فقط لدي ( 9 حقول) فما بالكم لو كان هناك عشرون حقل......؟؟؟؟؟؟؟؟؟؟
هل بالامكان كتابة كود Update بطريقة مختلفة على عدة اسطر ......يحيث يحقق سهولة في التتبع والانتباه الى الخطأ

ارجو تعديل المثال المرفق في ضوء ما ذكر اعلاه
والف الف شكر

إقتباس :

هل بالامكان كتابة كود Update بطريقة مختلفة على عدة اسطر

يمكن عن طريق سطر المتابعة _ قبل النزول لسطر جديد
لكني افضل التعديل بالبارامترات

السلام عليكم
شكرا اخي sajad على الرابط الذي تفضلت به
وفعلا ......المشكلة من اسم الحقل Note ( لانه كلمة محفوظة لدى vb.net )

تم تصويب الكود السابق
بالعمل على كتابة كلمة Notes بدلا من Note

اختفت الرسالة
syntax error in update statment

ولكن ظهرت رسالة جديدة
Data type mismatch in Criteria expression

ارجو تصويب الكود ....حتى يعمل
والف شكر