الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

مشكلة في هذا الكود اضاافة صورة الى القاعدة

بدأه toufeek1980 في 1 سبتمبر 2008 · 3 رد · 925 مشاهدة · في Microsoft Visual Basic.NET
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

السلام عليكم

شهر مبارك وكل عام وانتم بخير وتقبل الله منا منكم صالح الاعمال

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

s = "Provider=MSDAORA.1;Password=aq;User ID=aq;Persist Security Info=True"

conn.ConnectionString = s

Dim cmd As New OdbcCommand("UPDATE im SET m = @m WHERE n = 1", conn)

Using picture As Image = Image.FromFile("d:\2.jpg")

Using stream As New IO.MemoryStream

picture.Save(stream, Imaging.ImageFormat.Jpeg)

cmd.Parameters.Add("@m", OdbcType.Image).Value = stream.GetBuffer()

End Using

End Using

conn.Open()

cmd.ExecuteReader()

conn.Close()

#3

جزاك الله خير اخي

بقي لي كيف ان اقرا الصورة المخزنة من قاعدة البيانات الى picturebox على الفورم

#4

اقرأ القيمة من قاعدة البيانات و حولها إلى مصفوفة من نوع Byteثم حملها في memorystream و حولها إلى image

dim byteArray as Byte() = ctype(valueFromDatabase, Byte())
dim memStream as New MemoryStream(byteArray)
dim newImage as Image = Image.LoadFromStream(memStream)

مواضيع مشابهة

عدد الزوار حالياً

المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية

—الإجمالي—أعضاء مسجّلون—زوار بدون تسجيل

جارٍ التحقق من المتواجدين…