[thevirus]

(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 لكل كنترول قمت بربطه بالداتاست