[محمود بكرى]

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

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