+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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=36759)
خطأ في الحفظ بدون صورة - sofiane-phy - 24-10-20
السلام عليكم
من فظلكم تصحيح الكود عند حفظ الصنف بإضافة صورة يحفظ عادي بدون مشاكل
لكن عند الحفظ بدون صورة يأتي هذا الخطأ
و ايضا نفس الشيئ بالنسبة للتعديل عند تغيير الصورة يعدل الصنف عادي بدون مشاكل
اما عند ابقاء الصورة السابقة المستوردة من قاعدة البيانات و الضغط على تعديل يأتي هذا الخطأ
RE: خطأ في الحفظ بدون صورة - سعود - 24-10-20
الموضوع بسيط لكن شلون اشرحه لك؟
اكتب بارامترين للحفظ
واحد يحتوي حفظ صورة وآخر بدون حفظ صورة.
#29
RE: خطأ في الحفظ بدون صورة - sofiane-phy - 24-10-20
ممكن حل أخر بدون التكرار يعني كود واحد يفي بالغرض
RE: خطأ في الحفظ بدون صورة - سعود - 24-10-20
(24-10-20, 01:27 AM)sofiane-phy كتب : ممكن حل أخر بدون التكرار يعني كود واحد يفي بالغرض
هو اللي حيتنفذ كود واحد فقط لكن بناء على شرط هل الميموري ستريم فارغة ام لا ان كانت فارغة هذا يعني لم يتم اختيار صورة سواءا كجديد او تعديل.
PHP كود :
Dim row As DataRow = dt.NewRow
row(1) = tname.Text
row(2) = CDate(dob.Text).ToShortDateString
If IsNothing(ms) = False Then
row(3) = ms.ToArray
End If
dt.Rows.Add(row)
da.Update(dt)
ms = Nothing
PHP كود :
Dim i As Integer = BindingContext(dt).Position
Dim row As DataRow = dt.Rows(BindingContext(dt).Position)
row.BeginEdit()
row(1) = tname.Text
row(2) = CDate(dob.Text).ToShortDateString
If IsNothing(ms) = False Then
row(3) = ms.ToArray
End If
row.EndEdit()
da.Update(dt)
ms = Nothing
الكود اللي كتبته كفكرة فقط بالاتصال المنفصل.
RE: خطأ في الحفظ بدون صورة - sofiane-phy - 24-10-20
ممكن تصحيح الكود
كود :
'************************كود فك تشفير الصورة****************************
If IsDBNull(DR!ItemPicture) = False Then
Dim imgByteArray() As Byte
imgByteArray = CType(DR!ItemPicture, Byte())
Dim Stream As New MemoryStream(imgByteArray)
Dim bmp As New Bitmap(Stream)
ItemPicture.Image = Image.FromStream(Stream)
Stream.Close()
End If
Else
If OpenFileDialog1.FileName <> "" Then
Dim imgBYteArray() As Byte
Dim Stream As New MemoryStream
ItemPicture.Image.Save(Stream, ImageFormat.Jpeg)
imgBYteArray = Stream.ToArray()
Stream.Close()
DR!ItemPicture = imgBYteArray
End If
'*************************************RE: خطأ في الحفظ بدون صورة - معاند الحظ - 24-10-20
يا اخي هل فكرت تضع شرط if للتحقق مما اذا كان الـ stream فارغ تنفذ حفظ التعديل او البيانات بدون جزء حفظ الصورة
وعلى العكس تنفذ الكود كاملا
RE: خطأ في الحفظ بدون صورة - kiki - 24-10-20
فقط اذا كنت لا تريد التكرار وما شبه
هو انشاء صورة بمقاس 1×1 بكسل
ومن ثم انشاء شرط تحقق اذا كان اداء الصورة فارغ / غير محدد
يقوم باستعانة مسار الصورة الافتراضية التى تم تصميمها بمقاس 1×1
وبكده تكون انهيت المشكلة
RE: خطأ في الحفظ بدون صورة - سعود - 24-10-20
(24-10-20, 02:15 AM)sofiane-phy كتب : ممكن تصحيح الكوداخي الكريم
كود :
'************************كود فك تشفير الصورة****************************
If IsDBNull(DR!ItemPicture) = False Then
Dim imgByteArray() As Byte
imgByteArray = CType(DR!ItemPicture, Byte())
Dim Stream As New MemoryStream(imgByteArray)
Dim bmp As New Bitmap(Stream)
ItemPicture.Image = Image.FromStream(Stream)
Stream.Close()
End If
Else
If OpenFileDialog1.FileName <> "" Then
Dim imgBYteArray() As Byte
Dim Stream As New MemoryStream
ItemPicture.Image.Save(Stream, ImageFormat.Jpeg)
imgBYteArray = Stream.ToArray()
Stream.Close()
DR!ItemPicture = imgBYteArray
End If
'*************************************
ان لم اخطيء فان الاجرائين اللذين كتبتهما تلو بعض غير مناسبة!
الاول يعين صورة مخزنة في القاعدة في مربع صورة والاخر يقوم بعملية عكسية اي يحفظ الصورة من مربع الصورة للجدول.
كونهم تلو بعض هذه هي المشكلة.
أم ان المطلوب شيء آخر.