PDA

View Full Version : نمایش تصاویر ذخیره شده در بانک SQL در PictureBox



yekta1
پنج شنبه 20 اردیبهشت 1386, 02:01 صبح
سلام خدمت تمامی اساتید و دوستان عزیز
اگه ممکنه یکی لطف کنه کد نمایش تصاویر ذخیره شده در بانک SQL رو در یک PictuerBox را بذاره و اگه ممکن بود بفرمایید چطوری میشه از اون پرینت گرفت .
بی نهایت سپاسگرازم

nasser_p
پنج شنبه 20 اردیبهشت 1386, 03:06 صبح
Dim arrPicture As Byte() = CType(frmSearch.DataGrid1.Item(nr, 10), Byte())
Dim ms As New MemoryStream(arrPicture)
PictureBox1.Image = Image.FromStream(ms)
ms.Close


واسه پرینت آن فکر میکنم باید از گزارس گیری استفاده کنی.عکس ذخیره شده در پایگاه خیلی راحت در کریستال ریپورت جواب میدند

vb_nima
پنج شنبه 20 اردیبهشت 1386, 09:21 صبح
لطفا یه کم توضیح بدید و کدها را در تگ مناسب بنویسید.

vb_nima
پنج شنبه 20 اردیبهشت 1386, 09:39 صبح
این لینک را هم ببین من توضیح دادم هم ذخیره را هم باز کردن عکس را.
http://www.barnamenevis.org/forum/showthread.php?t=65904

CodeMasterX
پنج شنبه 20 اردیبهشت 1386, 17:23 عصر
اگر اطلاعات عکس رو بصورت باینری ذخیره کرده باشین راه حل یک خط هست:



Dim dataBytes() As Byte
rs.Open "SELECT ImageField FROM tbl_Information" , CN , adOpenStatic,adLockOptimistic

dataBytes = rs.Fields("ImageField").Value
Open App.Path & "\Picture.jpg" For Binary As #1
Put #1 , , dataBytes
Close #1

rs.Close
MsgBox "Done!" , vbInformation

engineer_vm
جمعه 21 اردیبهشت 1386, 20:35 عصر
سلام..
دوستمون آقای nasser_p گفته بودن: عکس ذخیره شده در پایگاه خیلی راحت در کریستال ریپورت جواب میدند...!
میخواستم بدونم شما نمونه برنامه داری که عکس از دیتابیس لود بشه و توی کریستال ریپورت نشون داده بشه.. منظورم توی net. بود ..
تا اونجا که من متوجه شدم با کریستال R2 11 میشه انکارو کرد اما متاسفانه هنوز من نتونستم..