ذخیره و بازیابی تصویر در اکسس از طریق دیتاست

[meysam jahedi]

سلام

تو دیتاست یه کوئری ساده دارم که باهاش عکس رو میفرستم به دیتابیس اکسس
با دستورات زیر این کوئری رو صدا میزنم و عکس رو هم میفرستم

Try
Dim dialog As New OpenFileDialog()
dialog.Title = "Browse Picture"
dialog.Filter = "Image Files(*.BMP;*.JPG;*.GIF;*.PNG)|*.BMP;*.JPG;*.GIF;* .PNG"
If dialog.ShowDialog() = Windows.Forms.DialogResult.OK Then
pic.Image = Image.FromFile(dialog.FileName)
End If


Dim ms As New System.IO.MemoryStream
Dim bmpImage As New Bitmap(pic.Image)
bmpImage.Save(ms, System.Drawing.Imaging.ImageFormat.Jpeg)
bytImage = ms.ToArray()
ms.Close()
TblAdapter.InsertQuery1(bytImage)
MsgBox("با موفقیت ثبت شد", MsgBoxStyle.Information, "ثبت")


Catch ex As Exception
MsgBox(ex.Message)
End Try






با کوئری نوشتن توی دیتاست " چجوری میشه عکسی که ذخیره شده توی اکسس رو برگردونم توی picturebox نشون بدم ؟
(توی برنامه مستقیم از دیتاست آماده استفاده کردم و به صورت دستی کانکشن استرینگ و.. ننوشتم)
ممنونم

[hamidrezax1]

سلام دوست عزیز یه سری به این قسمت بزن انشا.. مشکلت حل میشه اینجــــــــــــــا (http://barnamenevis.org/showthread.php?65882-%D8%A7%D8%B6%D8%A7%D9%81%D9%87-%DA%A9%D8%B1%D8%AF%D9%86-%D8%B9%DA%A9%D8%B3-%D8%A8%D9%87-%D8%AF%DB%8C%D8%AA%D8%A7%D8%A8%DB%8C%D8%B3-%D8%A7%DA%A9%D8%B3%D8%B3)

[meysam jahedi]

سلام دوست عزیز یه سری به این قسمت بزن انشا.. مشکلت حل میشه اینجــــــــــــــا (http://barnamenevis.org/showthread.php?65882-%D8%A7%D8%B6%D8%A7%D9%81%D9%87-%DA%A9%D8%B1%D8%AF%D9%86-%D8%B9%DA%A9%D8%B3-%D8%A8%D9%87-%D8%AF%DB%8C%D8%AA%D8%A7%D8%A8%DB%8C%D8%B3-%D8%A7%DA%A9%D8%B3%D8%B3)
ممنون دوست عزیز

میخوام از دستورات زیر استفاده کنم اما نمیدونم چجوری :



Dim arrPicture() AsByte = CType(dsPictures.Tables(0).Rows(X)(Y), Byte())
Dim ms AsNew MemoryStream(arrPicture)
With PictureBox2
.Image = Image.FromStream(ms)
.SizeMode = PictureBoxSizeMode.StretchImage
.BorderStyle = BorderStyle.Fixed3D
EndWith
ms.Close()


توی دیتاست با یه کوئری سلکت میشه عکس رو از دیتابیس اکسس بیارم تو برنامه و تبدیل کنم؟

SELECT pickk
FROM tblAutoServic
WHERE (id = ?)

خروجی بهم از نوع دیتاتیبل میده ، میخوام وقتی روی یه سطر از datagridview میزنم ، از دیتابیسم عکس مربوط به اون رکورد رو بیاره تو picturebox ، اما نمیدونم چجوری
میتونم این کوئری رو با دستورات تبدیل به بایت و.. ترکیب کنم

Dim dt As New DataTable
dt = TblAdapter.getpickkk(dgv.CurrentRow.Cells(0).Value .ToString)
Dim arrPicture() As Byte = dt.Rows(0).Item("pickk")


Dim ms As New MemoryStream(arrPicture)


With pic


.Image = Image.FromStream(ms)


.SizeMode = PictureBoxSizeMode.StretchImage


.BorderStyle = BorderStyle.Fixed3D


End With


ms.Close()

[meysam jahedi]

دوستان کسی نمونه برنامه ذخیره و بازیابی عکس تو دیتابیس از طریق دیتاست های آماده رو نداره

[systam]

سلام
این برنامه رو من داشتم تو سیستم ولی از دیتا دیبتل و دیتا ست استفاده نمیشه
و برای خواندن و ثبت اطلاعات در بانک از oledbcommand - oledbdatareader - oledbconnection
چقدر سایت برنامه نویس برای ارسال فایل مسخره شده نمیشه یک سورس کیلو بایتی رو بفرستی روی سایت


http://s8.picofile.com/d/8281560718/4129518f-150a-48db-ac4d-bfc92fcefe39/Save_File_in_Access_db.rar

موفق باشی
یا علی