+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [VB.NET] كيفية تحميل صورة من قاعدة بيانات اكسس 2010 (/showthread.php?tid=17944)
كيفية تحميل صورة من قاعدة بيانات اكسس 2010 - نوريس - 07-11-16
السلام عليكم
اريد تحميل صورة من قاعدة البيانات ( اكسس 2010) مخزنة بطريقة الباينري الى صندوق صورة ( picture box ) في فيجوال بيسك 2008 .
ارجو لمن عنده خبرة من الاخوة ان يفيدني ... عرقلة اخرتني ... حاولت اكثر من مرة .... بارك الله فيكم ...
شكرا جزيلا
السلام عليكم ..
RE: كيفية تحميل صورة من قاعدة بيانات اكسس 2010 - محمود بكرى - 07-11-16
اخى عن طريق الميمورى ستريم اولا دى دالة انا عملتها عندى عشان تجلب لى الصورة حسب جملة الاستعلام ومن خلال فتح الاتصال لدى dal.open
كود :
()Function showimage(ByVal poto As Integer) As Byte
()dal.open
Dim cm As New OleDbCommand
With cm
Connection = dal.conn.
CommandType = CommandType.Text.
"CommandText = "select cplogo from settingt where id =5.
End With
()Dim myphoto() As Byte = CType(cm.ExecuteScalar()), Byte
()dal.close
Return myphoto
End Functionتضع الاتصال بتاع حضرتك ده مثال عندى وجملة الاستعلام تغيرها
تستخدم الكود التالى للاظهار فى مربع الصورة
كود :
((Dim mss As New MemoryStream(showimage(5
(PictureBox1.Image = Image.FromStream(mssRE: كيفية تحميل صورة من قاعدة بيانات اكسس 2010 - نوريس - 09-11-16
بارك الله فيه اخي محمود ... تم حل المشكلة بحمد الله ... والشكر للجميع