[DK-x]

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

  Pid 2.zip (الحجم : 2.12 م ب / التحميلات : 32)

[elgokr]

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

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

حتى يعود الى العمل من جديد

تحياتى لك

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

[DK-x]

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

[elgokr]

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

تم تعديل الملف كاملاً 

حتى يتم عمل المشروع لكل من 

الاضافة والتعديل والحذف

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

تحياتى لك

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

[DK-x]

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

[elgokr]

(18-09-18, 04:06 PM)DK-x كتب :

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

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

اذا كنت تريد اخر 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

بالادء المطلوب ظهور الرقم به

تحياتى لك

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