saba_rgh
سه شنبه 26 آذر 1387, 11:29 صبح
از این کد برای ذخیره عکس در sqlserver استفاده کردم. ولی نمیتونم عکسها را در فرمم نمایش بدم.ممنون میشم راهنمائی کنید.
Dim stm As adodb.Stream
Set stm = New adodb.Stream
stm.Type = adTypeBinary
stm.Open
stm.LoadFromFile (App.Path + "\tmp\Pic" & list_image.List(x) & ".bmp")
rst_pic!DIM_Image = stm.Read
stm.Close
Set stm = Nothing
Dim stm As adodb.Stream
Set stm = New adodb.Stream
stm.Type = adTypeBinary
stm.Open
stm.LoadFromFile (App.Path + "\tmp\Pic" & list_image.List(x) & ".bmp")
rst_pic!DIM_Image = stm.Read
stm.Close
Set stm = Nothing