منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
مشكلة في التعديل على البيانات من بينها عمود من نوع صورة - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم قواعد البيانات (http://vb4arb.com/vb/forumdisplay.php?fid=40)
+--- قسم : قسم أسئلة قواعد البيانات تحت بيئة الـ.NET (http://vb4arb.com/vb/forumdisplay.php?fid=41)
+--- الموضوع : مشكلة في التعديل على البيانات من بينها عمود من نوع صورة (/showthread.php?tid=9969)

مشكلة في التعديل على البيانات من بينها عمود من نوع صورة - Azzedine2013 - 08-08-13

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

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

لدي جدول واحد في قاعدة البيانات يحتوي على الحقول التالية : 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


مشكلة في التعديل على البيانات من بينها عمود من نوع صورة - سعود - 08-08-13

كود :
[color=#333333]photoprof=@photop where idprof=@idp[/color]
لا ادري لكن انت متاكد ان اختلاف البارامتر اللي قبل @ عن مابعدها صحيح؟؟؟

مشكلة في التعديل على البيانات من بينها عمود من نوع صورة - kslawy - 08-08-13

السلام عليكم ورحمة الله وبركاته
اهنئك بعيد الفطر المبارك
اعتقد ان الخطأ في الجزئية التالية :

كود :
Dim [b][color=#0000ff]pr_name[/color][/b] As New SqlParameter("@name", SqlDbType.NVarChar, 50)
pr_name.Value = txtname.Text
cmdUpdate.Parameters.Add([b][color=#ff0000]pr_nomprof[/color][/b])

Dim [b][color=#0000ff]pr_age[/color][/b] As New SqlParameter("@age", SqlDbType.NVarChar, 50)
pr_age.Value = txtage.Text
cmdUpdate.Parameters.Add([color=#ff0000][b]pr_prenprof[/b][/color])
الملون بالأزرق يجب أن يكون محل الملون بالأحمر .

****
***
**
*