تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] ارجوا توضيح المشكلة بعد عملية الحفظ
#1
Photo 
السلام عليكم

بعد عملية الحفظ يظهر لي الخطأ التالي

الرد }}}
تم الشكر بواسطة:
#2
لازم تسوي قبل كل ()TextBox.DataBindings.Add
الكود التالي() TextBox.DataBindings.Clear
لا شيء مستحيل
الرد }}}
تم الشكر بواسطة: أبووسم , أبووسم
#3
السلام عليكم

الأفضل تعمل DataBindings في الحدث Form_Load فقط لضمان عدم محاولة إضافتها مرة أخرى والذي يتسبب بالخطأ كما في الموضوع،
وإلا اعمل DataBindings.Clear لكل TextBox مثل ما ذكر الأستاذ.
الرد }}}
تم الشكر بواسطة: أبووسم , thevirus
#4
عملت المطلوب و ما ضبطت معي

المشكلة انها تتم عملية الحفظ و لكن يظهر لي الخطأ ، وعند إغلاق البرنامج و تشغيلة اجد المعلومات قد أضيفت للبرنامج

الرد }}}
تم الشكر بواسطة:
#5
(19-01-17, 12:03 PM)أبووسم كتب : عملت المطلوب و ما ضبطت معي

المشكلة انها تتم عملية الحفظ و لكن يظهر لي الخطأ ، وعند إغلاق البرنامج و تشغيلة اجد المعلومات قد أضيفت للبرنامج


جرب هذا الكود تسوي دالتين جديتين كالاتي
كود :
Private Sub txtDataBindinds()
TextBox1.DataBindings.Clear()
TextBox2.DataBindings.Clear()
TextBox3.DataBindings.Clear()
TextBox4.DataBindings.Clear()
TextBox5.DataBindings.Clear()
TextBox6.DataBindings.Clear()
TextBox8.DataBindings.Clear()
TextBox9.DataBindings.Clear()
TextBox10.DataBindings.Clear()
PictureBox.DataBindings.Clear()
TextBox1.DataBindings.Add("Text",ds"Employees.EName")
TextBox2.DataBindings.Add("Text",ds"Employees.Mrtb")
TextBox3.DataBindings.Add("Text",ds"Employees.ID_1")
TextBox4.DataBindings.Add("Text",ds"Employees.ID2")
TextBox5.DataBindings.Add("Text",ds"Employees.ID3")
TextBox6.DataBindings.Add("Text",ds"Employees.City")
TextBox7.DataBindings.Add("Text",ds"Employees.Town")
TextBox8.DataBindings.Add("Text",ds"Employees.DAte1")
TextBox9.DataBindings.Add("Text",ds"Employees.Date2")
TextBox10.DataBindings.Add("Text",ds"Employees.Sco")
PictureBox.DataBindings.Add("Image",ds,"Employees.Photo",True,DataSourceUpdateMode.OnPropertyChanged)
End Sub
الدالة الثانية

PHP كود :
Private Sub loadData ()
Dim da As new OleDbDataAdapter("Select * From Employees",Con)
Dim ds As New DataSet
ds
.Clear()
Da.Fill(ds,"Employees")
End Sub 

وفي حدث التحميل (Form_Load)
قم بإستعداء الدالتين لكن يجب عليك الانتباه على الترتيب 
اي 
في حدث الفورم Load 
كود :
loadData()
txtDataBindings()
 أما سبب الخطأ السابق هو انك لازم تعمل Clear لكل كنترول قمت بربطه بالداتاست
لا شيء مستحيل
الرد }}}
تم الشكر بواسطة: أبووسم
#6
اخي الكريم ممكن تتفضل بعد اذنك تعدل لي المشروع ، المشكلة في التعديل و الحفظ


الملفات المرفقة
.rar   افضل قاعدتين.rar (الحجم : 846.86 ك ب / التحميلات : 45)
الرد }}}
تم الشكر بواسطة:
#7
كل الشباب اعطوك الحل صحيح لكن ما طبقت اللي قالوه لك 

على العموم تم التعديل


الملفات المرفقة
.zip   افضل قاعدتين.zip (الحجم : 1.01 م ب / التحميلات : 51)
Mish3l
الرد }}}
تم الشكر بواسطة: أبووسم
#8
أشكرك و اشكر جميع الاخوان المتفضلين بحلولهم و اعتذر لقلت معرفتي بالتعديل
الرد }}}
تم الشكر بواسطة:



التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم