ENG_Torshani
سه شنبه 15 دی 1388, 22:24 عصر
دوستان ممنون میشم یک نمونه کد از ذخیره عکس در sql به وسیله TSQL به صورت stream برام بذارین مشکل شدید دارم همه تایپیک ها رو هم خوندم.
رای ذخیره عکس در بانک اطلاعاتی SQL Server نوع فیلد عکسی را که در آن جای می گیرد Image انتخاب می کنیم .
برای فعال سازی در Reference موارد زیر را انتخاب می کنیم:
Microsoft ActiveX Data Objects 2.7 Library
Microsoft ActiveX Data Objects Recordset 2.7 Library
حالا دیگه تخصصی می شه !؟
خط زیر متغیری تعریف می کند که فایلی را (هر فایلی عکس , متن و ...) در آن جای می گیرد:
Public st As New ADODB.Stream
کامپوننت زیر را فعال کنید (البته نه شما استاد گرامی).
CommonDialog
بعد اگر بلد نباشید با اون کار کنید از دستورات زیر استفاده کنید :
dbDialog.DialogTitle = "Open File"
CdbDialog.Filter = "*.jpg"
CdbDialog.ShowOpen
(Picture1.Picture = LoadPicture(CdbDialog.FileName
خط زیر را هم برای ذخیره کردن عکس در مسیر زیر است :
SavePicture Picture1.Picture, "c:\arm.bmp"
توضیحات : عکس درون کنترلر Picture Box را فایل قرار می دهد .
st.Read
st.LoadFromFile ("c:\temp\arm.bmp")
SeatRS.Fields("picture").Value = st.Read
ممنون میشم اگه مشخص کنید چه جوری می شه با TSQl ذخیره کرد الان شما فایل باینری که خوانده میشه تو یک recorset می ریزین ولی اگر بخواهیم به این صورت ذخیره کنیم نمیشه
("INSERT INTO TBLStu(Img) VALUES('" + mystream.Read + "')")
اگه یک نمونه کد بزارین با بانک مجازی ممنون میشم
رای ذخیره عکس در بانک اطلاعاتی SQL Server نوع فیلد عکسی را که در آن جای می گیرد Image انتخاب می کنیم .
برای فعال سازی در Reference موارد زیر را انتخاب می کنیم:
Microsoft ActiveX Data Objects 2.7 Library
Microsoft ActiveX Data Objects Recordset 2.7 Library
حالا دیگه تخصصی می شه !؟
خط زیر متغیری تعریف می کند که فایلی را (هر فایلی عکس , متن و ...) در آن جای می گیرد:
Public st As New ADODB.Stream
کامپوننت زیر را فعال کنید (البته نه شما استاد گرامی).
CommonDialog
بعد اگر بلد نباشید با اون کار کنید از دستورات زیر استفاده کنید :
dbDialog.DialogTitle = "Open File"
CdbDialog.Filter = "*.jpg"
CdbDialog.ShowOpen
(Picture1.Picture = LoadPicture(CdbDialog.FileName
خط زیر را هم برای ذخیره کردن عکس در مسیر زیر است :
SavePicture Picture1.Picture, "c:\arm.bmp"
توضیحات : عکس درون کنترلر Picture Box را فایل قرار می دهد .
st.Read
st.LoadFromFile ("c:\temp\arm.bmp")
SeatRS.Fields("picture").Value = st.Read
ممنون میشم اگه مشخص کنید چه جوری می شه با TSQl ذخیره کرد الان شما فایل باینری که خوانده میشه تو یک recorset می ریزین ولی اگر بخواهیم به این صورت ذخیره کنیم نمیشه
("INSERT INTO TBLStu(Img) VALUES('" + mystream.Read + "')")
اگه یک نمونه کد بزارین با بانک مجازی ممنون میشم