تصویر در دیتابیس ؟

[RezaJP]

چطوری میشه توسط کد و بدون استفاده از کنترل ... تصویر رو در دیتابیس ذخیره و نیز لود کرد؟ :oops: :گیج:

[ehsan707]

خوب یه خورده درد سر داره در وی بی ولی توی وی بی دات نت تقریبا سر راسته
باید فایل رو باطنری بخونی و به یک فیلد از توع باینری بفرستی

[RezaJP]

توی VB چی؟

[ehsan707]

راستش عالبا پیشتهاد میشه که یه فلدر رو بسازی و تصویرها رو در اون قرار بدی و به برنامه آدرس اون فلولدر رو بدی
ولی کار نشد نداره

[ehsan707]

باید فایل رو باینری کنی و بعدش هم

object.AppendChunk Data
و مثلا اگه تصویر داری

CommonDialog1.Filter = "(*.bmp;*.ico;*.gif;*.jpg)/*.bmp;*.ico;*.gif;*.jpg"
CommonDialog1.ShowOpen
PictBmp = CommonDialog1.FileName
بعد فایل رو باینری باز کن



SourceFile = FreeFile
Open PictBmp For Binary Access Read As SourceFile

و رکورد رو اضافه کن


Get SourceFile, , ByteData() 'Reads data from an open disk file into ByteData()
Rs(1).AppendChunk ByteData() 'Appends the left over data first

و بعد ذخیره



Rs.Update 'Commit the new data.
Close SourceFile

و برای خوندنش






DiskFile = App.Path & "\image1.bmp"

If Len(Dir$(DiskFile)) > 0 Then
Kill DiskFile
End If

DestFileNum = FreeFile
Open DiskFile For Binary As DestFileNum

و


ByteData() = Rs(1).GetChunk(LeftOver)
Put DestFileNum, , ByteData() 'write data from a variable to disk file

دست آحر



Close DestFileNum

Image1.Visible = True
Image1.Picture = LoadPicture(App.Path & "\image1.bmp")

[javid_p84]

سلام
آقا منم این مشکل رو دارم
این چیزیم که شما نوشتین نتونستم run کنم
میشه بیشتر توضیح بدید؟

[Typisch_VB6]

bacheha ye control image begzarid baad DataSourcesho be datatoon va datafieldesho be ye field binery ke az ghabl sakhtin rabt bedin

bad maalome type konid


Data1.recordset.addnew
:D :sunglass: :wink: