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

السلام عليكم

لا ينبغي عليك استخدام العنصر Con لفتح و اغلاق الاتصال , الـ DataAdapter يقوم بذلك بنفسه فلا حاجة لهذا الكود..

ثانياً على اي نسخة تطور 2003 أو 2005 ؟

ثالثاً : استرسل في الشرح من فضلك , الان اي الاكواد التي عرض لا يعطي النتائج المطلوبة؟

إذا كان الجدول Sell هو عبارة عن جدول ابن لأب ما , فلن يغنيك OleDbCommandBuilder

لانه لا يستطيع جلب المفتاح الاساسي لجدول الاب للإبن وهو sell .

عملية ادراج الجدول في النموذج تغنيك عن هذه المتاهات كلها, فلا تقلل من شأنها.

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

أخي الكريم أشكرك على سرعة ردك ، ولتوضيح الأمر فأنا استخدم vb.net 2005 وفي هذا النموذج الموضح الكود بعالية قمت بفتح الجدول المسمى sell والخاص بعملية الشراء وكذلك الجدول المسمى users والخاص ببيانات المستخدمين وربطت الجدولين عن طريق الحقل userno تبع جدول users وكذلك الحقل user_no الموجود في جدول sell وعند فتح الفورم قمت باستدعاء جميع بيانات جدول sell الخاص بهذا المستخدم عن طريق sql وفعلا شغال تمام ، أما في الكود الموضح يقوم البرنامج بعملية إضافة البيانات في جدول sell الشراء بنجاح والمشكلة تكمن في أني أريد أن يقوم البرنامج بأخذ قيمة من تكست بوكس قد أعددتها بحيث عند ادخال مبلغ الشراء يأخذ المبلغ ويطرح منه الرصيد الموجود في جدول users حتى يعرض الرصيد الحالي بعد إجراء العملية الحسابية ، وكل ما احتاجه هو كيفية أخذ المبلغ الموجود في التكست الجديد وإجراء عملية التعديل على حقل الرصيد الحالي crrent الموجود في جدول users والمشكلة هي كيفية التعديل في حقل الرصيد الحالي crrent بجدول users في نفس كود زر أمر إضافة البيانات في جدول sell . أرجو أن يكون التوضيح مكتمل وإذا في أي ملاحظة برجاء ارسالها وشاكر لجميع الأخوان المتعاونين معي

أخواني هل هذا الأمر مستحيل من خلال البرمجة أم أنا استخدم أكواد خاطئة ، يا ريت حد يخبرني علشان أنا مش عارف أحل المشكلة دي أبدا ، لو سمحتوا اللي عنده أي خبرة بهذا المجال افادتي والله محتاجه ضروري جدا جدا جدا

هذا مثال يوضح كيفية البحث في الـ DataSet و بالتحديد في الجدول users

ثم نبحث عن العامود userno لنتحقق من المفتاح الاساسي الذي نرسله عندما نريد ان نحدث قيمة الحقل crrent

ثم إذا توافق الرقم المرسل من قبلنا لذلك العامود , نتحقق أولاً هل الحقل crrent ليس فارغاً Null

فإذا كان ليس كذلك قمنا بأخذ القيمة منه وحفظناها في المتغير GetCurrentVal مع طرح قيمة الممرر amount

ثم نضيف تلك القيمة في الحقل الحالي وهو crrent ثم نخرج من الحلقة loop مباشرتاً حتى لا يتم الطرح مجدداً .

ننادي هذا السلوك بهذا الشكل.

 UpdateCurrentusers(244, 3)

Private Sub UpdateCurrentusers(ByVal primeryKeyValue As String, _
   ByVal amount As Integer)
		Dim column As DataColumn
		Dim row As DataRow
		Dim GetCurrentVal As Integer = 0
		For Each row In Me.DS.Tables("users").Rows
			For Each column In DS.Tables("users").Columns
				If row("userno") = primeryKeyValue Then
					If row("crrent") IsNot DBNull.Value Then
						GetCurrentVal = CInt(row("crrent").ToString) - amount
						row("crrent") = GetCurrentVal
						Return
					End If
				End If
			Next
		Next
	End Sub

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

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

ظننت انك ستتولى بعد ذلك عملية التحديث , فالجزء الاصعب إنتهينا منه , ومابقى سوى التحديث

فقط قبل الكلمة Return أستدعي الـ DataAdapter التابعة للجدول users و استخدم السلوك Update , فقط لا غير.

أخي الكريم أشكرك على سعة صدرك معي فأنا مبتدأ في استخدام الدوت نت 2005 أما بالنسبة للكود فأنا نفذت فعلا ووضعت جملة update ولكن ظهرت لي رسالة خطأ ما أدري بس معناها تقريبا أنه لم يستطع العثور على العمود المفتروض التعديل عليه بالرغم من عمله كويس داخل البرنامج ويقوم فعلا بأخذ القيمة وإجراء العملية الحسابية عليها ظاهريا والخطأ في الصورة المرفقة على الرابط التالي أرجو الاطلاع عليها مع الكود بعد التعديل .. اعذرني وارجو أن يتسع صدرك لمبتدأ في الدوت نت شكرا لك

رابط بنوع الخطأ الظاهر

طيب قبل عملية التحديث قومي بالتالي : هذه العملية تقطع عمل الجدول فيكون جاهز للتحديث...

Me.Validate()

Me.UsersBindingSource.EndEdit()

Me.UsersTableAdapter.Update(Me.DSMain.Users)

أو تستخدمين السلوك PerformClick الذي يتولى مجازاً الضغط على زر الحفظ

ذلك الزر الذي من خلاله نقوم بتحديث البيانات الى قاعدة البيانات.

 btnBNSaveItem.PerformClick()

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

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

لذا أخي الكريم فقد وضعت لك الفورم المراد التعديل على الكود به مع قاعدة البيانات برجاء التعديل وعمل اللازم عليه ، واعتذر مرة أخرى عن ازعاجي لوقتك ، ولكني آمل من الله أن يكون الحل على يديك وشكرا أخي الكريم

أخوك / ميدو صلاح

:rolleyes:

update_error.rar

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

السلام عليكم

هنالك عدة أخطاء منها ما يخص التصميم و منها ما يخص النصوص البرمجية.

فمن التصميم ان الجدول users لا يملك مفتاح اساسي Primery Key فعلى أي اساس ستقوم بعملية التحديث ,,, إن لم يكن هنالك مفتاح اساسي!!

ومن الاخطاء النصية البرمجية , هو عدم أرسال القيمة الصحيحة لممررات الوظيفة UpdateCurrentusers

فإنت ترسل القيمة amount للمقارنة بالمفتاح الاساسي !!!

وانت في هذا المثال تجلب السطور كلها لكن نحن نقف الان على السطر الاول , وانت ترسل المقارنة في الوظيفة بقيمة السطر الثالث.

لذلك لا يتحقق الشرط.. كذلك أنك تقوم بالتحديث ثم تذهب للجدول users لتقوم بتحديثه , فكان ينبغي عليك أن تقف عن تحريره ثم تقوم بتحديثه.

شاهد النصوص البرمجية لذلك. أو شاهد المرفق لذلك.

للعلم أنني لم استطع ان اشغل مشروعك في الاعلى فقمت بإنشاء مشروع أخر و سحبت من مشروعك النماذج و القوالب.....

 Private Sub Button1_Click(ByVal sender As System.Object, _
	ByVal e As System.EventArgs) Handles Button1.Click
		Dim CmdB As New OleDb.OleDbCommandBuilder(Das) '[المتغير لإحداث تعديل في قاعدة البيانات نفسها وليس مجموعة البينانات]
		Dim dsNewRow As DataRow 
		dsNewRow = Ds.Tables("sell").NewRow()
		dsNewRow.Item("user_no") = userno
		dsNewRow.Item("sell_date") = DateTimePicker1.Value
		dsNewRow.Item("sell_sahm") = ComboBox2.Text
		dsNewRow.Item("sell_csahm") = TextBox2.Text
		dsNewRow.Item("sell_ssahm") = TextBox3.Text
		dsNewRow.Item("sell_msahm") = TextBox4.Text
		Ds.Tables("sell").Rows.Add(dsNewRow)
		UpdateCurrentusers(1, 244)
		MessageBox.Show("تم حفظ عملية الشراء الحالية بنجاح", "برنامج أسهي")
	End Sub

 Private Sub UpdateCurrentusers(ByVal primeryKeyValue As Integer, _
	ByVal amount As Integer)
		Dim column As DataColumn
		Dim row As DataRow
		Dim GetCurrentVal As Integer = 0
		For Each row In Me.Ds.Tables("users").Rows
			For Each column In Ds.Tables("users").Columns
				If row("userno") = primeryKeyValue Then
					If row("crrent") IsNot DBNull.Value Then
						GetCurrentVal = CInt(row("crrent").ToString) - amount
						row("crrent") = GetCurrentVal
						Dim Cmdu As New OleDb.OleDbCommandBuilder(Dau)
						Me.Invalidate()
						Me.BindingContext(Ds, "buy").EndCurrentEdit()
						Me.BindingContext(Ds, "users").EndCurrentEdit()
						Das.Update(Ds, "sell")
						Dau.Update(Ds, "users")
						Return
					End If
				End If
			Next
		Next
	End Sub

WindowsApplication1.rar