بازیابی عکس ار بانک

[toopak]

سلام دوستای گل
من میخوام از توی بانک یه سری اطلاعات رو توی فرم نمایش بدم
کدم اینه:


Dim cmdsql As New OleDbCommand
Dim inssql As String
cmdsql.Connection = con
inssql = "SELECT * FROM tbdrivers where tbdrivers.drid= " & Label1.Text
cmdsql.Connection = con
cmdsql.CommandText = inssql
Dim DR As OleDbDataReader
DR = cmdsql.ExecuteReader
If DR.HasRows = True Then
DR.Read()
TextBox4.Text = DR("drname")
TextBox1.Text = DR("drcartype")
TextBox3.Text = DR("dradd")
SlrTextbox2.Text = DR("drcarno")
SlrTextbox1.Text = DR("drtell")
SlrTextbox4.Text = DR("drmob")
Label9.Text = DR("drdevelop")
PictureBox1.Image = DR("drimg")


اما موقع اجرا ارور زیر رو میده


Unable to cast object of type 'System.Byte[]' to type 'System.Drawing.Image'

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

[amirsajjadi]

با سلام


Dim arrPicture() As Byte = CType(DR("drimg"), Byte())
Dim ms As New IO.MemoryStream(arrPicture)
PictureBox1.Image=Image.FromStream(ms)

[parsavb]

این برنامه (http://barnamenevis.org/forum/attachment.php?attachmentid=18564&d=1212407960) شاید به دردتون بخوره

[toopak]

با سلام


Dim arrPicture() AsByte = CType(DR("drimg"), Byte())
Dim ms AsNew IO.MemoryStream(arrPicture)
PictureBox1.Image=Image.FromStream(ms)

با تشکر اما این کد هم جواب نداد یعنی ارور میده



این برنامه (http://barnamenevis.org/forum/attachment.php?attachmentid=18564&d=1212407960) شاید به دردتون بخوره

این برنامه رو هم دریافت کردم
اما برنامه باز نمیشه :-(

[parsavb]

ببینید دوست عزیز اگه کد برنامه رو نگاه کرده باشی می بینی که موقع لود فرم برنامه دنبال دیتابیسی می گرده که عکسها رو از داخل اون لود کنه نام فیلدها رو از داخل برنامه بردار و جدولی رو توی بانکت به همان نامها ایجاد کن تا برنامه کار کنه

[toopak]

جناب parsavb میشه واضح تر توضیح بدید؟

[parsavb]

ببین عزیز دلم یعنی بایستی در بانک خودت جدولی رو با مشخصات زیر ایجاد کنی


نام فیلد = pic_id نوع فیلد = int
نام فیلد = pic_name نوع فیلد = nvarchar(30)
نام فیلد = pic_image نوع فیلد = image

کانکشن استرینگ خودت رو براساس مشخصات بانک خودت تنظیم کنی
your server = نام کامپیوتر مورد نظر
your data = نام بانک اطلاعاتی مورد نظر
username = نام کاربری
password = کلمه عبور




Dim pic_con As New SqlConnection("data source = your server;" & _
" Initial Catalog= your data ;" & _
" user id= username" & _
";password= password")