ما الخطأ فى كود الحفظ هذا

السلام عليكم

سؤال صغير المتغير h ايه وظيفته ؟و نوعه؟

و انت ليه مساويه بتنفيذ الامر؟

و هل انت جربت جمله الانسرت على Query Analyzer لوحده؟

و لا المشكله من الفيجوال بيزيك نفسه؟ و بيطلعلك اكسبشن System Error ؟

ياريت توضح اكتر

ربنا يوفقك

المشكله انك في اعلان المتغير f9 افترضت انه اخر معامل في ترتيب جمله الادخال، لكنك لم تقم بوضعه في اخر المعاملات ووضعت المتغير f7 كاخر معامل.

يصبح الحل كلاتي:

Dim f1, f2, f3, f4, f5, f6, f7 As String
Dim f8, f9 As String
f1 = "'" & TextBox1.Text & "',"
f2 = "'" & TextBox2.Text & "',"
f3 = "'" & TextBox3.Text & "',"
f4 = "'" & TextBox4.Text & "',"
f5 = "'" & TextBox5.Text & "',"
f6 = "'" & TextBox6.Text & "',"
f7 = "'" & TextBox7.Text & "'"
f8 = "'" & TextBox8.Text & "',"
f9 = "'" & DateTimePicker1.Value & "',"

s = "insert into section1([code],[sname],[roomnum],[notes],[workernum],[sdate],[funds],[payments]
,[totalfunds]) values(" & f1 & f2 & f3 & f8 & f4 & f9 & f5 & f6 & f7 & " )"

ارجو ان يكون الحل واضحا.

لكن على اي حال الطريقه اللتي استخدمتها في برنامجك ليست الطريقه المثلى للتعامل مع جمل sql والدليل على ذلك الخطاء الغير مقصود اللذي وقعت فيه، هذه طريقه افضل نوعا ما من الطريق السابقه:

Dim f1, f2, f3, f4, f5, f6, f7 As String
Dim f8, f9 As String
f1 = TextBox1.Text
f2 = TextBox2.Text
f3 = TextBox3.Text
f4 = TextBox4.Text
f5 = TextBox5.Text
f6 = TextBox6.Text
f7 = TextBox7.Text
f8 = TextBox8.Text
f9 = DateTimePicker1.Value

s = "insert into section1([code],[sname],[roomnum],[notes],[workernum],[sdate],[funds],[payments]
,[totalfunds]) values('" & f1 &"','" & f2 &"','"& f3 &"','"& f8 &"','"& f4 &"','"& f9 &"','"& f5 &"','"& f6 &"','"& f7 & "' )"

شكرا لمساعدتكم يا اخوانى

ولكن هذه الرساله مازالت تظهر لى

ومعناها خطأ فى جملة الانسيرت

ارجو الرد على وارشادى الى افضل طريقه للحفظ وشكرا

أخي الكود الأخير في رد الأخ عبدالباسط يعمل بشكل صحيح تأكد من Table stracture للجدول section1

1. ما هو الخظأ اللي بيطلعلك

2. هل انت متأكد من نوع البيانات في قاعدة البيانات

السلام عليكم

على فكرة طول ما انت مش موضح ايه نوع الرساله او مكتوب فيها ايه او بتطلع منين

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

والله يا اخوانى الخطأ بيظهرلى

فى السطر التالى

h = cmd.ExecuteNonQuery

والرساله هى

Syntax error in INSERT INTO statement.

والكود بتاعى

'==================================================

'الاعلان عن متغيرات حفظ القيم

Dim f1, f2, f3, f4 As String

f1 = ComboBox1.Text

f2 = TextBox1.Text

f3 = TextBox2.Text

f4 = TextBox3.Text

'=======================================

'وضع جملة الاستعلام فى متغير نصى

s = " insert into PRICE([sname],[seRVICE],[PRICE],[sECTION]) values ""('" & f1 & "','" & f2 & "','" & f3 & "','" & f4 & "' )"

'========================================

'جعل الكوماند يأخذ جمل الاستعلام من المتغير النصى

cmd.CommandText = s

'========================================

'تنفيذ جملة الاستعلام و حفظ السجل

h = cmd.ExecuteNonQuery

MsgBox(h & "DATA SAVED"

'=======================================

ارجو الرد يا اخوانى

قد تكزن المشكلة في أسماء الحقول..

جرب تغير في أسماء الحقول و تشيل الأقواس حولها..

متغير h ايه نوعه و وظيفته

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

تأكد أن الحقل sdate عباره عن datetime

لمعرفة المشكلة بالضبط ..

أعمل تتبع باستخدام الPrakepoint

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

شكرأ يا اخوانى الكود فعال والحمد لله

وااله كان فى سؤال عندى

كل ما اضغط التالى او السابق الداتا بتتغير فى التيكستات

كنت عايز المؤشر فى الداتا جريد يتحرك مع تغيير الداتا

وشكرأ