تنفيذ جملة SQL من خلال db.excute

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

الاخ الفاضل بالطبيعي لابد من هذا الخطأ :

حيث الحقل الذي تريد التنفيذ على اساسه من نوع TEXT فلابد من القيمه التى ستسند اليه توضع بين علامتي التنصيص !!! هذه ' ' وليس هذه " " .

فا الكود الصحيح هو :

db.Execute "UPDATE tb SET tb.val = [val]*10 WHERE tb.sts='y';"

وبالنسبه لسؤالك التاني يمكن فعل ذلك :

فا عند كتابة جملة الـ SQL وعند بداية اسناد القيمه تقوم بإسناد القيمه الاتيه من الـ TextBox .

الكــود التالي يوضح المقصود :

db.Execute "UPDATE tb SET tb.val = [val]*10 WHERE tb.sts='" & Textbox1.Text & "';"

وذالك بإفتراض ان الـ Textbox المراد التعامل معها تسمى بـ Textbox1 .

بالتوفيق ,,,,

A7med_prof

أخي أحمد الكود ناجح ولك الشكر

لي أستفسار أخر ماذا لو كان الحقل من نوع Date

كتبت هذا الكود ولا يتم تحديث الحقل

db.Execute "UPDATE tb SET tb.val = [val]*10 WHERE tb.dtd=#" & Format(txt.Text, "dd/MM/yyyy") & "#;"

أرجو الإفادة ... مرفق مثال للتعديل إن أمكن

وشكرا جزيلا

Project1.rar

الكود صحيح .

ولكن يبدو انك ترسل له التاريخ ليست بالصيغه الصحيحه :

فانصحك بعمل Valadation على التكست بوكس :

	If IsDate(Trim(txt.Text)) = False Then
		MsgBox "يجب ادخال تاريخ"
		Exit Sub
	End If
	db.Execute "UPDATE tb SET tb.val = [val]*10 WHERE tb.dtd=#" & Format(txt.Text, "dd/MM/yyyy") & "#;"

أخي احمد

السلام عليكم

أولا احب أشكرك علي مجهودك الكبير في المنتدى وما قدمتة لي شخصيا من مساعدات

أخي أحمد لي أستفسار بسيط

أحاول تنفيذ هذه الجملة ولكن يظهر خطأ ولا أعرف السبب

db.Execute "Insert into tb(txt,no,dtd)values('Man',10,#31/05/07#)"

وأيضا أريدك أن توضح لي ماذا لو كنت أريد أن يتم أخذ القيم من مربعات نصوص فكيف سيكون شكل الكود

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

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

Project.rar

اقتباس

أولا احب أشكرك علي مجهودك الكبير في المنتدى وما قدمتة لي شخصيا من مساعدات

الحطأ في جملة الـ SQL

db.Execute "Insert into tb(txt,no,dtd)values('Man',10,#31/05/07#)"

فا من الطبيعي ان يحدث خطأ لأنك قمت بتسميه الحقول بأسماء محجوزه اي مستخدمه من قبل النظام سواء معرفه على انها دوال او كلمه محجوذه مثل Not - True- False ...... الخ.

وايضا بحملتك مثل ... :.

- no

- dtd

فإذا اردت حقا استخدام هذه المسميات لن يتثنى لك الا ان تضع هذه الأسماء بين علامتي []

فا تصبح جملة الـ SQL كما يلي :

"Insert INTO tb([txt],[no],[dtd]) values ('Man',10,#31/05/07#)"

بالتوفيق ,,,,

A7med_prof

أشكرك أحمد باشا علي سرعة الإستجابة ... وده شىء أعتدنا عليه منك

فأنت دائما في خدمة الأخرين

بالنسبة للكود انا عدلته وأصبح علي هذا الشكل

db.Execute "Insert into TB(t,n,d)values('" & txtT.Text & "'," & txtN.Text & ",#" & txtD.Text & "#)"

وهو الأن يعمل معي بشكل ناجح مع الأكسس

وكذلك قمت بتجربة مع قاعدة بيانات SQL Server 2000

وأصبح الكود بالشكل الأتي

db.Execute ("Insert into TB(t,n,d)values('" & txtT.Text & "'," & txtN.Text & "," & txtD.Text & ")")

ولكنه لا يقوم بتسجيل التاريخ في الحقل D وهو من نوع datetime وطوله 8

فالكود يقوم بتسجيل السجل في كافة الحقول ولكن تكون قيمة السجل في الحقل D هي 01/01/1900 مهما كات القيمة المدخلة في مربع نص D

فهل لك أنت ترشدي إلي الكود السليم مع SQL Server

اشكرك ,

يبدو انك نسيت علامتي ##

قم بوضع القيمه المسنده الى حقل التاريخ بين علامتي ##