منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب - كيفية تحميل صورة من قاعدة بيانات اكسس 2010

السلام عليكم
اريد تحميل صورة من قاعدة البيانات ( اكسس 2010) مخزنة بطريقة الباينري الى صندوق صورة ( picture box ) في فيجوال بيسك 2008 .
ارجو لمن عنده خبرة من الاخوة ان يفيدني ... عرقلة اخرتني ... حاولت اكثر من مرة .... بارك الله فيكم ...
شكرا جزيلا
السلام عليكم ..

اخى عن طريق الميمورى ستريم اولا دى دالة انا عملتها عندى عشان تجلب لى الصورة حسب جملة الاستعلام ومن خلال فتح الاتصال لدى 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(mss

وشكر خاص للاخ ممدوح

بارك الله فيه اخي محمود ... تم حل المشكلة بحمد الله ... والشكر للجميع

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

نوريس

محمود بكرى

نوريس