[Azzedine2013]

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

إخوتي الأعزاء في هذا المنتدى الغالي علينا أشرح لكم بإختصار الموضوع :

لدي جدول واحد في قاعدة البيانات يحتوي على الحقول التالية : id - name - age - photo

عمليات الإضافة و الحذف و الحفظ تتم بدون مشاكل و لكن المشكل هو عند التعديل حيث جملة SQL صحيحة و قد استعملت المعاملات (parameters) حيث يطلب مني visual basic 2010 أن ملف الصورة غير موجود مع أني لم أعدل على الصورة بل عدلت مثلاً على الإسم و السن و تركت الصورة كما هي بدون تعديل فما الحل أرجوكم ساعدوني جزاكم الله خير الجزاء و هذا هذا كود التعديل :

أولاً كود تحميل الصورة :

كود :

Private Sub btnLoad_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnLoad.Click

        With OpenFileDialog1

            .CheckFileExists = True
            .ShowReadOnly = False
            .Filter = "All Files|*.*|Bitmap Files (*)|*.bmp;*.gif;*.jpg"
            .FilterIndex = 2

            If .ShowDialog = DialogResult.OK Then
                ' Load the specified file into a PictureBox control.
                pictProfPhoto.Image = Image.FromFile(.FileName)
            End If

        End With

ثانياً كود التعديل :

كود :

Private Sub btnEdit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnEdit.Click

        Dim cmdUpdate As New SqlCommand
        cmdUpdate.Connection = cn
        cmdUpdate.CommandText = "update profs set name=@name,age=@age,photoprof=@photop where idprof=@idp"

        cmdUpdate.Parameters.Clear()

        Dim pr_id As New SqlParameter("@idp", SqlDbType.Int, 4)
        pr_id.Value = CType(txtIDP.Text, Integer)
        cmdUpdate.Parameters.Add(pr_id)

        Dim pr_name As New SqlParameter("@name", SqlDbType.NVarChar, 50)
        pr_name.Value = txtname.Text
        cmdUpdate.Parameters.Add(pr_nomprof)

        Dim pr_age As New SqlParameter("@age", SqlDbType.NVarChar, 50)
        pr_age.Value = txtage.Text
        cmdUpdate.Parameters.Add(pr_prenprof)

Dim pr_photoprof As New SqlParameter("@photop", SqlDbType.Image)
        pr_photoprof.Value = GetImageByte(OpenFileDialog1.FileName)
        'pr_photoprof.Value = picProf.Image
        cmdUpdate.Parameters.Add(pr_photoprof)

If cn.State Then cn.Close()

        cn.Open()
        cmdUpdate.ExecuteNonQuery()
        cn.Close()
        cmdUpdate.Dispose()

        MsgBox("تمت عملية التعديل و الحفظ بنجاح")

End Sub