تحديث سجل من datagrid على شكل combobox

up

ماكنت حدخل لأنك كاتب للخبراء واحنا على قدنا

عموما اذا كان قصدك كيف تسوي موكبو بكس في داتا قريد فهنا امثلة كثير في المنتدى

وباختصار هيه ان تختار الحقل ليكون من نوع كمبوبكس وليس تكست

Dim dsFl As New DataSet
تعبي الداتا سيت طبيعي مثل اي كمبوبكس عادي

Dim Col2 As New DataGridViewComboBoxColumn
		Col2.DataPropertyName = "Floor_Id"
		Col2.DataSource = dsFl.Tables(0)
		Col2.DisplayMember = dsFl.Tables(0).Columns("floor_Name").ColumnName
		Col2.ValueMember = dsFl.Tables(0).Columns("floors_Rec_Id").ColumnName
		Col2.HeaderText = My.Resources.Res.Floor
		Col2.Name = "Floor_Id"
		Col2.Width = 50
		dgTabUnit.Columns.Add(Col2)

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

و بخصوص عمل combo ما كان سؤالي عنه

سؤالي يدور حول كيفية عمل update للحقل الموجود في combobox الظاهر لقيمته المدينة او الدائنة كما هو ظاهر ايضا

فمثلا حقل اسم الحساب الظاهر في الصورة يحتوي على حساب الصندوق الفرعي

و بجانبه مدين و دائن في الحقول و البيان ايضا

الان وضعنا رقم في حقل المدين على سبيل المثال و ليكن 100 كما هو ظاهر

المطلوب هو زيادة حقل المدين بمقدار 100 عما هو عليه اصلا

فمثلا كان هذا الحساب مدين ب 1000 بعد هذه العملية سوف يصبح مدين ب 1100 اي زيادة للحقل المدين

و الدائن كذلك

هل من منقذ

وارجو منك يا اخ رومنتك ما تفهمني غلط بس القصد من "

اقتباس

ارجو دخول الخبراء "

up

up :(

final up :( :( :( :( :( :( :( :( :( :( :( :( :( :( :( :( وين المبرمجين

السلام عليكم

مع احترامي الشديد لك اخي الغملاسي و لكن لا يحق لك اغلاق الموضوع لانه لم اصل لأجابة فقد قلت انت

اقتباس

أعتقد أن هذا الموضوع أخذ أكثر من حقة فالمنتدى ممتلئ من هذه الامثلة

ثاني هذا الموضع أخي قد كررته أكثر من مرتين

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

و اليكم الموضوع بشرح افضل

عندي في الفورم datagrid مربوطة بجدول في قاعدة sql هذا الجدول يحتوي على

اسم الحساب

مدين

دائن

البيان

الان ال datagrid تحوي رقم الحساب على شكل combobox

اما المدين و الدائن فهما على شكل datagrudtextbox

الان انا بختار اسم حساب من داتاجريد select from combobox column

ثم بضع قيم في الخليتين المدين و الدائن اليكم صورة للتوضيح

كما تلاحظون فقد وضعت غي الجانب المدين 50 للصندوق الفرعي و هو اسم حساب و وضعت كذلك لمصاريف الهاتف في الجانب الدائن

الان في قاعدة اللبيانات الحقلين المدين و الدائن يحتويان على ارصدة سابقة فمثلا

الجانب المدين للصندوق الفرعي كان 150 قبل ادخال هذا القيد اللي شايفينه بالصورة

الان بعد ادخال هذا القيد سوف يزيد الجانب المدين للصندوق الفرعي بمقدار 50 اي سوف يصبح 200

و كذلك حساب تأمينات الهاتف كان الجانب الدائن منه قبل عملية ادخال هذا السنداللي في الصورة 250 و بعد ادخال السند سوف يزيد ايضا ب 50 سووف يصبح 300

ما هو الكود اللازم لأجراء الزيادة في الحسابات المدينة و الدائنة

ارجو منكم المساعدة حيث سبق و طرحت هذا الموضوع ولم اجد منكم اي رد

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

هل ذلك ممكن ام انها عملية معقدة نوعا ما حيث اننا نتعامل مع عدة خلايا في datagrid واحدة

ملاحظة : العمل على vb.net2003

السلام عليكم

الذي فهمتة من قصدك أن تريد أن تحدث بعض الأعمدة وفقاً لقيمة القائمة المنسدلة أو غيرها .. ويكون ذلك وفقاً لمكان الصف في العامود بالتساوي .

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

عن طريق الخاصية e.ProposedValue وبذلك نعين أننا نريد أن نقوم بإسناد قيمة في مكان أخر أو رفض القيمة الحالية

أو نقوم بعملية الجمع بين خليتين , هذا المكان هو مكان اختبار القيمة والتحقق منها قبل قبولها في الـ DataSet اي هي عملية Validation للقيمة..

إليك الطريقة في بادئ الامر نعرف متغير رقمي النوع لمعرفة مكان الصف بهذا الشكل ..

Dim R As Integer = 0

ثم نعرف متغيرين تسند فيهما قيمتي عامودي الراتب و النسبة المئوية بهذا الشكل

Dim V1 As Integer = 0
Dim V2 As Integer = 0

ثم نجعل المتغير R يأخذ قيمة الصف من الحدث DataGrid1_CurrentCellChanged بهذا الشكل

Private Sub DataGrid1_CurrentCellChanged( _
	ByVal sender As Object, ByVal e As System.EventArgs) _
	Handles DataGrid1.CurrentCellChanged
		R = DataGrid1.CurrentCell.RowNumber
	End Sub

الان في حدث تحميل النموذج Form Loading سنقوم بتعريف Delegate يرتبط بالحدث ColumnChanging للـ Datagrid بهذا الشكل

 Private Sub Form1_Load(ByVal sender As System.Object, _
	ByVal e As System.EventArgs) Handles MyBase.Load
		AddHandler Ds1.Tables("tb").ColumnChanging, _
		AddressOf ValidateDataGrid
	End Sub

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

 Private Sub ValidateDataGrid(ByVal s As Object, _
	   ByVal e As System.Data.DataColumnChangeEventArgs)
		If (e.Column.ColumnName.Equals("Salary")) Then
			If Not e.ProposedValue Is DBNull.Value Then
				V1 = CType(e.ProposedValue, Integer)
				If DataGrid1(R, 1) Is DBNull.Value Then
					DataGrid1(R, 2) = V1
				Else
					DataGrid1(R, 2) = V1 + V2
				End If
			End If
		End If

		If (e.Column.ColumnName.Equals("Percentage")) Then
			If Not e.ProposedValue Is DBNull.Value Then
				V2 = CType(e.ProposedValue, Integer)
				DataGrid1(R, 2) = V1 + V2
			End If
		End If
	End Sub

وبهذا كلما اسند قيمة في الراتب Salary سنسند قيمة في العمود الثالث والذي يمثلة الرقم 2 حيث ان الاعمدة تبدأ من الرقم صفر.

وعندما نسند قيمة في العامود Percentage ستم جمع قيمة الخلية السابقة بالخلية الحالية وضم الناتج في المجموع أ والعمود رقم 2

وهو العامود الثالث من حيث الحسبة.

بالتوفيق أخي الكريم ,,, السلام عليكم.

مشكور اخي على المحاولة و لكني لا اريد جمع قيمتين من خليتين معينتين ما اريده اوضحته باكثر من شكل و هو زيادة القيمة اللي بتكون في خلية الى حقل موجود في قاعدة البيانات مشكور على كل حال و اعتقد اني لن اصل لحل

Keep going B)

hope to find soluation for this situation :( :( :(

up

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

احسن الله إليك

هل من فضلك أن تكتب ماذا تريد بالضبط دون ذكر سيرة برنامجك و تفاصيلة

اي على سبيل المثال أريد عند اختيار قيمة من القائمة المنسدلة أن يجلب القيمة اياً كانت من قاعدة البيانات

أو يقوم بجمع العامود التالي .. إلى أخره . يالله الكل في انتظارك. السلام عليكم

و عليكم السلام اخي الغملاسي و شاكر اهتمامك بالموضوع

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

دعني اذكر مثال صغير و بسيط للتوضيح

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

المنتجات و يحتوي على

اسم المنتج

كمية المنتج

الان في الداتاجريد انا بقوم بتعبئة الخلايا التي تخص كمية المنتج على اساس انها تزيد فادخل رقم مثلا 10

الان في قاعدة البيانات كانت كمية المنتج 5 و بعد ادخال القيمة 10 في الخلية التي تخص كمية المنتج اريد ان تصبح 15 في قاعدة البيانات

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

طبعا لا تنسى انه عندي في الداتاجريد اكثر من اسم منتج و اكثر من كمية في كل عمود وسطر :)

هل ذلك واضح اخي الغملاسي ... ارجو ذلك :)

انا بانتظارك اخي الغملاسي

السلام عليكم

أولاً عذراً أخي سواءً على التأخير أو على أنني لا أملك بيئة 2003 فالحل المطروح الان على 2005

أنا قمت بإنشاء قاعدة بيانات باسم ProductDB.mdb على برنامج Access Database وبها جدول واحد باسم Products

تتضمن الاعمدة التالية ID & ProductName & ProductQuntity & OrderItem

و الوظائف التي في المشروع تتحقق من العامودين ProductQuntity و OrderItem

إليك النصوص البرمجية وهي معلق عليها لتسهيل فهمها و طريقة عملها.

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

'object variable that hold the current Cell Value
	Private objCell As Object = Nothing

	'Boolean Variable that track the Editing Quentity or OrderItem Cells.
	Private IsCorrectEdittingCell As Boolean = False

ثم ربطت أحداث الـ DataGridView وهم CellBeginEdit و CellEndEdit و CellFormatting بـ Delegates بهذا الشكل

Private Sub Form1_Load(ByVal sender As System.Object, _
	ByVal e As System.EventArgs) Handles MyBase.Load

		'Establish the Connection Object.
		My.Settings.cnn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _
		Application.StartupPath & "\ProductDB.mdb"

		Me.ProductsTableAdapter.Fill(Me.DsMain.Products)

		'Delegates Handles DataGridView Cell Bengin & End Events
		AddHandler ProductsDataGridView.CellBeginEdit, AddressOf ExamineCellBeginEdit
		AddHandler ProductsDataGridView.CellEndEdit, AddressOf ExamineCellEndEdit
		'Handle Formatting Cell for conflict values..
		AddHandler ProductsDataGridView.CellFormatting, AddressOf CellFormatting

	End Sub

و الوظائف المرتبطة هم

Private Sub ExamineCellBeginEdit( _
	ByVal sender As Object, _
	ByVal e As DataGridViewCellCancelEventArgs)


		With ProductsDataGridView

			'Examine the Product Quntity Column. And also Check if it's not the New Cell
			If .Columns(e.ColumnIndex).Name = "ProductQuntity" OrElse _
			   .Columns(e.ColumnIndex).Name = "OrderItem" Then


				If .CurrentCell.Value.ToString = "" Then
					'Disable the Enabling Bool var.
					IsCorrectEdittingCell = False
					Return
				End If

				'Switch on Bool Var to Enabling Calculation Current Cell.
				IsCorrectEdittingCell = True

				'Hold the Current Cell Value
				objCell = .CurrentCell.Value.ToString

			Else
				'Otherwise is not the correct Cell.
				'Disable the Enabling Bool var.
				IsCorrectEdittingCell = False

			End If
		End With


	End Sub

	Private Sub ExamineCellEndEdit( _
	ByVal sender As Object, _
	ByVal e As DataGridViewCellEventArgs)


		'If Bool var is True.. then
		If IsCorrectEdittingCell Then

			With ProductsDataGridView

				'Plus the hold ObjCell Value with the Current value.
				objCell += CInt(.CurrentCell.Value.ToString)

				'Reverse the Value back to the Cell Object.
				.CurrentCell.Value = objCell.ToString

				'Disable the Bool Var for Next mission.
				IsCorrectEdittingCell = False

				'Save the Latest Value back to DataBase.
				BtnUpdate.PerformClick()

			End With

		End If

	End Sub



	Private Sub CellFormatting(ByVal sender As Object, _
	ByVal e As DataGridViewCellFormattingEventArgs)


		With ProductsDataGridView

			'Examine the Order Item Column. 
			If .Columns(e.ColumnIndex).Name = "OrderItem" Then

				If .CurrentCell.Value.ToString = "" Then
					Return
				End If

				'Get the product quntity row value
				Dim ProductQuntityVal As Object = _
				ProductsDataGridView(2, e.RowIndex).Value

				' if not empty then
				If Not IsNothing(ProductQuntityVal) Then

					'Check if Order is bigger than available product.
					If e.Value > Integer.Parse(ProductQuntityVal) Then

						'Notify user by coloring the backcolor of the cell to red
						e.CellStyle.BackColor = Color.Red

					Else

						'Otherwise return the backcolor back to white.
						e.CellStyle.BackColor = Color.White

					End If
				End If
			End If
		End With
	End Sub

حمل المثال المرفق لمشاهدة النتيجة ,

بما أن العامودين المراد الاختبار عليهما من نوع int فلن نحتاج لإختبار القيمة المدخلة في الخلية Cell هل هيه رقمية ام لا كون الـ DataGrid

مرتبطة اصلاً بالـ DataSet وهذا يعني ان الرسالة ستظهر منها كونها مرتبطة بما يعرف بـ Meta data هيكلة قاعدة البيانات .

كذلك نستطيع نقص القيمة بوضع علامة ناقص - قبل الرقم المراد ادخاله

ايضاً عندما تكون قيمة الطلب OrderItem أكبر من قيمة عدد المنتج ProductQuntity

سيتم تلوين خلية الطلب باللون الاحمر لإشعار المستخدم ان الطلب يفوق العدد المتوفر ...

غير ذلك ستعود خلفية الخلية إلى اللون الابيض , طبعاً عند تصحيح الخطأ...

نصية أخي : أترك عنك 2003 و توجهة بأقصى سرعة إلى 2005 هنالك مئات التسهيلات و الاصلاحات

التي شيبت شعر مبرميجة النسخة السابقة 2003 عفواً هل انت منهم ؟؟؟ إذا فاستعد شبابك مع 2005 هههه.

صدقني ان الصعوبة في بادئ الامر ثم لا ترى اي حرج إن شاء الله و الاخوة متوفرون هنا بكثرة و هم لا يحصون ولا يعدون وهم دؤوبون في المساعدة

ويتفانون في ذلك.

بالتوفيق إن شاء الله.

DataGridViewCal.rar

السلام عليكم

مشكور اخي الغملاسي على المجهود الطيب و لكن الم تلاحظ في المثال أن

1-عند عمل run فأن الكمية تكون معبأة من قاعدة البيانات و فيها ارقام و هذا خطأ فانا اريدها فارغة

2- عند زيادة الخلية quantity برقم يزيد على ما هو عليه و لكن هل تعدل القيمة في قاعدة البيانات ؟ بالطبع لا " طيب شو استفدنا !!!

ليست المشكلة يا اخي الغملاسي اي نسخة استخدم

يعني لو كانت القيمة اللي بدخلها في quantity تضاف للقيمة الموجودة في قاعدة البيانات لكان وصلت لحل المشكلة

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

والسلام عليكم

السلام عليكم

اقتباس

1-عند عمل run فأن الكمية تكون معبأة من قاعدة البيانات و فيها ارقام و هذا خطأ فانا اريدها فارغة

أحسن الله إليك هذا المثال (عينه فقط لتشاهد النتائج لا اكثر )

هنالك فقط تعديل وفقاً لهذا الطلب هو ان نختبر صفوف الـ DataGrid فإذا كانت اصغر من او تساوي 1 خرجنا من الحدث CellFormatting

بهذا الشكل

 If .Rows.Count <= 1 Then Return

اقتباس

عند زيادة الخلية quantity برقم يزيد على ما هو عليه و لكن هل تعدل القيمة في قاعدة البيانات ؟ بالطبع لا " طيب شو استفدنا !!!

نعم تحفظ في قاعدة البيانات وعدم رؤئة ذلك بسبب ان كلما قمت بعملية Debug & run يقوم الفجول بأخذ نسخة جديدة من قاعدة البيانات

من الملف bin ووضعها في Debug folder ولحل هذه المشكلة قم بالضغط على ايقونة قاعدة البيانات في Solution Explorer

ثم غير الخاصية Copy to output Directory للقيمة Copy if newer

ملاحظة : تم تعديل طفيف على الكود ...

حمل الملف التالي بعد التعديل بالتوفيق إن شاء الله.

DataGridViewCal.rar

مشكور اخي الغملاسي ادري اني تعبتك معي بس عندي كم ملاحظة

1- القيمة لا تزداد في قاعدة البيانات في مثالك بعد التعديل انما تزداد في موقع الخلية فقط

2- هل بالأمكان جعل Id على شكل comboboxgrid بالتالي يكون تعديل الخلية quantity على اساس id و هو على افتراض pk

** ارجو منك ان تتأكد من ان القيمة تزداد في قاعدة البيانات فقد غير الخاصية الى Copy if newer و لم تزداد القيمة في قاعدة البيانات

ملاحظة اخرى

انا لا املك نسخة vb2005 professional اللي عندي نسخة الفقراء :) express edition هل هناك موقع او سيرفر استطيع من خلاله تنزيل نسخة professional فاذا كان الحل باستخدامها فلم لا " طبعا بحثت في هذا المنتدى عن نسخة pro و لكني لم اجد و الذي اجده يكون قد سكر السيرفر يعني شكلها يا اخ غملاسي راحت علي :) :) ارجو الافادة

مشكور مرة اخرى على اهتمامك بالموضوع :)

السلام عليكم

لتأكد من ان التحيث يطرئ على قاعدة البيانات قم بتشغيل الملف التنفيذي من المجلد Debug مباشرتاً ...

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

http://torrentspy.com/

السلام عليكم

شغلته من debug ولم يطرا اي تغيير يالله شو حظي انا :(

طيب في بادئ الامر عندما تكون قاعدة البيانات فارغة و قمت بإضافة صفوف قم بالتحديث عن طريق الزر

بعد ذلك سيتم التحديث تلقائي كلما تمت إضافة قيمة في اخر حقل وهو OrderItem

بس عن جد حظك حلو!!!!!!!!!!!!!!!!!!

بالنسبة لحفظ البيانات عندما تكون القاعدة فارغة

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

 Private Sub Form1_FormClosing(ByVal sender As Object, _
	ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
		Me.BtnUpdate.PerformClick()
	End Sub

أرجوك لا تقل ان البيانات لم تحفظ , كي لا تلزمني بتسجيل مقطع فيديو لسيناريو الادخال و التحديث . ههههه.

موفق إن شاء الله.

لا اخي الغملاسي لست بحاجة لمقطع فيديو انا بحاجة لطريقة غير الطريقة اللي انت اعطيتني اياها لانها غلبتني من غير اي فائدة

كما اني لم استطع الحصول على vb2005 في الموقع torrent spy لذلك افضل البحث على طريقة تمشي مع2003 و ليس فيها عيوب و شفل من depub و غير الخاصية و غيرو وغيرو الخ " وجعة راس" :)

كل ماريده كان بسيطا و لكنه اصبح مستحيلا على ما اعتقد لانه الي اكثر من اسبوع و انا ببحث عن طريقة 100% و لكني لم اجد

شكرا لجهودكم جميعا

ربما عندما اصل للحل سوف اطلب منكم ان تثبيت الموضوع لانه شيبني ههههه

update debit set debit=debit+value

where account_name like 'account'

انت اعمل تكرار على كل الصفوف وتغير اسم الحساب حسب الخليه

ونفس الموضوع بالنسبه للدائن

Dim i As Single

For i = 0 To ds.Tables("jour").Rows.Count - 1

acc_name = ds.Tables("jour").Rows(i)("acc_name").ToString()

debit = ds.Tables("jour").Rows(i)("debit").ToString()

credit = ds.Tables("jour").Rows(i)("credit").ToString()

Try

Dim sql12 As String = "update account set debit=(select debit from account where name='" + acc_name + "')+" + debit + "," + "credit=(select credit from account where name='" + acc_name + "')+" + credit + " where name='" + acc_name + "'"

ClsTjour.OpenConnection()

Dim com As New SqlCommand(sql12, ClsTjour.Connection)

com.ExecuteNonQuery()

ClsTjour.CloseConnection()

Catch ex As Exception

MsgBox(ex.Message )

End Try