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

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

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : مطلوب التعديل على الكود- مشكلة في حفظ الصوره من داتا جريد الى قاعدة سيكوال سيرفر (/showthread.php?tid=42548)

مطلوب التعديل على الكود- مشكلة في حفظ الصوره من داتا جريد الى قاعدة سيكوال سيرفر - momani33 - 26-09-22

السلام عليكم :
لدي الكود التالي لحفظ صوره من ال(datagridview) الى قاعدة البيانات وهذا الكود يعمل بشكل جيد عندما تكون الصوره موجودة ، اما في حال كانت الصوره غير موجوده في الداتا جريد يحدث خطا
ما الطريقه التي يمكن تعديل الكود لحفظ الصوره في حال كانت موجوده في الداتا جريد وعدم حفظها في حال كانت الخليه الخاصة بالصوره في الداتا جريد فارغه

Dim ms As New MemoryStream()
                    Dim p As New SqlParameter("@item_pic", SqlDbType.Image)
                    dgv_unit.Rows(i).Cells(11).Value.Save(ms, System.Drawing.Imaging.ImageFormat.Jpeg)
                    Dim picture() As Byte = ms.ToArray
                    .Parameters.AddWithValue("@item_pic", SqlDbType.Image).Value = picture

ولكم مني جزيل الشكر

RE: مطلوب التعديل على الكود- مشكلة في حفظ الصوره من داتا جريد الى قاعدة سيكوال سيرفر - أبو خالد الشكري - 27-09-22

(26-09-22, 03:33 PM)momani33 كتب : السلام عليكم :
لدي الكود التالي لحفظ صوره من ال(datagridview) الى قاعدة البيانات وهذا الكود يعمل بشكل جيد عندما تكون الصوره موجودة ، اما في حال كانت الصوره غير موجوده في الداتا جريد يحدث خطا
ما الطريقه التي يمكن تعديل الكود لحفظ الصوره في حال كانت موجوده في الداتا جريد وعدم حفظها في حال كانت الخليه الخاصة بالصوره في الداتا جريد فارغه

Dim ms As New MemoryStream()
                    Dim p As New SqlParameter("@item_pic", SqlDbType.Image)
                    dgv_unit.Rows(i).Cells(11).Value.Save(ms, System.Drawing.Imaging.ImageFormat.Jpeg)
                    Dim picture() As Byte = ms.ToArray
                    .Parameters.AddWithValue("@item_pic", SqlDbType.Image).Value = picture

ولكم مني جزيل الشكر

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

جرب الكود التالي :

كود :

  Dim ms As New MemoryStream()

        Dim p As New SqlParameter("@item_pic", SqlDbType.Image)

        If dgv_unit.Rows(i).Cells(11).Value <> "" Then

            dgv_unit.Rows(i).Cells(11).Value.Save(ms, System.Drawing.Imaging.ImageFormat.Jpeg)

            Dim picture() As Byte = ms.ToArray

            .Parameters.AddWithValue("@item_pic", SqlDbType.Image).Value = picture

        Else

            MsgBox("الصورة غير موجودة")

        End If

RE: مطلوب التعديل على الكود- مشكلة في حفظ الصوره من داتا جريد الى قاعدة سيكوال سيرفر - momani33 - 27-09-22

(27-09-22, 01:19 AM)أبو خالد الشكري كتب :
(26-09-22, 03:33 PM)momani33 كتب : السلام عليكم :
لدي الكود التالي لحفظ صوره من ال(datagridview) الى قاعدة البيانات وهذا الكود يعمل بشكل جيد عندما تكون الصوره موجودة ، اما في حال كانت الصوره غير موجوده في الداتا جريد يحدث خطا
ما الطريقه التي يمكن تعديل الكود لحفظ الصوره في حال كانت موجوده في الداتا جريد وعدم حفظها في حال كانت الخليه الخاصة بالصوره في الداتا جريد فارغه

Dim ms As New MemoryStream()
                    Dim p As New SqlParameter("@item_pic", SqlDbType.Image)
                    dgv_unit.Rows(i).Cells(11).Value.Save(ms, System.Drawing.Imaging.ImageFormat.Jpeg)
                    Dim picture() As Byte = ms.ToArray
                    .Parameters.AddWithValue("@item_pic", SqlDbType.Image).Value = picture

ولكم مني جزيل الشكر

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

جرب الكود التالي :

كود :

Dim ms As New MemoryStream() Dim p As New SqlParameter("@item_pic", SqlDbType.Image) If dgv_unit.Rows(i).Cells(11).Value <> "" Then dgv_unit.Rows(i).Cells(11).Value.Save(ms, System.Drawing.Imaging.ImageFormat.Jpeg) Dim picture() As Byte = ms.ToArray .Parameters.AddWithValue("@item_pic", SqlDbType.Image).Value = picture Else MsgBox("الصورة غير موجودة") End If

تظهر رسالة الخطا في المرفق

RE: مطلوب التعديل على الكود- مشكلة في حفظ الصوره من داتا جريد الى قاعدة سيكوال سيرفر - أبو خالد الشكري - 27-09-22

جرب الكود التالي ، إن شاء الله ينجح :

كود :

 Dim ms As New MemoryStream()

    Dim p As New SqlParameter("@item_pic", SqlDbType.Image)

    If dgv_unit.Rows(i).Cells(11).Value.ToString <> vbNullString Then

           dgv_unit.Rows(i).Cells(11).Value.Save(ms, System.Drawing.Imaging.ImageFormat.Jpeg)

           Dim picture() As Byte = ms.ToArray

    .Parameters.AddWithValue("@item_pic", SqlDbType.Image).Value = picture

    Else

           MsgBox("الصورة غير موجودة")

       End If

RE: مطلوب التعديل على الكود- مشكلة في حفظ الصوره من داتا جريد الى قاعدة سيكوال سيرفر - momani33 - 28-09-22

لم ينجح الكود واستمرار ظهور رسالة الخطا

RE: مطلوب التعديل على الكود- مشكلة في حفظ الصوره من داتا جريد الى قاعدة سيكوال سيرفر - Taha Okla - 28-09-22

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

ضع كودك بين دفتي هذا الشرط :

كود :

       If Not (DataGridView1.Rows(i).Cells(11).Value) Is Nothing Then

            ' هنا 

        End If