خي سعود ارجو الرد على موضوع حذف صوره
جربت الكود الموجود بالممشروع الذي ارسلته لي ماضبط
أو من الإخوه الاكارم جربت ولكن دون فائده ..
---
احفظ صوره بقاعده بيانات اكسس احفظ اسمها ومسارها
واحفظ ابصور بمجلد بالديباج الامو تمام بالنسبه للحفظ
المشكلة عند الحذف ؟ اريد احذف سجل ومباشره تحذف
الصوره المرتبطه به بالديباج ِ. حاولت دون فائده ..
ارجو المساعده ؟؟؟
وشكرا لكم
أي من البيانات تحذف أولا
الملف لموجود علي الهارد ديسك أم بيانات الصورة المحفوظة في ملف الاكسس
اريد أن احذف السجل من الاكسس وبه مسار الصورة وإسم الصورة
ومباشرة تحذف الصورة معاه في مجلد الديباج
---
وكذلك الانتقال مابين الصور التالي والرجوع
وهذا هو المشروع للتوضيح
مشكلتك في المسار الذي تحفظ فيه الصورة
خاصة ان مشروعك في مرحلة التصميم
ابني المسار علي C او علي فهرس اخر مثل فهرس الصور
لو فتحت ملف الداتبيز الخاص بك و نظرت الي مسار حفظ الصور ستجد أنه مسار كبير جدا
وغاليا الكمبيوتر لن يستطيع التعامل مع مسارات يكون String الخاص بها طويل
طيب أعطني حل اخي المهم تكون الصور بمجلد الديباج ؟؟؟
انا اريد اي حل يمشي معي ..
أنا رفعت المشروع وهو موجود ..
أرجوا التعديل عليه ..
حاول تحفظ الصورة بحيث يكون مسارها بالشكل التالي
لست متأكدا نه الحل الصحيح تماما
PHP كود :
Dim imgpath As String = ".\ImageFileName"
أخي لم أفهم قصدك .... هذا هو كود الحفظ ...
---------------------------------------
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
-------------------------------------------------------------------
كود :
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
الأخ عبداله
طالما المسار انت فعليا حددت مكانه علي فهرس المشروع
ممكن توضح هدفك من استخدام OpenFileDialog
أم هذا هو الذي تستخدمه في تحديد الصورة
ليه تنسخ ملف الصورة من مكانه؟
بدلا من استخدام
PHP كود :
My.Computer.FileSystem.CopyFile(imgpath, newpath)
احفظ الصورة مباشرة من PictureBox الي المسار الجديد
PHP كود :
picImage.Image.Save(newPath)
أيضا أي مسار تحفظ في الداتبيز
المسار القديم أم المسار الجديد
الطبيعي و المفروض انك لا تحذف الصورة الأصلية من مكانها
و تحذف فقط ماهو يخص برنامجك أنت
أخي 11951
جربت الكود تظهر لي هذه الرسالة ؟؟!!