[abdulla2]

خي سعود ارجو الرد على موضوع حذف صوره
جربت الكود الموجود بالممشروع الذي ارسلته لي ماضبط
أو من الإخوه الاكارم جربت ولكن دون فائده ..
---
احفظ صوره بقاعده بيانات اكسس احفظ اسمها ومسارها
واحفظ ابصور بمجلد بالديباج الامو تمام بالنسبه للحفظ
المشكلة عند الحذف ؟ اريد احذف سجل ومباشره تحذف
الصوره المرتبطه به بالديباج ِ. حاولت دون فائده ..
ارجو المساعده ؟؟؟
وشكرا لكم

[silverlight]

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

[abdulla2]

اريد أن احذف السجل من الاكسس وبه مسار الصورة وإسم الصورة
ومباشرة تحذف الصورة معاه في مجلد الديباج
---
وكذلك الانتقال مابين الصور التالي والرجوع
وهذا هو المشروع للتوضيح

[silverlight]

مشكلتك في المسار الذي تحفظ فيه الصورة
خاصة ان مشروعك في مرحلة التصميم
ابني المسار علي C او علي فهرس اخر مثل فهرس الصور

لو فتحت ملف الداتبيز الخاص بك و نظرت الي مسار حفظ الصور ستجد أنه مسار كبير جدا
وغاليا الكمبيوتر لن يستطيع التعامل مع مسارات يكون String الخاص بها طويل

[abdulla2]

طيب أعطني حل اخي المهم تكون الصور بمجلد الديباج ؟؟؟
انا اريد اي حل يمشي معي ..

---

أنا رفعت المشروع وهو موجود ..
أرجوا التعديل عليه ..

[silverlight]

حاول تحفظ الصورة بحيث يكون مسارها بالشكل التالي
لست متأكدا نه الحل الصحيح تماما

PHP كود :

Dim imgpath As String = ".\ImageFileName" 


[abdulla2]

أخي لم أفهم قصدك .... هذا هو كود الحفظ ...
---------------------------------------
Try
ofd.Filter = "jpg|*.jpg|bmp|*.bmp|png|*.png"
If ofd.ShowDialog = Windows.Forms.DialogResult.OK Then

'Path of Image
Dim imgpath As String = ofd.FileName
'Path Of Name
Dim imgname As String = System.IO.Path.GetFileName(imgpath)
Dim newpath As String = Application.StartupPath & "\Images\" & imgname

picImage.Load(imgpath)
picImage.SizeMode = PictureBoxSizeMode.StretchImage

'Copy the pic link from pathe to new path
My.Computer.FileSystem.CopyFile(imgpath, newpath)


'*******************
con.Open()
sqlstr = "Insert Into TB1(AutoId,Name1,Path1,Note1) Values(@AutoId,@Name1,@Path1,@Note1)"
cmd = New OleDbCommand(sqlstr, con)
cmd.Parameters.Add("@AutoId", OleDbType.VarWChar).Value = txtAutoId.Text
cmd.Parameters.Add("@Name1", OleDbType.VarWChar).Value = imgname
cmd.Parameters.Add("@Path1", OleDbType.VarWChar).Value = newpath
cmd.Parameters.Add("@Note1", OleDbType.VarWChar).Value = txtNote.Text


cmd.ExecuteNonQuery()
con.Close()
FillDGV()

con.Close()
End If
Catch ex As Exception
MsgBox(ex.Message)
End Try
-------------------------------------------------------------------

[11951]

كود :

Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles btnDel.Click
        If DGV.Rows.Count = 0 Then
            btnDel.Enabled = False
        Else
            btnDel.Enabled = True
        End If

        Try

            Using cmd As New OleDbCommand("SELECT Path1 FROM TB1 Where AutoId = @AutoId", con)
                cmd.Parameters.Add("@AutoId", OleDbType.VarChar).Value = DGV.CurrentRow.Cells(1).Value
                If con.State <> ConnectionState.Open Then con.Open()
                Dim p As String = cmd.ExecuteScalar
                con.Close()
                IO.File.Delete(p)
            End Using

            con.Open()
            sqlstr = "Delete From TB1 Where AutoId = @AutoId"
            cmd = New OleDbCommand(sqlstr, con)
            cmd.Parameters.Add("@AutoId", OleDbType.VarChar).Value = DGV.CurrentRow.Cells(1).Value

            cmd.ExecuteNonQuery()


            MsgBox("تمت عملية الحذف بنجاح", MsgBoxStyle.Information, "الحذف")

            FillDGV()

        Catch ex As Exception
            MsgBox(ex.Message)
        Finally
            con.Close()
        End Try
        txtAutoId.Text = Format(GET_LAST_RECORD("TB1", "AutoId") + 1, "IMG00000")
    End Sub

[silverlight]

الأخ عبداله

طالما المسار انت فعليا حددت مكانه علي فهرس المشروع
ممكن توضح هدفك من استخدام OpenFileDialog
أم هذا هو الذي تستخدمه في تحديد الصورة

ليه تنسخ ملف الصورة من مكانه؟

بدلا من استخدام

PHP كود :

My.Computer.FileSystem.CopyFile(imgpath, newpath) 


احفظ الصورة مباشرة من PictureBox الي المسار الجديد

PHP كود :

picImage.Image.Save(newPath) 


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

[abdulla2]

أخي  11951    
جربت الكود تظهر لي هذه الرسالة ؟؟!!