[hassan 14]

سلام هذا مثال عن برنامجي واتمنى  ان لا اكون قد اثقلت عليكم

[mmali127]

(06-01-19, 11:25 PM)hassan 14 كتب : سلام هذا مثال عن برنامجي واتمنى  ان لا اكون قد اثقلت عليكم

السلام عليكم ورحمه الله

شوف اخى الكريم اذا كان هذا الحل مناسب ليك 

اعتقد هذا ما تحتاجة 

تحياتى 


  deletimg_Test.rar (الحجم : 572.42 ك ب / التحميلات : 63)

[elgokr]

اضافة لما قدمه اخى العزيز mmali127

وحتى لا يذهب جهة فى المساعدة قمت بدمج طريقته بالكود المدرج فى الشرح التالى

اولاً ستجد بالمرفق صورة تحت اسم NOImage.png

استخرج الصورة من الملف المضغوط

وكل ما عليك فعله هو وضع هذا الصورة فى مجلد image دون تغيير الاسم و الامتداد 

ثانياً تاتى فى حدث الـ Sub الخاص بالحذف وهو

كود :

   Public Sub dlet()

هتستبدل هذا الحدث ليكون بهذا الشكل

كود :

   'الحذف
   Public Sub dlet()
       Try
           Dim dt As New DataTable
           Dim da As New OleDbDataAdapter
           dt.Clear()
           da = New OleDbDataAdapter("select * from tablimage where Numirouimage = " & Form1.Numirouimage.Text & "", con)
           da.Fill(dt)
           If MsgBox("هل تريد الحذف", MsgBoxStyle.OkCancel, "رسالة الحذف") = MsgBoxResult.Ok Then

               REM كود حذف الصورة
               Dim FileDelete As String = Application.StartupPath & "\image\" & dt(0)(1)
               Form1.PictureBox1.Load(Application.StartupPath & "\image\NOImage.png")
               If System.IO.File.Exists(FileDelete) Then
                   System.IO.File.Delete(FileDelete)
               End If
               REM نهاية كود حذف الصورة

               dt.Rows(0).Delete()
               Dim sav As New OleDbCommandBuilder(da)
               da.Update(dt)
               dt.AcceptChanges()
               MsgBox("تم الحذف البيانات بنجاح", MsgBoxStyle.Information, "تنبيه بالحذف")
               lodeimage(Form1.DataGridView1)
           Else
           End If
       Catch ex As Exception
           MsgBox(ex.Message)
       End Try
   End Sub

ستجد كوود حذف الصورة مدرج وسط كود الحذف الذى تستخدمه

تحياتى لك

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

[hassan 14]

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


معلومة: 

الكود يعمل جيدا في حالة الصورة غير مرتبطةمع البرنامج اي اسمها غير مكتوب في التكست بوكس والصورة غير ضاهرة في البكتشر بوكس 

---

(07-01-19, 04:57 PM)elgokr كتب :

اضافة لما قدمه اخى العزيز mmali127

وحتى لا يذهب جهة فى المساعدة قمت بدمج طريقته بالكود المدرج فى الشرح التالى

اولاً ستجد بالمرفق صورة تحت اسم NOImage.png

استخرج الصورة من الملف المضغوط

وكل ما عليك فعله هو وضع هذا الصورة فى مجلد image دون تغيير الاسم و الامتداد 

ثانياً تاتى فى حدث الـ Sub الخاص بالحذف وهو

كود :

   Public Sub dlet()

هتستبدل هذا الحدث ليكون بهذا الشكل

كود :

   'الحذف
   Public Sub dlet()
       Try
           Dim dt As New DataTable
           Dim da As New OleDbDataAdapter
           dt.Clear()
           da = New OleDbDataAdapter("select * from tablimage where Numirouimage = " & Form1.Numirouimage.Text & "", con)
           da.Fill(dt)
           If MsgBox("هل تريد الحذف", MsgBoxStyle.OkCancel, "رسالة الحذف") = MsgBoxResult.Ok Then

               REM كود حذف الصورة
               Dim FileDelete As String = Application.StartupPath & "\image\" & dt(0)(1)
               Form1.PictureBox1.Load(Application.StartupPath & "\image\NOImage.png")
               If System.IO.File.Exists(FileDelete) Then
                   System.IO.File.Delete(FileDelete)
               End If
               REM نهاية كود حذف الصورة

               dt.Rows(0).Delete()
               Dim sav As New OleDbCommandBuilder(da)
               da.Update(dt)
               dt.AcceptChanges()
               MsgBox("تم الحذف البيانات بنجاح", MsgBoxStyle.Information, "تنبيه بالحذف")
               lodeimage(Form1.DataGridView1)
           Else
           End If
       Catch ex As Exception
           MsgBox(ex.Message)
       End Try
   End Sub

ستجد كوود حذف الصورة مدرج وسط كود الحذف الذى تستخدمه

تحياتى لك

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

شكرا 

---

(07-01-19, 10:39 AM)mmali127 كتب :

(06-01-19, 11:25 PM)hassan 14 كتب : سلام هذا مثال عن برنامجي واتمنى  ان لا اكون قد اثقلت عليكم

السلام عليكم ورحمه الله

شوف اخى الكريم اذا كان هذا الحل مناسب ليك 

اعتقد هذا ما تحتاجة 

تحياتى 

شكرا لك اخي