2 ضمیمه
ذخیره و بازیابی تصویر در اکسس از طریق دیتاست
سلام
تو دیتاست یه کوئری ساده دارم که باهاش عکس رو میفرستم به دیتابیس اکسس
با دستورات زیر این کوئری رو صدا میزنم و عکس رو هم میفرستم
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
ممنون دوست عزیز
میخوام از دستورات زیر استفاده کنم اما نمیدونم چجوری :
نقل قول:
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()
نقل قول: ذخیره و بازیابی تصویر در اکسس از طریق دیتاست
دوستان کسی نمونه برنامه ذخیره و بازیابی عکس تو دیتابیس از طریق دیتاست های آماده رو نداره
نقل قول: ذخیره و بازیابی تصویر در اکسس از طریق دیتاست
سلام
این برنامه رو من داشتم تو سیستم ولی از دیتا دیبتل و دیتا ست استفاده نمیشه
و برای خواندن و ثبت اطلاعات در بانک از oledbcommand - oledbdatareader - oledbconnection
چقدر سایت برنامه نویس برای ارسال فایل مسخره شده نمیشه یک سورس کیلو بایتی رو بفرستی روی سایت
http://s8.picofile.com/d/8281560718/..._Access_db.rar
موفق باشی
یا علی