منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

نسخة كاملة : عمل update عند ادخال البيانات
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
الصفحات : 1 2
السلام عليكم ورحمه الله وبركاته

لكم كل الود والمحبه

اخواني المبرمجين


انا عملت برنامج لادخال بيانات يتم ادخال بعض منها عن طريق قائمه منسدله والبعض الاخر يتم بالكتابه

اريد بعد اكمال ادخال البيانات وعند الضغط على زر update يتم الحفظ ويتم بعد >لك تنظيف جميع الحقول من المدخلات حتى يتمكن من ادخال متغير اخر

هذي صوره للبرنامج للتوضيح
[ATTACH=CONFIG]2468[/ATTACH]


وجزاكم الله كل الخير
السلام عليكم

ارفق المثال للتعديل عليه
هذا الكود يقوم بالحفظ والتحديث واصلاح الاخطاء إن وجدت

Try
()Me.Validate
()Me.TABLE1BindingSource.EndEdit

(Me.TableAdapterManager.UpdateAll(Me.DATABASE1DataSet

Catch DbconExp As System.Data.DBConcurrencyException
Try
(Console.WriteLine("Fixing Concurrency Error..."r
()Me.Validate
()Me.TABLE1BindingSource.EndEdit


(Me.TABLE1TableAdapter.Update(Me.DATABASE1DataSet
(Me.TableAdapterManager.UpdateAll(Me.DATABASE1DataSet

Catch ex As Exception
(MsgBox(ex.Message
End Try
Catch ex As Exception
(MsgBox(ex.Message
End Try

()Me.TABLE1BindingSource.AddNew
انصحك تستخدم الاكواد افضل واجمل واسهل بعد
تفضل كود الحفظ

PHP كود :
TABLE1TableAdapter.Insert(TextBox1.TextComboBox1.Text

بعدها ادرج مباشرة كود التحديث
PHP كود :
Me.TABLE1TableAdapter.Fill(Me.Db1DataSet.TABLE1





يوجد مثال بالمرفقات
vb2008
اكسس 2003
سعود كتب :انصحك تستخدم الاكواد افضل واجمل واسهل بعد

قصدك العكس صحيح : :p
sajad كتب :السلام عليكم

ارفق المثال للتعديل عليه

جزاك الله كل خير اخي ساجد
EHAB.NET كتب :هذا الكود يقوم بالحفظ والتحديث واصلاح الاخطاء إن وجدت

Try
()Me.Validate
()Me.TABLE1BindingSource.EndEdit

(Me.TableAdapterManager.UpdateAll(Me.DATABASE1DataSet

Catch DbconExp As System.Data.DBConcurrencyException
Try
(Console.WriteLine("Fixing Concurrency Error..."r
()Me.Validate
()Me.TABLE1BindingSource.EndEdit


(Me.TABLE1TableAdapter.Update(Me.DATABASE1DataSet
(Me.TableAdapterManager.UpdateAll(Me.DATABASE1DataSet

Catch ex As Exception
(MsgBox(ex.Message
End Try
Catch ex As Exception
(MsgBox(ex.Message
End Try

()Me.TABLE1BindingSource.AddNew

شكرا جزيلا لك سوف استعمل هذا الكود
سعود كتب :انصحك تستخدم الاكواد افضل واجمل واسهل بعد

اشكرك اخي العزيز سعود على هذه النصيجه وسوف اخذ بها
مالكـ كتب :تفضل كود الحفظ

PHP كود :
TABLE1TableAdapter.Insert(TextBox1.TextComboBox1.Text

بعدها ادرج مباشرة كود التحديث
PHP كود :
Me.TABLE1TableAdapter.Fill(Me.Db1DataSet.TABLE1





يوجد مثال بالمرفقات
vb2008
اكسس 2003

اما انت اخي مالك فكلمك شكر قليل في حققك وسوف اجر البرنامج الذي ارفقته وان لم يعمل معي سوف اقوم بارفاق البرنامج الخاص بي

لكم كل الود والمحيبه
الصفحات : 1 2