08-07-13, 02:09 AM
بسم الله الرحمن الرحيم
السلام عليكم ورحمة الله وبركاته
عند الضغط على زر تعديل.... تظهر لدي شاشة فيها كافة الحقول المتعلقة بذاتية زبون.......
وعند اجراء تعديل على بعض الحقول ........ومن ثم الضغط على زر حفظ.......تظهر رسالة خطا
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 بطريقة مختلفة على عدة اسطر ......يحيث يحقق سهولة في التتبع والانتباه الى الخطأ
ارجو تعديل المثال المرفق في ضوء ما ذكر اعلاه
والف الف شكر
السلام عليكم ورحمة الله وبركاته
عند الضغط على زر تعديل.... تظهر لدي شاشة فيها كافة الحقول المتعلقة بذاتية زبون.......
وعند اجراء تعديل على بعض الحقول ........ومن ثم الضغط على زر حفظ.......تظهر رسالة خطا
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 بطريقة مختلفة على عدة اسطر ......يحيث يحقق سهولة في التتبع والانتباه الى الخطأ
ارجو تعديل المثال المرفق في ضوء ما ذكر اعلاه
والف الف شكر