تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
مشكلة في التعديل على البيانات من بينها عمود من نوع صورة
#1
السلام عليكم و رحمة الله و بركاته

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

لدي جدول واحد في قاعدة البيانات يحتوي على الحقول التالية : 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
الرد }}}}
تم الشكر بواسطة:
#2
كود :
[color=#333333]photoprof=@photop where idprof=@idp[/color]
لا ادري لكن انت متاكد ان اختلاف البارامتر اللي قبل @ عن مابعدها صحيح؟؟؟
أستودعكم الله الذي لا تضيع ودائعه أرجو ان تجدوا بمشاركاتي ما يجعلكم تدعون لي بخير ان تحتم غيابي.
رحمك الله أبا الليث
الرد }}}}
تم الشكر بواسطة:
#3
السلام عليكم ورحمة الله وبركاته
اهنئك بعيد الفطر المبارك
اعتقد ان الخطأ في الجزئية التالية :

كود :
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])
الملون بالأزرق يجب أن يكون محل الملون بالأحمر .

****
***
**
*
(وَقُل رَّبِّ زِدْنِي عِلْمًا)

الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  ظهور خطا عند سحب البيانات وعرضها في الداتا كريد باستخدم الـــ Threading HATEM KAREM 0 87 06-05-17, 04:45 PM
آخر رد: HATEM KAREM
  كيف اضيف صورة للفورم واجعلها ثابتة samawi 2 88 23-04-17, 01:55 PM
آخر رد: samawi
  مشكلة في تحزيم البرنامج samawi 2 80 23-04-17, 03:06 AM
آخر رد: samawi
  استفسار حول عدم تكرار البيانات المتألق9 3 152 02-04-17, 03:38 AM
آخر رد: حريف برمجة
  جلب البيانات من ملف txt djelloul 7 186 28-03-17, 03:20 PM
آخر رد: djelloul
  [سؤال] طلب صيغة عامة أو وظيفة لأضافة بيانات لقاعدة البيانات ؟ عبد الله 2 155 10-03-17, 09:36 AM
آخر رد: عبد الله
  سرعة ادخال البيانات داخل ملف اكسس atefkhalf2004 1 169 05-03-17, 04:06 AM
آخر رد: thevirus
  استعادة قاعدة البيانات من ملف النسخة الإحتياطية djelloul 2 171 28-02-17, 03:27 PM
آخر رد: djelloul
  [VB.NET] مشكلة في كود التعديل والحذف boofa2015 0 171 18-02-17, 01:58 PM
آخر رد: boofa2015
  فتح قاعدة البيانات محفوظة ب باسس ورد في جملة الاتصال ahmed_elwerfalli 2 160 13-02-17, 05:27 PM
آخر رد: ahmed_elwerfalli

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم