09-01-18, 05:29 AM
(آخر تعديل لهذه المشاركة : 09-01-18, 05:29 AM {2} بواسطة محمد اسماعيل.)
السلام عليكم
عندي صور اريد حفظها بقاعدة البيانات وحذفها مشاهدتها ليس بامتدها ولكن بتحويلها لبينري يحفظ بقاعدة البيانات
كود الحفظ الخطاء المستخدم
كود الحذف
ولكن لايعمل البرنامج كامل بالمرفقات
عندي صور اريد حفظها بقاعدة البيانات وحذفها مشاهدتها ليس بامتدها ولكن بتحويلها لبينري يحفظ بقاعدة البيانات
كود الحفظ الخطاء المستخدم
PHP كود :
Try
If PictureBox1.Image IsNot Nothing Then
If MsgBox(" هل تريد استبدال الصورة الحالية " & " ؟ ", MsgBoxStyle.Exclamation + MsgBoxStyle.MsgBoxRight + MsgBoxStyle.OkCancel, "استبدال صورة") = MsgBoxResult.Cancel Then Exit Sub
Else
If MsgBox(" استمرار اضافة صورة جديدة للسجل رقم " & Label2.Text & " ؟ ", MsgBoxStyle.Exclamation + MsgBoxStyle.MsgBoxRight + MsgBoxStyle.OkCancel, "ادراج صورة") = MsgBoxResult.Cancel Then Exit Sub
End If
Application.DoEvents()
Dim OFG As New OpenFileDialog
OFG.Filter = "Files(*.jpg)|*.jpg|Files(*.gif)|*.gif|Files(*.bmp)|*.bmp|Files(*.png)|*.png"
OFG.Title = "ادراج صورة"
OFG.FileName = ""
If OFG.ShowDialog() = Windows.Forms.DialogResult.OK Then
'ادراج الصورة بهذه الطريقة لكي تتحرر الصورة الاصلية من الذكراة لكي تستطيع مثلا حذفها
Dim fs As IO.FileStream = New IO.FileStream(OFG.FileName, IO.FileMode.Open, IO.FileAccess.Read)
Dim LoadImage As Image = Image.FromStream(fs)
fs.Close()
Dim Stream As New IO.MemoryStream()
Dim NewBitmap As New Bitmap(LoadImage, 200, 225)
'تخزين الصورة في الميموري بعد التعديل على ابعادها ونوع امتدادها لكي لا تاخذ حيز كبير في القاعدة
NewBitmap.Save(Stream, System.Drawing.Imaging.ImageFormat.Jpeg)
Application.DoEvents()
'كود حفظ الصورة كتعديل
' هو رقم السجل الذي تقف عليه حاليا BindingSource1.Position هذا الكود
'كود حفظ الاضافة وحفظ التعديل
BindingSource1.EndEdit()
DataAdapter1.Update(DataSet1.Tables("tb1,tb2"))
DataSet1.Tables("tb1").Rows(BindingSource1.Position).Item("image_mail") = Stream.ToArray
'اغلاق المتغير بعد الانتهاء من ادراج الصورة في السجل
Stream.Close()
'كود حفظ الاضافة وحفظ التعديل
BindingSource1.EndEdit()
DataAdapter1.Update(DataSet1.Tables("tb1,tb2"))
Application.DoEvents()
MsgBox("تم حفظ الصورة نجاح", MsgBoxStyle.MsgBoxRight + MsgBoxStyle.Information, "نجاح ")
End If
Catch ex As Exception
MessageBox.Show(ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
End Sub
كود الحذف
PHP كود :
Try
If PictureBox1.Image Is Nothing Then Beep() : Exit Sub
If MsgBox(" استمرار حذف الصورة الحالية" & " ؟ ", MsgBoxStyle.Exclamation + MsgBoxStyle.MsgBoxRight + MsgBoxStyle.OkCancel, "حذف صورة") = MsgBoxResult.Cancel Then Exit Sub
'افراغ الصورة من البكشر بكس
PictureBox1.Image = Nothing
'كود حفظ الاضافة وحفظ التعديل
BindingSource1.EndEdit()
DataAdapter1.Update(DataSet1.Tables("Tb1,tb2"))
MsgBox("تم حذف الصورة نجاح", MsgBoxStyle.MsgBoxRight + MsgBoxStyle.Information, "نجاح ")
Catch ex As Exception
MessageBox.Show(ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
ولكن لايعمل البرنامج كامل بالمرفقات