كود حفظ البيانات في وضع ال OnLine

لم تذكر ماهي رسالة الخطا التي تواجهك لايكفي ذكرك أنك تلقيت رسالة خطأ نريد النص الحرفي الكامل لرسالة الخطأ

استاز محمد شكرا علي اهتمامك واسف علي التاخر في الرد

قمت بارفاق الخط في شكل صورة ايضا وياريت تعرفي الخطء ه ايه سببوا علشان انا تعبت منة

وشكرا

Error_Save_22.bmp

الخطأ لديك في جملة Insert

أنت عرفت المتغيرات كما في الصورة وضعت التنصيص المفرد في المتغيرات النصية

ووضعت تنصيص مفرد أيضا ضمن عبارة Insert وفاصلة زائدة عند اسناد قيمة المتغير F8 لذا يتوجب عليك إصلاحان في الكود حتى يعمل معك

الأول إزالة الفاصلة الزائدة من المتغير F8 كما في الصورة

إزالة علامات التنصيص المفرد الزائدة من عبارة Insert كما في الصورة

يرجى كتابة الكود مستقبلا ضمن نص الموضوع وإرفاق صورة عن رسائل الخطأ لأن التعديل على الأكواد الموجودة ضمن الموضوع أسهل من تعديل الكود الموجود ضمن الصورة

جاري تجربة الكود ولو فية حاجة مش فهمها هبقي اسالك تاني

السلام عليكم

ظهرت لي رسالة تانية وقمت بارفاق الخطء في شكل صورة و الكود قمت بكتابتة كما قلت لي

Dim f1, f2, f3, f4, f6, f7, f8 As String

f1 = "'" & TimeVPicker.Value & "'"

f2 = "'" & DateVPicker.Value & "'"

f3 = "'" & NameVText.Text & "'"

f4 = "'" & IBText.Text & "'"

'f5 = "'" & HIBCheck.Checked & "',"

f6 = "'" & JobVText.Text & "'"

f7 = "'" & SendCText.Text & "'"

f8 = "'" & Me.Text & "'"

S = "insert into DataInterview (TV,DV,NV,IVB,HIB,JV,SW,SD) Values (" & f1 & f2 & f3 & f4 & f6 & f7 & f8 & ")"

'S = S & "(TV,DV,NV,IVB,HIB,JV,SW,SD) Values "

'S = S & "(" & f1 & f2 & f3 & f4 & f5 & f6 & f7 & f8 & ")"

CMD.CommandText = S

H = CMD.ExecuteNonQuery

MsgBox(H & "records saved")

----------------

اسف علي ازعاجك معايا

Error2.bmp

الفواصلة ناقصة بين المتغيرات

f1 & "," & f2 & "," & ....

السلام عليكم

ماذا يعني هذا الخطاء

مرفق في هيئة صورة وهذا هو الكود

Dim f1, f2, f3, f4, f5, f6, f7, f8 As String
f1 = "'" & TimeVPicker.Value & "',"
f2 = "'" & DateVPicker.Value & "',"
f3 = "'" & NameVText.Text & "',"
f4 = "'" & IBText.Text & "',"
f5 = "'" & HIBCheck.Checked & "',"
f6 = "'" & JobVText.Text & "',"
f7 = "'" & SendCText.Text & "',"
f8 = "'" & Me.Text & "'"

S = "insert into DataInterviewD (TV,DV,NV,IVB,HIB,JV,SW,SD) Values ('" & f1 & "," & f2 & "," & f3 & "," & f4 & "," & f5 & "," & f6 & "," & f7 & "," & f8 & "')"

شكرا

Error_3.bmp

الخطأ لديك في السطر

S = "insert into DataInterviewD (TV,DV,NV,IVB,HIB,JV,SW,SD) Values ('" & f1 & "," & f2 & "," & f3 & "," & f4 & "," & f5 & "," & f6 & "," & f7 & "," & f8 & "')"

يجب أن يكون

S = "insert into DataInterviewD (TV,DV,NV,IVB,HIB,JV,SW,SD) Values (" & f1 & "," & f2 & "," & f3 & "," & f4 & "," & f5 & "," & f6 & "," & f7 & "," & f8 & ")"

السلام عليكم

تواجهني مشكلة في تحويل ال smalldatetime الي string مرفق صوره الخطاء في الصوره الاولي

وايضا في ال type bit مرفق صورة الخطاء في الصوره الثانية

ارجو العون في شرح الاخطاء بسرعة

ياريت حد يشرح الطريقة الصحيحة ويفدني

شكرا

 

		Dim f1, f2, f3, f4, f5, f6, f7, f8 As String
		f1 = "'" & TimeVPicker.Value & "',"
		f2 = "'" & DateVPicker.Value & "',"
		f3 = "'" & NameVText.Text & "',"
		f4 = "'" & IBText.Text & "',"
		'f5 = "'" & HIBCheck.Checked & "',"
		f6 = "'" & JobVText.Text & "',"
		f7 = "'" & SendCText.Text & "',"
		f8 = "'" & Me.Text & "'"

		'S = "insert into DataInterviewD (TV,DV,NV,IVB,HIB,JV,SW,SD) Values (" & f1 & "," & f2 & "," & f3 & "," & f4 & "," & f5 & "," & f6 & "," & f7 & "," & f8 & ")"
		S = "insert into DataInterviewD "
		S = S & "(TV,DV,NV,IVB,JV,SW,SD) Values "
		S = S & "(" & f1 & f2 & f3 & f4 & f6 & f7 & f8 & ")"

		CMD.CommandText = S

		H = CMD.ExecuteNonQuery
		MsgBox(H & "records saved")

1_smalldatetime.bmp

2_type_bit.bmp

ارجو المعونة يا شباب اريد رد عاجل ولكم جزيل الشكر

واسف علي الازعاج