منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[سؤال] اخطاء بقاعدة البيانات - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [سؤال] اخطاء بقاعدة البيانات (/showthread.php?tid=26538)

اخطاء بقاعدة البيانات - DK-x - 17-09-18

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


RE: اخطاء بقاعدة البيانات - elgokr - 18-09-18

مرحباً اخى DK-x

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

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


RE: اخطاء بقاعدة البيانات - DK-x - 18-09-18

اعتذر لكن الخطا ما تصحح
بعده البرنامج ما يضيف ولا يعدل Huh


RE: اخطاء بقاعدة البيانات - elgokr - 18-09-18

مرحباً اخى DK-x

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

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

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


RE: اخطاء بقاعدة البيانات - DK-x - 18-09-18

اشكرك اخي على سعة صدرك ما قصرت Heart
وطلب آخر اذا ممكن
كيف اجلب اخر ID من قاعدة البيانات هذه Huh


RE: اخطاء بقاعدة البيانات - elgokr - 18-09-18

(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
بالادء المطلوب ظهور الرقم به

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