ما الخطأ في كود ال insert

اولاَ لماذا فتح إتصالين لا فائدة من ذلك اتصال واحد يكفي خصوصاَ اذا كان الجدولين في نفس قاعدة البيانات

نستخدم إتصالين في حالة وجود اكثر من قاعدة بيانات مختلفة .

لقد قمت بالتعديل على الكود ولكن لم اتاكد من صحته بعد جرب هذا الكود

ثانياَ يجب غلق الاتصال conn.close() في حاله الانتهاء من تنفيذ الاوامر .

Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
	 Dim str As String = "Data Source=data source name;Initial Catalog=databaseName;Integrated Security=True"

		Dim conn As New SqlConnection(str)


		If conn.State = Data.ConnectionState.Closed Then
			conn.Open()

		End If


		Dim ocmd As New SqlCommand ( s , conn)
		Dim oc As New SqlCommand ( s2 , conn )



		Dim s As String = "insert into INSRTUCTOR(InstructorID, Password, Fname, Mname, Lname, sex, Email, HPhone, MPhone, SpecialtyID) values('" & IDTextBox.Text & "','" & PasswordTextBox.Text & "','" & fnameTextBox.Text & "','" & MiddelNameTextBox.Text & "','" & LastNameTextBox.Text & "','" & SexDropDownList.SelectedItem.Text & "','" & EmailTextBox.Text & "','" & PhoneTextBox.Text & "','" & MobilePhoneTextBox.Text & "','" & SPDropDownList.SelectedItem.Text & "')"


		Dim s2 As String = "insert into TEACH(CourseID, InstructorID) values('" & CoursesCheckBoxList.SelectedItem.Text & "','" & IDTextBox.Text& "'"


		If ocmd.ExecuteNonQuery() Then
			LabelResult.Text = "successful inserted in Instructor table"
		End If

		If oc.ExecuteNonQuery() Then
			Label5.Text = "Successful inserted in TEACH Table"
		End If

 conn.close()

	End Sub

جزيت خيرا على الرد

صلحت زي ما قلت لي .. اتصال واحد وأغلقت الاتصال ...

لكن نفس الخطأ لا زال موجود ....

أتمنى من من يعرف الخطأ ... أن يجيبني مشكورا

الله يجزاكم خيير ... حيرتني جدا هذي المشكله ..

فيه أحد يعرف وش المشكله ...؟

سلام عليكم اسف على التاخير لبعض من الاشغال

على ما اعتقد ان الخطاْء في جملة sql الخاصه ب s2 لو نظرت الى الجملة جيدا لوجدت انه ينقصها القوس الإقفال " ( " اخر الجملة

عده وجرب الكود واذا لم يعمل خبرنا انشاء الله نعطيك الحل الاكيد .