ذخیره عکس در بانک اکسس

[vahid_boy1]

سلام دوستان
کسی میتونه نحوه ذخیره عکس در بانک اکسس رو توضیح بده ؟
ممنون میشم

[vb_nima]

من در چند پست قبل ذخیره در sql را پرسیده بودم می تونی سرچ کنی .روشش فرق نداره
در اکسس باید از نوع داده ای ole (فکر کنم) استفاده کنی.
عکسی که در picture box وجود دارد را با تابع savepicture() در یک فایل موقت سیو کن.
یک آرایه از نوع بایت تعریف کنید.
با استفاده از تابع filelen() طول فایل موقت ذخیره شده را بدست آورید و سپس با دستور redim طول آرایه ی بایت را برابر با طول فایل کنید.

[vb_nima]

Dim bPic() as byte

dim lenght as long

savepicture(picture1.picture,app.path & "\temp.pic")

lenght=filelen(app.path & "\temp.pic")

redim bPic(lenght

)
اکنون فایل را به صورت باینری باز می کنیم و اطلاعات فایل را در آرایه می ریزیم.

open app.path & "\temp.pic" for binary as #1
get #1,,bPic
close #1

سپس با استفاده از recordset ومتد appendchunk آرایه را ذخیره می کنیم.

RS.fields("pic").appendchunk(bPic

)

[vb_nima]

برای باز کردن تصویر دوباره از همون متغیر آرایه و متغیر lenght استفاده کن.
طول فیلد را با استفاده از تابع lenB داخل متغیر lenght بریز و دوباره آرایه زا redim کن

lenghtlenB(RS!pic)
redim bPic(lenght)

حالا با استفاده از getchunk مقدار فیلد را در آرایه بریز

RS.fields("pic").getchunk(lenght)

درست یادم نیست تو دستور بالا lenght را احتیاج بود یانه.
در مرحله بعد این آرایه را در یک فایل موقت ذخیره کن

open app.path & "\temp.pic" for binary as #1
put #1,,bPic
close #1

حالا با استفاده از متد load picture تصویر را باز کن

picture1.picture=loadpicture(app.path & "\temp.pic

")

امیدوارم مفید بوده باشه.

[CodeMasterX]

البته آخرین جواب به این سوال رو من نوشتم !
توی همین بخش جستجو کن با همین موضوع صد تا تاپیک هست!
قبلا توضیح داده شده،روش کار هم همون کدی هست که vb_nima اشاره کرد و یه روش دیگه استفاده از آبجکت Stream در ADO هست.