عند تحديث بيانات داتا تظهر رساله لوجود خطا

يظهر انك نسيت ان تضع

ocmd =new command

او

لم تختار فرع من الشجرة (selectednode = null)

أخى فين ال Data Reader الى هيستلم ال Value من ال Cmd

والزم تحط الاتصال اول شئ قبل عمل اى شئ

ممكن تكتب رسالة الخطأ التي تظهر لك حتى نتمكن من الفهم أكثر!

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

إن لم ينفع التالي:

تأكد من تعريف oCmd ومن انك استخدمت كلمة New عند التصريح عنه

اخى فى الله محمد سامر

انا وضعت حل لاخوى صاحب المشكلة ومالقيتة

احنا هنا عاوزين نعرف حلولنا صح ولا غلط يعنى بما انك استاذنا يبقى تناقشنا وتقول ده صح وده غلط عشان نستفاد كلنا لان الدروس الثابتى ما بتعلم أحد...

تحياتى لك ،،،

!!! Boris !!!

اخي نعتذر لما حصل لكنني انزلت الموضوع مرتين بالخطا

وحذف احدهما ولذا ناسف لما حدث ولا يعني ذاك ان هناك خطاء فيما وضعته

دمت بخير

.............................................................................................

تعريف قد وضعته في بدايه البرنامج ولا اجد في ان تعريف مشكله

#Region "Declarations"
	Dim oCmd As New System.Data.SqlClient.SqlCommand 'connection with database
	Dim ocon As New SqlClient.SqlConnection()
	Dim t, dt1 As DataTable
	Dim r, dr, dr1 As DataRow
	Dim c, i, m As Integer
#End Region

ثم وضعت تغييرات داخل زر

	Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
		ocon.ConnectionString = "Data Source=HAJAR;Initial Catalog=company;Integrated Security=True"

		oCmd.CommandText = "Delete FROM Goal_post where G_no ='" & (G) & "' "
		oCmd.Connection = ocon
		ocon.Open()
		Try
			oCmd.ExecuteNonQuery()
		Catch ex As Exception
			MessageBox.Show(ex.ToString())
		End Try
		ocon.Close()


		oCmd.CommandText = "UPDATE Goal SET Description=N'" & Trim(Form4.TreeView1.SelectedNode.Text) & "'  WHERE   Link_to='" & (G) & "'"
		oCmd.Connection = ocon
		ocon.Open()
		Try
			oCmd.ExecuteNonQuery()
		Catch ex As Exception
			MessageBox.Show(ex.ToString())
		End Try
		ocon.Close()

		oCmd.CommandText = "UPDATE Goal SET Make_G='" & (1) & "' ,Des_make=N'" & Trim(Form4.TreeView1.SelectedNode.Text) & "'  WHERE   G_no='" & (G) & "'"
		oCmd.Connection = ocon
		ocon.Open()
		Try
			oCmd.ExecuteNonQuery()
		Catch ex As Exception
			MessageBox.Show(ex.ToString())
		End Try
		ocon.Close()
		MessageBox.Show("Delete IS SUCCESSFULLY ")
		Me.Hide()
	End Sub

علما بان حذف الاول كان بلا مشكله يوقف عند الاب ديت الاولى

وهنا صوره لداتا بيس

تأكد عند تنفيذ الكود أن Form4.TreeView1.SelectedNode.Text معرف ويعيد قيمة صحيحة

جرب التأكد من ذلك

		If Form4.TreeView1.SelectedNode.Text Is Nothing Then
			MsgBox("قيمة غير معرفة")
		End If

كما أجاب سابقا الأخ TareqVB في المشاركة رقم 2

!!! Boris !! كتب:

اخى فى الله محمد سامر

انا وضعت حل لاخوى صاحب المشكلة ومالقيتة

احنا هنا عاوزين نعرف حلولنا صح ولا غلط يعنى بما انك استاذنا يبقى تناقشنا وتقول ده صح وده غلط عشان نستفاد كلنا لان الدروس الثابتى ما بتعلم أحد...

تحياتى لك ،،،

تم إعادة الردود من الموضوع المحذوف ودمجها مع الموضوع الحالي

يجب أن تراها في ترتيبها الزمني الصحيح

طلع لي نفس الايرور ....

لكن ها المره وقف على كود

  If Form4.TreeView1.SelectedNode.Text Is Nothing Then
			MsgBox("قيمة غير معرفة")
		End If

وش المشكله ....؟؟؟ وكيف اصلحها ...؟؟

جربت احط الجمله في فورم اخر

وبطريقه اخرى ...

  M_GOAL.Text = Form4.TreeView1.SelectedNode.Text

يطلع لي نفسه ايضا ...

هل القيمه نفسها او نود لم يتم اخذه ..؟؟

كيف يمكنني اخذ قيمة نود معين من تري فيو ...؟

معناها أنه لايوجد عقدة Node محددة تأكد من أنه هناك عقدة موجودة وقد تم تحديدها قبل تنفيذ الكود

موجود نود .... ظاهر لي

كيف اتاكد من وجودها بالكود

وداع كتب:

موجود نود .... ظاهر لي

كيف اتاكد من وجودها بالكود

انظر المثال المرفق

WindowsApplication9.zip

بسم الله الرحمن الرحيم

أعتقد أن الخطأ فى جملة SQL عند هذا الجزء

"UPDATE Goal SET Description=N' "

لقد وضعت علامة التنصيص بعد حرف N

فى حين أنها يجب ان توضع قبله

oCmd.CommandText = "UPDATE Goal SET Description='N" & Trim(Form4.TreeView1.SelectedNode.Text) & "' WHERE Link_to='" & (G) & "'"

اخي مشكله كلها تتركز في عدم قراءة نود عند ارسالها

وداع كتب:

جزيت الجنه حملته لكن لا يقول نوت افيلبل

انا استخدم 2005

ما استطعت الحصول عليه هو الكود

  Try
			 If Me.TreeView1.SelectedNode Is Nothing Then
				 MsgBox("No Selected Node")
			 Else
				 Me.TextBox1.Text = Me.TreeView1.SelectedNode.Text
			 End If
		 Catch ex As Exception
			 MsgBox(ex.Message)
		 End Try

جربته يطلع لي بالتكست بوكس اللي اخترته

يعني انه يرجع شيء وليس Null

........................................

وضعت الكود بعد تعديله في فورم اخر

واختبرت القيمه وجدتها فارغه .... ؟؟؟؟

كيف يمكنني ان ارسلها ؟؟؟

دمت بخير

</div>

هذا الكود يتأكد من أن هناك عقدة تم اختيارها أم لا فإن لم تكن هناك عقدة مختارة - وهذه هي مشكلتك الأساسية - يظهر رسالة بذلك وإن كانت توجد عقدة مختارة فإنه يسند القيمة لصندوق نصوص وفي حالتك تقوم بتنفيذ جملة الـ Update الخاصة بك بدون مشاكل

حبيت اشكر كل من حاول يساعدني ....

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

وحل الذي كان

تعريف متغيير في فورم اللي بنادي فيه النود في فورم رقم 2

	Public TreeViewControl As TreeView

ثم وضع الكود في فورم رقم 1 في زر اللي يستدعي فورم رقم 2

 With New Form2()
			.TreeViewControl = Me.TreeView1
			.ShowDialog()
		End With

وحلت المشكله هذا هو الحل