الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

Syntax Error In Insert Into Statment

مغلق
بدأه T15 في 27 يناير 2008 · 3 رد · 476 مشاهدة · في Microsoft Visual Basic.NET
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

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

اشكر اعضاء هذا المنتدى الشامخ

ارجو منكم مساعدتي في ايجاد الخطأ في هذا الأمر

		Dim conn As OleDbConnection
		Dim insertCmd As String

		conn = getConnection()
		conn.Open()
		insertCmd = "insert into TREATMENT(T_NUMBER, T_DATE, TITLE, PROC, COME_TO, A0, A1, A2, A3, A4, A5, A6, A7, A8, A9, A10, A11, A12, A13, A14, A15, A16, A17, A18, A19, A20, A21, A22, A23, A24, A25, A26, A27, A28, A29, A30, A31, A32, A33, A34, A35, A36, A37, END_DATE, IS_END, USER_NAME) values ('"
		insertCmd = insertCmd & TextBox1.Text & "','"
		insertCmd = insertCmd & TextBox4.Text & "','"
		insertCmd = insertCmd & TextBox2.Text & "','"
		insertCmd = insertCmd & TextBox3.Text & "','"
		insertCmd = insertCmd & cb.SelectedItem & "','"
		If RadioButton1.Checked Then
			insertCmd = insertCmd & 0 & "','"
		End If
		If RadioButton2.Checked Then
			insertCmd = insertCmd & 1 & "','"
		End If
		If RadioButton3.Checked Then
			insertCmd = insertCmd & 2 & "','"
		End If
		If RadioButton4.Checked Then
			insertCmd = insertCmd & 0 & "','"
		End If
		If RadioButton5.Checked Then
			insertCmd = insertCmd & 1 & "','"
		End If
		If RadioButton6.Checked Then
			insertCmd = insertCmd & 2 & "','"
		End If
		If RadioButton7.Checked Then
			insertCmd = insertCmd & 0 & "','"
		End If
		If RadioButton8.Checked Then
			insertCmd = insertCmd & 1 & "','"
		End If
		If RadioButton9.Checked Then
			insertCmd = insertCmd & 2 & "','"
		End If
		If RadioButton10.Checked Then
			insertCmd = insertCmd & 0 & "','"
		End If
		If RadioButton11.Checked Then
			insertCmd = insertCmd & 1 & "','"
		End If
		If RadioButton12.Checked Then
			insertCmd = insertCmd & 2 & "','"
		End If
		If RadioButton13.Checked Then
			insertCmd = insertCmd & 0 & "','"
		End If
		If RadioButton14.Checked Then
			insertCmd = insertCmd & 1 & "','"
		End If
		If RadioButton15.Checked Then
			insertCmd = insertCmd & 2 & "','"
		End If
		If RadioButton16.Checked Then
			insertCmd = insertCmd & 0 & "','"
		End If
		If RadioButton17.Checked Then
			insertCmd = insertCmd & 1 & "','"
		End If
		If RadioButton18.Checked Then
			insertCmd = insertCmd & 2 & "','"
		End If
		If RadioButton19.Checked Then
			insertCmd = insertCmd & 0 & "','"
		End If
		If RadioButton20.Checked Then
			insertCmd = insertCmd & 1 & "','"
		End If
		If RadioButton21.Checked Then
			insertCmd = insertCmd & 2 & "','"
		End If
		If RadioButton22.Checked Then
			insertCmd = insertCmd & 0 & "','"
		End If
		If RadioButton23.Checked Then
			insertCmd = insertCmd & 1 & "','"
		End If
		If RadioButton24.Checked Then
			insertCmd = insertCmd & 2 & "','"
		End If
		If RadioButton25.Checked Then
			insertCmd = insertCmd & 0 & "','"
		End If
		If RadioButton26.Checked Then
			insertCmd = insertCmd & 1 & "','"
		End If
		If RadioButton27.Checked Then
			insertCmd = insertCmd & 2 & "','"
		End If
		If RadioButton28.Checked Then
			insertCmd = insertCmd & 0 & "','"
		End If
		If RadioButton29.Checked Then
			insertCmd = insertCmd & 1 & "','"
		End If
		If RadioButton30.Checked Then
			insertCmd = insertCmd & 2 & "','"
		End If
		If RadioButton31.Checked Then
			insertCmd = insertCmd & 0 & "','"
		End If
		If RadioButton32.Checked Then
			insertCmd = insertCmd & 1 & "','"
		End If
		If RadioButton33.Checked Then
			insertCmd = insertCmd & 2 & "','"
		End If
		If RadioButton34.Checked Then
			insertCmd = insertCmd & 0 & "','"
		End If
		If RadioButton35.Checked Then
			insertCmd = insertCmd & 1 & "','"
		End If
		If RadioButton36.Checked Then
			insertCmd = insertCmd & 2 & "','"
		End If
		If RadioButton37.Checked Then
			insertCmd = insertCmd & 0 & "','"
		End If
		If RadioButton38.Checked Then
			insertCmd = insertCmd & 1 & "','"
		End If
		If RadioButton39.Checked Then
			insertCmd = insertCmd & 2 & "','"
		End If
		If RadioButton40.Checked Then
			insertCmd = insertCmd & 0 & "','"
		End If
		If RadioButton41.Checked Then
			insertCmd = insertCmd & 1 & "','"
		End If
		If RadioButton42.Checked Then
			insertCmd = insertCmd & 2 & "','"
		End If
		If RadioButton43.Checked Then
			insertCmd = insertCmd & 0 & "','"
		End If
		If RadioButton44.Checked Then
			insertCmd = insertCmd & 1 & "','"
		End If
		If RadioButton45.Checked Then
			insertCmd = insertCmd & 2 & "','"
		End If
		If RadioButton46.Checked Then
			insertCmd = insertCmd & 0 & "','"
		End If
		If RadioButton47.Checked Then
			insertCmd = insertCmd & 1 & "','"
		End If
		If RadioButton48.Checked Then
			insertCmd = insertCmd & 2 & "','"
		End If
		If RadioButton49.Checked Then
			insertCmd = insertCmd & 0 & "','"
		End If
		If RadioButton50.Checked Then
			insertCmd = insertCmd & 1 & "','"
		End If
		If RadioButton51.Checked Then
			insertCmd = insertCmd & 2 & "','"
		End If
		If RadioButton52.Checked Then
			insertCmd = insertCmd & 0 & "','"
		End If
		If RadioButton53.Checked Then
			insertCmd = insertCmd & 1 & "','"
		End If
		If RadioButton54.Checked Then
			insertCmd = insertCmd & 2 & "','"
		End If
		If RadioButton55.Checked Then
			insertCmd = insertCmd & 0 & "','"
		End If
		If RadioButton56.Checked Then
			insertCmd = insertCmd & 1 & "','"
		End If
		If RadioButton57.Checked Then
			insertCmd = insertCmd & 2 & "','"
		End If
		If RadioButton58.Checked Then
			insertCmd = insertCmd & 0 & "','"
		End If
		If RadioButton59.Checked Then
			insertCmd = insertCmd & 1 & "','"
		End If
		If RadioButton60.Checked Then
			insertCmd = insertCmd & 2 & "','"
		End If
		If RadioButton61.Checked Then
			insertCmd = insertCmd & 0 & "','"
		End If
		If RadioButton62.Checked Then
			insertCmd = insertCmd & 1 & "','"
		End If
		If RadioButton63.Checked Then
			insertCmd = insertCmd & 2 & "','"
		End If
		If RadioButton64.Checked Then
			insertCmd = insertCmd & 0 & "','"
		End If
		If RadioButton65.Checked Then
			insertCmd = insertCmd & 1 & "','"
		End If
		If RadioButton66.Checked Then
			insertCmd = insertCmd & 2 & "','"
		End If
		If RadioButton67.Checked Then
			insertCmd = insertCmd & 0 & "','"
		End If
		If RadioButton68.Checked Then
			insertCmd = insertCmd & 1 & "','"
		End If
		If RadioButton69.Checked Then
			insertCmd = insertCmd & 2 & "','"
		End If
		If RadioButton70.Checked Then
			insertCmd = insertCmd & 0 & "','"
		End If
		If RadioButton71.Checked Then
			insertCmd = insertCmd & 1 & "','"
		End If
		If RadioButton72.Checked Then
			insertCmd = insertCmd & 2 & "','"
		End If
		If RadioButton73.Checked Then
			insertCmd = insertCmd & 0 & "','"
		End If
		If RadioButton74.Checked Then
			insertCmd = insertCmd & 1 & "','"
		End If
		If RadioButton75.Checked Then
			insertCmd = insertCmd & 2 & "','"
		End If
		If RadioButton76.Checked Then
			insertCmd = insertCmd & 0 & "','"
		End If
		If RadioButton77.Checked Then
			insertCmd = insertCmd & 1 & "','"
		End If
		If RadioButton78.Checked Then
			insertCmd = insertCmd & 2 & "','"
		End If
		If RadioButton79.Checked Then
			insertCmd = insertCmd & 0 & "','"
		End If
		If RadioButton80.Checked Then
			insertCmd = insertCmd & 1 & "','"
		End If
		If RadioButton81.Checked Then
			insertCmd = insertCmd & 2 & "','"
		End If
		If RadioButton82.Checked Then
			insertCmd = insertCmd & 0 & "','"
		End If
		If RadioButton83.Checked Then
			insertCmd = insertCmd & 1 & "','"
		End If
		If RadioButton84.Checked Then
			insertCmd = insertCmd & 2 & "','"
		End If
		If RadioButton85.Checked Then
			insertCmd = insertCmd & 0 & "','"
		End If
		If RadioButton86.Checked Then
			insertCmd = insertCmd & 1 & "','"
		End If
		If RadioButton87.Checked Then
			insertCmd = insertCmd & 2 & "','"
		End If
		If RadioButton88.Checked Then
			insertCmd = insertCmd & 0 & "','"
		End If
		If RadioButton89.Checked Then
			insertCmd = insertCmd & 1 & "','"
		End If
		If RadioButton90.Checked Then
			insertCmd = insertCmd & 2 & "','"
		End If
		If RadioButton91.Checked Then
			insertCmd = insertCmd & 0 & "','"
		End If
		If RadioButton92.Checked Then
			insertCmd = insertCmd & 1 & "','"
		End If
		If RadioButton93.Checked Then
			insertCmd = insertCmd & 2 & "','"
		End If
		If RadioButton94.Checked Then
			insertCmd = insertCmd & 0 & "','"
		End If
		If RadioButton95.Checked Then
			insertCmd = insertCmd & 1 & "','"
		End If
		If RadioButton96.Checked Then
			insertCmd = insertCmd & 2 & "','"
		End If
		If RadioButton97.Checked Then
			insertCmd = insertCmd & 0 & "','"
		End If
		If RadioButton98.Checked Then
			insertCmd = insertCmd & 1 & "','"
		End If
		If RadioButton99.Checked Then
			insertCmd = insertCmd & 2 & "','"
		End If
		If RadioButton100.Checked Then
			insertCmd = insertCmd & 0 & "','"
		End If
		If RadioButton101.Checked Then
			insertCmd = insertCmd & 1 & "','"
		End If
		If RadioButton102.Checked Then
			insertCmd = insertCmd & 2 & "','"
		End If
		If RadioButton103.Checked Then
			insertCmd = insertCmd & 0 & "','"
		End If
		If RadioButton104.Checked Then
			insertCmd = insertCmd & 1 & "','"
		End If
		If RadioButton105.Checked Then
			insertCmd = insertCmd & 2 & "','"
		End If
		If RadioButton106.Checked Then
			insertCmd = insertCmd & 0 & "','"
		End If
		If RadioButton107.Checked Then
			insertCmd = insertCmd & 1 & "','"
		End If
		If RadioButton108.Checked Then
			insertCmd = insertCmd & 2 & "','"
		End If
		If RadioButton109.Checked Then
			insertCmd = insertCmd & 0 & "','"
		End If
		If RadioButton110.Checked Then
			insertCmd = insertCmd & 1 & "','"
		End If
		If RadioButton111.Checked Then
			insertCmd = insertCmd & 2 & "','"
		End If
		insertCmd = insertCmd & TextBox5.Text & "','"
		If CheckBox1.Checked Then
			insertCmd = insertCmd & 1 & "','"
		Else : insertCmd = insertCmd & 0 & "','"
		End If

		insertCmd = insertCmd & TextBox6.Text & "')"
		'MsgBox(insertCmd)
		TextBox3.Text = insertCmd
		Dim myCommand As OleDbCommand
		myCommand = New OleDbCommand(insertCmd, conn)
		Try
			myCommand.ExecuteNonQuery()
			MsgBox("تم إضافة المعاملة")
			TextBox1.Text = ""
			TextBox2.Text = ""
			TextBox3.Text = ""
			TextBox1.Focus()
		Catch ex As Exception
			MsgBox(ex.Message)
		End Try

		conn.Close()

لم اجد اي خطأ هنا

حيث تأتيني عند الضغط على زر الادخال هذا المسج

Syntax error in INSERT INTO Statment

وقمت بعرض محتوى insertCmd

وهذا هو محتواه حيث اني اراه صحيح !

 insert into TREATMENT(T_NUMBER, T_DATE, TITLE, PROC, COME_TO, A0, A1, A2, A3, A4, A5, A6, A7, A8, A9, A10, A11, A12, A13, A14, A15, A16, A17, A18, A19, A20, A21, A22, A23, A24, A25, A26, A27, A28, A29, A30, A31, A32, A33, A34, A35, A36, A37, END_DATE, IS_END, USER_NAME) values ('1122','19/01/29','Sub','Proc','ER','0','1','2','1','0','0','0','0','0','0','0','0','0','0','0','0','0','0','0','0','0','0','0','0','0','0','0','0','0','0','0','0','0','0','2','2','2','19/01/29','0','Muhammad')

اذاً ما الخطأ ؟؟!

ارجو مساعدتي

شاكر ومقدر تعاونكم

تم تعديل هذه المشاركة بواسطة T15 في 27 يناير 2008 في 19:20

#2

أخي الكريم

يجب ان تضع الحقول النصية بين '' مثل العنوان مثلا

insert into mytable (id,title) values(1,'New title')

والافضل لو استخدمت ال parameters في بناء هذا الاستعلام

myblog.jpeg

مدونتي

استضافة مواقع asp.net :.Net 3.5,4,4.5, MVC2 & 3,SQL server 2008 R2, Crystal reports

#3

شكرا على ردك اخي طارق

لكن انا وضعت الحقول النصية بين ""

لاحظ

insert into TREATMENT(T_NUMBER, T_DATE, TITLE, PROC, COME_TO, A0, A1, A2, A3, A4, A5, A6, A7, A8, A9, A10, A11, A12, A13, A14, A15, A16, A17, A18, A19, A20, A21, A22, A23, A24, A25, A26, A27, A28, A29, A30, A31, A32, A33, A34, A35, A36, A37, END_DATE, IS_END, USER_NAME) values ('1122','19/01/29','Sub','Proc','ER','0','1','2','1','0','0','0','0','0','0','0','0','0','0','0','0','0','0','0','0','0','0','0','0','0','0','0','0','0','0','0','0','0','0','2','2','2','19/01/29','0','Muhammad')

مع العلم ان جميع الحقول هي Text في قاعدة البيانات

ما عدا PROC هو من نوع Memo

فما الخطأ !

تم تعديل هذه المشاركة بواسطة T15 في 27 يناير 2008 في 21:20

#4

تم حل المشكلة

شكراً جزيلاً

هذا الموضوع مغلق.

مواضيع مشابهة