تحديث الداتا قرايد - نسخة قابلة للطباعة +- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb) +-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182) +--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183) +--- الموضوع : تحديث الداتا قرايد (/showthread.php?tid=8413) الصفحات:
1
2
|
تحديث الداتا قرايد - ... صدى ... - 10-04-13 السلام عليكم اخوتي الكرام الكود التالي كود حفظ بيانات في الداتا قرايد Try If BindingSource1.Count = 0 Then Beep() : Exit Sub BindingSource1.EndEdit() DataAdapter1.Update(DataSet1, "Tab1") DataAdapter2.Update(DataSet1, "Tab2") count() MsgBox("تمت عملية الحفظ بنجاح", 64 + 524288, "نجاح الحفظ") Catch ex As Exception MessageBox.Show(ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error) End Try المشكلة اني ادخل بيانات في الداتا قرايد (عدة سطور)ثم اريد حذف سطر من السطور فيعطينى الرسالةالتالية Concurrency violation : the Delete command affected 0 off the expected 1 records. المطلوب كود تحديث البيانات لاعادة الترقيم علما ان عمود الترقيم في الداتا قرايد رقمه (0) جزاكم الله خيرا وحفظكم الله واخوتنا في منتدى فيجول بيسك دوت نت الذي كان له الفضل في الاخذ بايدينا لتعلم هذه اللغة. تحديث الداتا قرايد - ... صدى ... - 11-04-13 السلام عليكم اخوتي الكرام الكود التالي كود حفظ بيانات في الداتا قرايد Try If BindingSource1.Count = 0 Then Beep() : Exit Sub BindingSource1.EndEdit() DataAdapter1.Update(DataSet1, "Tab1") DataAdapter2.Update(DataSet1, "Tab2") count() MsgBox("تمت عملية الحفظ بنجاح", 64 + 524288, "نجاح الحفظ") Catch ex As Exception MessageBox.Show(ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error) End Try المشكلة اني ادخل بيانات في الداتا قرايد (عدة سطور)ثم اريد حذف سطر من السطور فيعطينى الرسالةالتالية Concurrency violation : the Delete command affected 0 off the expected 1 records. المطلوب كود تحديث البيانات لاعادة الترقيم علما ان عمود الترقيم في الداتا قرايد رقمه (0) جزاكم الله خيرا وحفظكم الله واخوتنا في منتدى فيجول بيسك دوت نت الذي كان له الفضل في الاخذ بايدينا لتعلم هذه اللغة. في انتظار المساعدة جزاكم اللله خيرا تحديث الداتا قرايد - ... صدى ... - 14-04-13 السلام عليكم اخوتي الكرام في انتظار المساعدة جزاكم الله خيرا تحديث الداتا قرايد - سعود - 14-04-13 تحديث الداتا قرايد - ... صدى ... - 15-04-13 اخي الكريم المشكلة 1/في حال اضافة بيانات في الداتا قرايد (عدة سطور) ثم اريد حذف سطر من السطور فيعطينى الرسالةالتالية Concurrency violation : the Delete command affected 0 off the expected 1 records. 2/1/في حال اضافة بيانات في الداتا قرايد (عدة سطور) يعطينى الرسالة لايمكن ان يحتوي الفهرس اوالمفتاح الاساسي على قيمة فارغة المطلوب كود ترقيم في حال اضافة بيانات علما ان عمودالترقيم في الداتا قرايد رقمه (0) والداتا قرايد تحوي جدولين بينهما علاقة جزاكم الله خيرا واعتذر على عدم التوضيح حاولت رفع ملف المشروع ولم استطع هذا كود الاضافة If MsgBox("هل تريد اضافة موظف جديد ؟ ", MsgBoxStyle.Exclamation + MsgBoxStyle.MsgBoxRight + MsgBoxStyle.OkCancel, "اضافة سجل جديد") = MsgBoxResult.Cancel Then Exit Sub Application.DoEvents() DataSet1.RejectChanges() BindingSource1.AddNew() Label1.Text = DataSet1.Tables("Tab1").Compute("Max(ID)", "ID >= 0") + "33" BindingSource1.EndEdit() TextBox1.Focus() count() اخي الكريم اريد في حال البدء بالاضافة يتم الترقيم لتفادي المشكلة جزاك الله خيرا تحديث الداتا قرايد - سعود - 15-04-13 إقتباس :الحل بتحويله الى ترقيم تلقائي تحديث الداتا قرايد - ... صدى ... - 15-04-13 اخي الكريم هذا مثال للمطلوب http://www.mediafire.com/?hcfvjql4p39jrxr المطلوب عندلنقرعلى زر اضافة يتم بدء الترقيم اتمنى اجد الحل سريع جزاكم الله خيرا تحديث الداتا قرايد - حريف برمجة - 15-04-13 راجعت المثال ولم يتضح اي شي من المطلوب ،،،، تحديث الداتا قرايد - ... صدى ... - 16-04-13 المشكلة اخوتي الكرام لايمكن الحفظ بعداضافة البيانات ويعطينى رسالة لايمكن ان يحتوي الفهرس او المفتاح على قيمة فارغة المطلوب عندالنقرعلى زر اضافة يتم بدء الترقيم جزاكم الله خيرا تحديث الداتا قرايد - سعود - 16-04-13 اخي العزيز اضف عمود ترقيم تلقائي وريح مخك |