[محمد اسماعيل]

السلام عليكم

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

كود الحفظ الخطاء المستخدم

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 


ولكن لايعمل البرنامج كامل بالمرفقات