17-01-17, 02:51 PM
18-01-17, 10:19 AM
لازم تسوي قبل كل ()TextBox.DataBindings.Add
الكود التالي() TextBox.DataBindings.Clear
الكود التالي() TextBox.DataBindings.Clear
18-01-17, 11:39 AM
السلام عليكم
الأفضل تعمل DataBindings في الحدث Form_Load فقط لضمان عدم محاولة إضافتها مرة أخرى والذي يتسبب بالخطأ كما في الموضوع،
وإلا اعمل DataBindings.Clear لكل TextBox مثل ما ذكر الأستاذ.
الأفضل تعمل DataBindings في الحدث Form_Load فقط لضمان عدم محاولة إضافتها مرة أخرى والذي يتسبب بالخطأ كما في الموضوع،
وإلا اعمل DataBindings.Clear لكل TextBox مثل ما ذكر الأستاذ.
19-01-17, 12:03 PM
عملت المطلوب و ما ضبطت معي
المشكلة انها تتم عملية الحفظ و لكن يظهر لي الخطأ ، وعند إغلاق البرنامج و تشغيلة اجد المعلومات قد أضيفت للبرنامج
المشكلة انها تتم عملية الحفظ و لكن يظهر لي الخطأ ، وعند إغلاق البرنامج و تشغيلة اجد المعلومات قد أضيفت للبرنامج
19-01-17, 12:54 PM
(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()
19-01-17, 11:23 PM
اخي الكريم ممكن تتفضل بعد اذنك تعدل لي المشروع ، المشكلة في التعديل و الحفظ
20-01-17, 04:06 AM
كل الشباب اعطوك الحل صحيح لكن ما طبقت اللي قالوه لك
على العموم تم التعديل
على العموم تم التعديل
21-01-17, 03:07 AM
أشكرك و اشكر جميع الاخوان المتفضلين بحلولهم و اعتذر لقلت معرفتي بالتعديل