منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

نسخة كاملة : الكود الخاص بحفظ و جلب صورة Image من و إلى قاعدة بيانات
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
السلام عليكم و رحمة الله و بركاته

إذا أمكن اخوانى أريد الكود الخاص بحفظ و جلب  صورة Image لقاعدة بيانات  Sql
شكرا
وعليكم السلام ورحمة الله وبركاته
في سيكوال الحقل المخصص لحفظ الصورة فيه يجب ان image
في فيجوال بيسك يجب ان تستخدم الاداة picturebox
ثم
كود :
Dim aaa As New MemoryStream
           pic.Image.Save(aaa, pic.Image.RawFormat)
           Dim bimag As Byte() = aaa.ToArray()

الان انت حصلت على متغير bimag ويحتوي الصورة قم بحفظ المتغير اقصد انت تعرف كيف تحفظ قيمة  تيكست بوكس مثلا احفظ المتغير مثل كأنك تحفظ  تيكست بوكس في السيكوال

اما عرض الصورة المحفوظة في جدول في سيكوال

كود :
   Dim imgByteArray() As Byte
           imgByteArray = dt.Rows(0).Item(10)
           Dim Stream As New MemoryStream(imgByteArray, True)
           Dim Img As System.Drawing.Image = New Bitmap(Stream)
           pic.Image = Img
في هذا الكود نحن احضرنا الصورة وافرغناها في pic حيث هي picturebox 

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

كود :
Dim Img As System.Drawing.Image = New Bitmap(Stream)
Parameter is not valid
علما بأن اصدار ال VB.net عندى 2015
جرب استيراد المكتبة التالية
Imports System.IO
جربت استخدام المكتبة التى أشرت إليها ولكن الخطأ مازال موجود
(13-08-21, 03:07 PM)mmaalmesry كتب : [ -> ]جربت استخدام المكتبة التى أشرت إليها ولكن الخطأ مازال موجود

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