نوشته شده توسط
aidinwashere
اولا باید توی بانک یه فیلد از نوع Image داشته باشین
برای ذخیره عکس در بانک:
Dim mystream As ADODB.Stream
Set mystream = New ADODB.Stream
mystream.Type = adTypeBinary
mystream.Open
Conn.Open
mystream.LoadFromFile CommonDialog1.FileName
recordSet("picture").Value = mystream.Read
mystream.Close
rs.Update
Conn.Close
فک میکنم مفهوم باشه.
CommonDialog1 یک Common Dialog Box هست که برای انتخاب فایل بکار میره.
RecordSet هم که مشخصه.
ضمنا قبل از اجرای این دستورات باید یک Connection باز داشته باشین, ادامه دستورات رو ننوشتم چون بستگی به پروژه شما داره.
برای خوندن از بانک:
Dim strStream As ADODB.Stream
Set strStream = New ADODB.Stream
strStream.Type = adTypeBinary
strStream.Open
strStream.Write rstRecordset.Fields("Picture").Value
strStream.SaveToFile "C:\Temp.bmp", adSaveCreateOverWrite
Image1.Picture = LoadPicture("C:\Temp.bmp")
Kill ("C:\Temp.bmp")
همونطور که میبینین از Stream ها استفاده شده و خروچی در یک کنترل Image نمایش داده میشه.
نکته, نام فیلد عکسی در بانک, Picture بوده.
سوالی بود در خدمتم.