ما كود Sql الخاص بحفظ التعديلات مرفق مثال

ياريت تلقي نظرة سريعة علي منتديات قواعد البيانات المتاحة بالمنتدي ، حيث يحتوي علي جمل الـ SQL و الـ PL/SQL ( حسب خيارك لنوع القاعدة ) .

علي العموم ، الشكل العامل لجملة التعديل هي :

Update <Table Name>
Set <Fild1> = <Value>,<Field2> = <Value>, <FieldN> = <Value>
Where <Condation>

وإليك مثال بسيط ،

جدول الـ Employee يحتوي علي جميع بيانات الموظف ، وإذا إفترضنا أن كود الموظف يتم تخزينة بحقل يدعي ( Employee_No ) ، ويحتوي علي حقول أخري مثل الراتب ( Employee_Salary ) و تاريخ الميلاد ( Employee_Bdate ) ، كيف يتم إجراء تعديل علي حقلي ( الراتب وتاريخ الميلاد ) ، أنظر الي هذا الكود :

SQL = "Update Employee Set "
SQL = SQL & "Employee_Salary =" & Val(txtSalary.Text) & ","
SQL = SQL & "Emp_Bdate = Cdate(" & txtBdate.Text & ") "
SQL = SQL & "Where Employee_No = '" & txtNo.Text & "'"

Cn.Execute SQL

شكراً

الاخ الفاضل : MMA_EG_Cairo

شكراً لك علي المساعدة وجربت الكود ولك ظهرت الخطأ التالي

Syntax error (missing Operator ) in Query Exprssion

فهل اطمع في تعديل الكود علي المثال المرفق

وشكراً لك جزيل الشكر

Project.rar

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

SQL = "Update Employ Set "
SQL = SQL & "EmpEName ='" & Text2.Text & "',"
SQL = SQL & "Eqam_issu_date = '" & Text5.Text & "' "
SQL = SQL & "Where Trim(EmpNo) = '" & Trim(Text1.Text) & "'"

db.Execute SQL

الاخ العزيز الفاضل / العقدة

الف مليون شكر

ظبط الكود معايا

شكرا لك جزيل الشكر

وشكرا ايضا للاخ الفاضل MMA_EG_Cairo

لكم التحية والسلام عليكم

أخي الكريم ، أنا نظرت في الكود الموجود بداخل المثال وهو ما يلي :

Private Sub CmdEdit_Click()
	SQL = "Update Employ Set "
	SQL = SQL & "EmpEName =" & Text2.Text & ","
	SQL = SQL & "Eqam_issu_date = Cdate(" & Text5.Text & ") "
	SQL = SQL & "Where EmpNo = '" & Text1.Text & "'"
	db.Execute SQL
End Sub

فوجدت الأخطاء التالية :

1- الحقل النصي يجب إدراج له علامة ( ' ' ) كما يلي :

Update Employ Set EmpEName = 'Ahmed' Where EmpNo = '1000'

2- وكذلك الحقل النصي يجب أن يتم إضافته بين علامات ( ' ' ) ، أو علامتي ( # # ) . أنظر الكود التالي :

Update Employ Set 
	  Eqam_issu_date = Cdate('24/9/2001') 
Where EmpNo = '1000'

أما بالنسبة للحقول الرقيمة فيتم إدراجه مباشرتاً ، وفي حالة عدم الرغبة في إدراجة ، إضافة قيمة Null له كما يلي :

Update Employ Set 
	  Nsex = Null
Where EmpNo = '1000'

شكراً

الاخ الفاضل الاستاذ / MMA_EG_Cairo

شكرا جزيل الشكر علي التوضيح هذا

ولك كل التحية والتقدير