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

[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]

سلام دوست عزیز یه سری به این قسمت بزن انشا.. مشکلت حل میشه اینجــــــــــــــا

[meysam jahedi]

سلام دوست عزیز یه سری به این قسمت بزن انشا.. مشکلت حل میشه اینجــــــــــــــا

ممنون دوست عزیز

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

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/..._Access_db.rar

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