[تنبيه - عنوان غير مناسب : ]كود الانتقال من السطر الاول الى الثاني في datagrid

هنالك أكثر من حل لذلك يمكنك حفظ أخر مفتاح اساسي Primery Key في متغير تم ادخاله في قاعدة البيانات و تختبر قيم الارقام الحالية في

الـ DataGrid فما هو أكبر منه يتم ادراجه غير ذلك لا . أو كذلك يمكنك جلب اخر مفتاح اساسي عبر الامر Identity@@

هذا حل تصوري بدون اي تجربة لذلك.

لانه الاصل في تحديث البيانات يجب أن يكون عبر دفعه واحدة سواءً من العنصر Transaction أو DataAdapter أو فردي عبر

الـ DataCommand و بالله التوفيق.

حل آخر

dim n as integer=dg.rows.count -1
for i as integer = 0 to n
dg.rows(i).cells("اسم الحقل").value= قمية ما
.
.
.
next

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

  Dim i As Integer
		For i = 1 To count
			If n < ROOM_ID Then

				'to insert hotel_id +1   
				Dim cmd11 As New SqlCommand("SELECT MAX (Hotel_id)  FROM  RES_HOTEL", conn)
				Dim r5 As SqlDataReader
				r5 = cmd11.ExecuteReader
				r5.Read()
				HOTEL_ID = r5(0) + 1
				r5.Close()
				Dim cmd6 As New SqlCommand
				cmd6.Connection = conn
				cmd6.CommandText = "hot_res"
				cmd6.CommandType = CommandType.StoredProcedure
				cmd6.Parameters.Add("@res_hotel_id", Me.dg1.SelectedItem.Cells(1).Text)
				cmd6.Parameters.Add("@res_id", RES_ID)
				cmd6.Parameters.Add("@hot_id", HOTEL_ID)
				cmd6.Parameters.Add("@res_hotel_rt", ROOM_ID)
				cmd6.Parameters.Add("@res_hotel_date", DAY)
				cmd6.ExecuteNonQuery()

			End If


		Next i

شكرا اخي haroon ولكن انا استخدم vb.net 2003 واجد اخطاء في الكود هل يمكن تغيير الكود هذا الى vb.net 2003?

طبعاً هناك اختلاف بين 2003 و 2005 وخاصة بالنسبة إلى الداتا جريد لكن للأسف أنا مش منزل 2003 حالياً ولكن حسب ذاكرتي - إذا لم تخني الذاكرة - لا يوجد في 2003 وظائف لتحديد سجلات الجريد إلا عن طريق قاعدة البيانات

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

أرجو أن أكون قد ساعدتك ولو قليلاً وشكراً

شكرا اخي haroon

اولا انا لست اخ انا اخت :)

ثانيا نعم انت ساعدتني كثير وليس قليل وشكره جدا لك

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

وانا شكره لك جداً

اني ما احتاجه اخواني هو كود الذي يقوم بادخال البيانات من datagrid الى database حيث انه يقوم بعد الانتهاء من ادخال row الاول ينتقل لادخال ال row الذي يليه فانا استخدمت هذا الكود ولكنه يقوم بادخال ال row الاول في كل مره وهو :

  Dim i As Integer

		For i = 0 To dg2.Items.Count - 1'هذا الكود الذي يقوم بالانتقال الى السطر التالي في datagrid


			Dim cmd11 As New SqlCommand("SELECT MAX (Hotel_id)  FROM  RES_HOTEL", conn)
			Dim r5 As SqlDataReader
			r5 = cmd11.ExecuteReader
			r5.Read()
			HOTEL_ID = r5(0) + 1
			r5.Close()

			Dim cmd6 As New SqlCommand
			cmd6.Connection = conn
			cmd6.CommandText = "hot_res"
			cmd6.CommandType = CommandType.StoredProcedure
			cmd6.Parameters.Add("@res_hotel_id", Me.dg1.SelectedItem.Cells(1).Text)
			cmd6.Parameters.Add("@res_id", RES_ID)
			cmd6.Parameters.Add("@hot_id", HOTEL_ID)
			cmd6.Parameters.Add("@res_hotel_rt", ROOM_ID)
			cmd6.Parameters.Add("@res_hotel_date", DAY)
			cmd6.ExecuteNonQuery()

		Next i
		Response.Write("<script>alert('Done');</script>")

اخواني احتاج الى كود يقوم بادخال البيانات من datagrid الى database حيث انه يقوم بعد الانتهاء من ادخال row الاول ينتقل لادخال ال row الذي يليه فانا استخدمت هذا الكود ولكنه يقوم بادخال ال row الاول في كل مره وهو :

For i = 0 To dg2.Items.Count - 1

dg2.Items(i).Cells(0).Text() = dg2.Items.Count - 1 '.rows(i).cells("اسم الحقل").value= قمية ما

Dim cmd11 As New SqlCommand("SELECT MAX (Hotel_id) FROM RES_HOTEL", conn)

Dim r5 As SqlDataReader

r5 = cmd11.ExecuteReader

r5.Read()

HOTEL_ID = r5(0) + 1

r5.Close()



Dim cmd6 As New SqlCommand

cmd6.Connection = conn

cmd6.CommandText = "hot_res"

cmd6.CommandType = CommandType.StoredProcedure

cmd6.Parameters.Add("@res_hotel_id", Me.dg1.SelectedItem.Cells(1).Text)

cmd6.Parameters.Add("@res_id", RES_ID)

cmd6.Parameters.Add("@hot_id", HOTEL_ID)

cmd6.Parameters.Add("@res_hotel_rt", ROOM_ID)

cmd6.Parameters.Add("@res_hotel_date", DAY)

cmd6.ExecuteNonQuery()

' End If

'Next

'End If

Next

السلام عليكم

لا حاجةً لإدخال البيانات من DataGrid الى DataSet بشرط أن تكون مرتبطة بها, ما يدخل من بيانات في الـ DataGrid

هو متضمن في الجدول تماماً. لذلك هذه الفكرة عملية تكرار للبيانات لا أكثر.

السبب : أن الـ DataGrid لابد أن ترتبط بجدولٍ ما (في معظم المشاريع) كأفضل طريقة أما عبر طرق أخرى (فليست بالحسنة) ومشاكلها متوقعه.

ارتباط الـ DataGrid بالـ dataSet هو كالتالي:

ProductsDataGridView.DataSource = Me.ProductsBindingSource

بالنسبة للـ 2005

و

 dataGrid1.DataSource = _dataSet.Tables("customers")

على 2003 أو 2005

سواءً في وقت التشغيل كما في الاعلى أو عبر واجهة التصميم Design Time

و الله الموفق.

العنوان غير مناسب

الرجاء اختيار عنوان مناسب أكثر في مواضيعك القادمة، وهذا بمثابة إشعار للأهمية.

وفي حال التكرار سيتعرض موضوعك للإغلاق والحذف!!!

قواعد المشاركة

/index.php?showtopic=29343

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

أولاً : كما قال الأستاذ الكريم ( الشهاب الحارق ) , هذا الأسلوب في إدخال بيانات من DataGridView غير مرتبطة فيه الكثير من المشاكل و التي منها : عدم التأكد من نوعية البيانات المدخلة , أو الاحتمال الكبير في دخول بيانات متكررة ( هذه هامة جداً ) و غيرها من المشاكل غير المتوقعة . فهذا الأسلوب لا ينصح به .

( نعتذر إذا كان هناك أي درجة من التحبيط , ولكن النصيحة واجبة )

ثانياً : طيب , لو تماشينا مع هذه الطريقة , ما هي المشكلة الحالية في الكود السابق لكي يعمل على السطر الأول فقط ...؟ أقول :

صحيح أننا قمنا بوضع العداد ( i ) ليسير بعدد سطور الـ DataGridView , لكننا في الحقيقة لم نستفد منه للانتقال من سطر إلى أخر في كل عدة من عداته ....

كيف ذلك ؟

يجب في كل عدة أن نستفيد من قيمة العداد ( i ) بحيث نجعل قيم الـ Parameters التي ستدخل في قاعدة البيانات تأخذ قيمتها من الـ DataGridView من السطر الذي رقمه مساوي لرقم العداد ... يعني فرضاً

@hotel_id لو أنه يأخذ قيمته من الخلية الثانية من الـ DataGridView , إذاً يجب أن يسحب هذه القيمة من العبارة التالية :

Me.dg1.Rows(i).Cells(1).Value

بحيث تتغير هذه القيمة مع كل عدة للعداد ( i ) و ذلك بحسب الجزء Rows(i) ( وهو الجزء الذي ينتقل على كل السطور )

وهكذا لكل الـ Parameters ولكن مع تغيير الجزء Cells(1) , بحيث نضع رقم الخلية المطلوبة .

هذا ما أتوقعه مبدأياً , والله أعلم . وفقكم الله .......

شكرا اخي الشهاب الحارق بالفعل انا لم استخدم DATASET ولكن هيه نفس المشكله في الانتقال من سطر الى الاخر ياخذ السطر الاول ويقوم بتكراره بعدد الاسطر :wacko: .

وان شاء الله في المرات القادمه سوف انتقي العنوين الصحيحه للموضوع واسفه على الغلط في العنوان .

شكرا لك اخي ابو همام ولكن انا استخدم VB.NET 2003 وليس 2005 وانا شاكره جدا لشرحك الوافي

-waf

اقتباس

شكرا اخي haroon

اولا انا لست اخ انا اخت

ثانيا نعم انت ساعدتني كثير وليس قليل وشكره جدا لك

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

وانا شكره لك جداً

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

بصراحة يا جماعة أنا أقع في هذه المشكلة كثيراً وذلك بسبب زياراتي المتقطعة للمنتدى لذلك أرجو من جميع الأخوة والأخوات أن يعذروني إن تأخرت بالرد فهذا ليس إهمال أو عدم حب للمساعدة معاذ الله ولكن أتأخر لأنني ببساطة لم أقرأ المشاركة

والعذر منك مرة أخرى أخت نور

هذا الكود سيعمل معك

For I As Integer = 0 To Dgrd.Rows.Count - 2

'row هذا السطر سيحل المشكلة بتعريف متغير بأسم

'يحمل بيانات كل صف فى الداتا جريد

Dim row As DataGridViewRow = Dgrd.Rows(I)

'وهذه المتغيرات تحمل قيم البيانات الموجودة فى كل صف من الداتا جريد

'ويتم أدخال المتغيرات فى الجدول اى ان كانت قاعدة البيانات

Dim IT_NAME As DataGridViewTextBoxCell = row.Cells(0)

Dim IT_UNIT As DataGridViewTextBoxCell = row.Cells(1)

Dim IT_QU As DataGridViewTextBoxCell = row.Cells(2)

Dim IT_PRICE_IN As DataGridViewTextBoxCell = row.Cells(3)

Dim IT_DISCOUNT As DataGridViewTextBoxCell = row.Cells(5)

Dim IT_COD As DataGridViewTextBoxCell = row.Cells(7)

'/**

Next