[hassan 14]

(22-12-18, 08:19 PM)elgokr كتب :

وعليكم السلام ورحمة الله وبركاته

كود الحذف هو كود الحذف الاعتيادى من قاعدة البيانات

واما عن الصورة ستحتاج الى استخدام الكود التالى

كود :

       Dim FileDelete As String = "C:\testDelete.png"
       If System.IO.File.Exists(FileDelete) Then
           System.IO.File.Delete(FileDelete)
       End If

طبعاً ستقوم بتغيير 

PHP كود :

"C:\testDelete.png" 


الى مسار الصورة لديك

فمثلاً اذا كان الصورة بنفس مجلد البرنامج

بداخل مجلد مخصص للصورة سيكون المسار بهذا الشكل

كود :

"Folder\testDelete.png"

تحياتى لك

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

مشكلتي هنا testDelete.png ماذا اضع وضعت  التكست بوكس الموجودة على الفورم لكن لم تنجح يعني مشكلتي اسم الصورة

---

(02-01-19, 11:45 PM)a.wagdi كتب :

(02-01-19, 11:42 PM)hassan 14 كتب : هذا الكود 
           Pectcher.Text تمثل اسم الصورة في الفورم 

كود :

Try
           My.Computer.FileSystem.DeleteFile(Application.StartupPath & Pectcher.Text)
       Catch ex As Exception

       End Try

ليس هذا الكود الذي اقصده،

ولكن سأجيبك على أساسه
ضع فاصل "\" قبل السم الصورة

لاحظ انه في حالة تم عرض الصورة في PictureBox بطريقة Image.FromFile قد لا تتمكن من حذف الصورة

لم ينجح للاسف

---

(02-01-19, 11:45 PM)a.wagdi كتب :

(02-01-19, 11:42 PM)hassan 14 كتب : هذا الكود 
           Pectcher.Text تمثل اسم الصورة في الفورم 

كود :

Try
           My.Computer.FileSystem.DeleteFile(Application.StartupPath & Pectcher.Text)
       Catch ex As Exception

       End Try

ليس هذا الكود الذي اقصده،

ولكن سأجيبك على أساسه
ضع فاصل "\" قبل السم الصورة

لاحظ انه في حالة تم عرض الصورة في PictureBox بطريقة Image.FromFile قد لا تتمكن من حذف الصورة

لا جديد هناك خطأ

[a.wagdi]

(02-01-19, 11:47 PM)hassan 14 كتب :

(22-12-18, 08:19 PM)elgokr كتب :

وعليكم السلام ورحمة الله وبركاته

كود الحذف هو كود الحذف الاعتيادى من قاعدة البيانات

واما عن الصورة ستحتاج الى استخدام الكود التالى

كود :

       Dim FileDelete As String = "C:\testDelete.png"
       If System.IO.File.Exists(FileDelete) Then
           System.IO.File.Delete(FileDelete)
       End If

طبعاً ستقوم بتغيير 

PHP كود :

"C:\testDelete.png" 


الى مسار الصورة لديك

فمثلاً اذا كان الصورة بنفس مجلد البرنامج

بداخل مجلد مخصص للصورة سيكون المسار بهذا الشكل

كود :

"Folder\testDelete.png"

تحياتى لك

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

مشكلتي هنا testDelete.png ماذا اضع وضعت  التكست بوكس الموجودة على الفورم لكن لم تنجح يعني مشكلتي اسم الصورة

---

(02-01-19, 11:45 PM)a.wagdi كتب :

(02-01-19, 11:42 PM)hassan 14 كتب : هذا الكود 
           Pectcher.Text تمثل اسم الصورة في الفورم 

كود :

Try
           My.Computer.FileSystem.DeleteFile(Application.StartupPath & Pectcher.Text)
       Catch ex As Exception

       End Try

ليس هذا الكود الذي اقصده،

ولكن سأجيبك على أساسه
ضع فاصل "\" قبل السم الصورة

لاحظ انه في حالة تم عرض الصورة في PictureBox بطريقة Image.FromFile قد لا تتمكن من حذف الصورة

لم ينجح للاسف

---

(02-01-19, 11:45 PM)a.wagdi كتب :

(02-01-19, 11:42 PM)hassan 14 كتب : هذا الكود 
           Pectcher.Text تمثل اسم الصورة في الفورم 

كود :

Try
           My.Computer.FileSystem.DeleteFile(Application.StartupPath & Pectcher.Text)
       Catch ex As Exception

       End Try

ليس هذا الكود الذي اقصده،

ولكن سأجيبك على أساسه
ضع فاصل "\" قبل السم الصورة

لاحظ انه في حالة تم عرض الصورة في PictureBox بطريقة Image.FromFile قد لا تتمكن من حذف الصورة

لا جديد هناك خطأ

لأنك استخدمت Try مع Catch فارغة، فلن يظهر الخطأ رغم وجوده.

[hassan 14]

مشكلتي في التعبير عن اسم الصورة هنا 

كود :

 Dim FileDelete As String = "C:\testDelete.png"
      If System.IO.File.Exists(FileDelete) Then
          System.IO.File.Delete(FileDelete)
      End If

testDelete.png

[hassan 14]

سلام الاخوة

كود :

Dim FileDelete As String = Application.StartupPath & "\" & Pectcher.Text
       If System.IO.File.Exists(FileDelete) Then
           System.IO.File.Delete(FileDelete)
       End If

بعد وضع الكود يضهر هذا الخطأ
Le processus ne peut pas accéder au fichier 'C:\Users\xp\Documents\blp\blp\bin\Debug\image\cart-biblio.jpg', car il est en cours d'utilisation par un autre processus.

[hassan 14]

السلام عليكم الاخ الجوكر اين انت انا انتظر ؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟

[mmali127]

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

تحية للاعضاء الكرام 

اولا : -  الكود التالى خاص بحذف الصورة من مسار البرنامج 



 PbPic.Image.Dispose()
                Dim FileDelete As String = (Application.StartupPath & "\Mypicture\" & txtItemID.Text & ".jpg")
                If System.IO.File.Exists(FileDelete) Then
                    System.IO.File.Delete(FileDelete)
                End If


حيث ان  
(1) PbPic هو اسم PictureBox
(2) Mypicture هو اسم مجلد الصور فى مسار البرنامج
(3)  txtItemID هو اسم التكست بوكس لاسم الصورة فى النموذج المستخدم
(4)    PbPic.Image.Dispose  هو اجراء لتفريغ  ال PictureBox

___________________________________________________________________________________________________________________


ثانيا : -  الكود التالى خاص باضافة الصورة الجديدة المعدلة للصنف بنفس مسار الصور 

 Dim MYPicPhath As String
                IO.File.Copy(MYPicPhath, Application.StartupPath & "\Mypicture\" & txtItemID.Text & ".jpg")
                MYPicPhath = Application.StartupPath & "\Mypicture\" & txtItemID.Text & ".jpg"
                txtMyPicPath.Text = MYPicPhath

ان شاء الله يمشى معاك الحال 

تحياتى

[hassan 14]

(05-01-19, 10:59 AM)mmali127 كتب : السلام عليكم ورحمه الله وبركاته 

تحية للاعضاء الكرام 

اولا : -  الكود التالى خاص بحذف الصورة من مسار البرنامج 



 PbPic.Image.Dispose()
                Dim FileDelete As String = (Application.StartupPath & "\Mypicture\" & txtItemID.Text & ".jpg")
                If System.IO.File.Exists(FileDelete) Then
                    System.IO.File.Delete(FileDelete)
                End If


حيث ان  
(1) PbPic هو اسم PictureBox
(2) Mypicture هو اسم مجلد الصور فى مسار البرنامج
(3)  txtItemID هو اسم التكست بوكس لاسم الصورة فى النموذج المستخدم
(4)    PbPic.Image.Dispose  هو اجراء لتفريغ  ال PictureBox

___________________________________________________________________________________________________________________


ثانيا : -  الكود التالى خاص باضافة الصورة الجديدة المعدلة للصنف بنفس مسار الصور 

 Dim MYPicPhath As String
                IO.File.Copy(MYPicPhath, Application.StartupPath & "\Mypicture\" & txtItemID.Text & ".jpg")
                MYPicPhath = Application.StartupPath & "\Mypicture\" & txtItemID.Text & ".jpg"
                txtMyPicPath.Text = MYPicPhath

ان شاء الله يمشى معاك الحال 

تحياتى

شكرا لردك الكود الثاني مافائدته اين اضعه اشكرك جزيل الشكر

---

بعد التجربة بهذا الكود ضهر لي نفس الرسالة

كود :

       PictureBox1.Image.Dispose()
       Dim FileDelete As String = Application.StartupPath & "\image\" & Pectcher.Text
       If System.IO.File.Exists(FileDelete) Then
           System.IO.File.Delete(FileDelete)
           cls.clairemploiter()

هذه الرسالة
Le processus ne peut pas accéder au fichier 'C:\Users\xp\Documents\blp\blp\bin\Debug\image\cart-biblio.jpg', car il est en cours d'utilisation par un autre processus

[elgokr]

(03-01-19, 10:08 PM)hassan 14 كتب : السلام عليكم الاخ الجوكر اين انت انا انتظر ؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟

وعليكم السلام ورحمة الله وبركاته

اخر الفاضل hassan 14

اسف على تاخر بالرد بسبب عدم توجدى الفترة الاخيرة

الان انت كل ما لديك من مشكلة فقط

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

السؤال هنا اين تحتفظ باسم الصورة هل بقاعدة البيانات او تقوم برفع الصورة وحفظها بجانب البرنامج فقط

بدون ان تقوم باخذ اسم وامتاد الصورة لتحتفظ بها كا مسمى نص بقاعدة البيانات

اذا ارقت المشروع لديك لاطلاعى عليه وافادتك بالشكل النهائي

لاستخدام الكود كما تم الرد عليك بالكود المطلوب الحذف فى البداية الموضوع

تحياتى لك

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

[hassan 14]

شكرا الجوكر انا اضع ملف بجانب  البرنامج داخل الديباڨ يحتوي الصور واملئ الصور واحذف السجل عادي لكن الصورة تبقى في الملف لا تحذف جربت المود يحذف في حالة الصورة غير مرتبطة بالبرنامج لكن عندما تكون غغير نشطة يحذف عادي

[elgokr]

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

والحمد لله على كل حال

انظر اخى الفاضل لنقول ان بيانات التى تسجل بقاعدة البيانات عبارة عن التالى كمثال

PHP كود :

id - name - photo - note 


وتدرج البيانات بها عبارة عن التالى

PHP كود :

1 - File - logo.png - non 


فهنا فى هذه الحالة قبل اتمام حذف هذا الصف من قاعدة البيانات

يتقوم بعمل استعلام لجلب اسم الصورة التى بعمود photo والتى تكون فى المثال logo.png

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

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

تحياتى لك

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