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

نسخة كاملة : اخطاء بقاعدة البيانات
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
مرحبا   Heart
اعمل على برنامج يسجل اسم الشخص وصورته ورقمه وعنوانه  Cool
لكن صارت اخطاء ومعرفت احلها ومنها ما يعدل على البيانات ولا يضيف   Huh  Dodgy  
ماعرف السبب و ايضا اريد اضيف صوره بحيث تحفظ بالداتا وتظهر مع المعلومات لكن ما عرفت كيف   Confused
لذلك اتمنى تساعدوني  Big Grin
وشكراً  Heart
[attachment=19560]
مرحباً اخى DK-x

الك المرفق بعد تصحيح ملف المشروع
حتى يعود الى العمل من جديد

تحياتى لك
وتمنياتى لك التوفيق
اعتذر لكن الخطا ما تصحح
بعده البرنامج ما يضيف ولا يعدل Huh
مرحباً اخى DK-x

تم تعديل الملف كاملاً 
حتى يتم عمل المشروع لكل من 
الاضافة والتعديل والحذف

مرفق السورس بعد اتمام عمل اللازم

تحياتى لك
وتمنياتى لك التوفيق
اشكرك اخي على سعة صدرك ما قصرت Heart
وطلب آخر اذا ممكن
كيف اجلب اخر ID من قاعدة البيانات هذه Huh
(18-09-18, 04:06 PM)DK-x كتب : [ -> ]
اشكرك اخي على سعة صدرك ما قصرت  Heart
وطلب آخر اذا ممكن
كيف اجلب اخر ID من قاعدة البيانات هذه  Huh


الشكر لله والحمد لله


اذا كنت تريد اخر ID للبيانات التى تم اضافتها يمكنك استخدام كلاً من
كود :
       Dim dt As New DataTable
       dt.Clear()
       Dim sql As String = "SELECT Count(ID) FROM Namemoadfen"
       da = New OleDbDataAdapter(sql, con)
       cm = New OleDbCommandBuilder(da)
       da.Fill(dt)
       MsgBox(dt.Rows(0)(0))

أو
كود :
       MsgBox(DataGridView1.Rows(DataGridView1.Rows.Count - 1).Cells(0).Value)

وده داخل فورم Master
واذا كنت تريد من خلال عند اتمام الاضافة
فقط اسفل 
كود :
cmd.ExecuteNonQuery()

التى بشاشة الاضافة
قم باضافة الاسطر التالي
كود :
               cmd.CommandText = "Select @@Identity"
               MsgBox(cmd.ExecuteScalar())

كل ما عليك استبدال MsgBox
بالادء المطلوب ظهور الرقم به

تحياتى لك
وتمنياتى لك التوفيق