خیلی خیلی فوری (باز کردن عکس از اکسس در vb

[اذین4000]

دوستان عزیز سلام من کاربر حرفه ای نیستم اما یک کار فوری برام پیش اومده اگه جواب بدین واقا ممنون میشم
من در اکسس2007 یک جدول دارم و توی اون عکس ها رو از طریق ole یا attachment وارد کردم اما نمیدونم وقتی توی vb2008 یک datasource ایجاد میکنم نمی تونم عکس ها رو موقع اجرای برنامه نمایش بدهم یعنی وقتی توی vb اسم و مشخصات افراد از توی اکسس اجرا می شه عکسشون هم بیاد....
لطفا به من کمک کنید خیلی مهمه..........

فقط اگه ممکنه ساده توضیح بدید

 

[mo.esmp]

awal inaro Import konid

System.Data.OleDb
System.Drawing
System.Drawing.Imaging
System.IO

#
Public Function GetImageFromDB(ByRef imageName As String) As Bitmap
#
    Try
#
        Dim conn As New OleDbConnection
#
        Dim cmd As OleDbCommand
#
        Dim reader As OleDbDataReader
#
 
#
        conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=|DataDirectory|\YourDBFile.mdb;User Id=YourUsername;Password=YourPassword;"
#
        conn.Open()
#
 
#
        cmd = conn.CreateCommand()
#
        cmd.CommandText = "SELECT Image FROM ImageTable WHERE ImageName = '" & imageName & "'"
#
 
#
        reader = cmd.ExecuteReader
#
 
#
        If reader.Read Then
#
            Dim imgByteArray() As Byte
#
 
#
            Try
#
                imgByteArray = CType(reader(0), Byte())
#
                Dim stream As New MemoryStream(imgByteArray)
#
                Dim bmp As New Bitmap(stream)
#
                stream.Close()
#
                Return bmp
#
            Catch ex As Exception
#
                MessageBox.Show(ex.Message)
#
                Return Nothing                   
#
            End Try
#
        End If
#
 
#
        reader.Close()
#
        conn.Close()
#
 
#
        cmd.Dispose()
#
        conn.Dispose()
#
    Catch ex As Exception
#
        MessageBox.Show(ex.Message)
#
        Return Nothing           
#
    End Try
#
End Function

 

[اذین4000]

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

 

[MDP]

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

باید یه کنترل عکس بزارید روی پیج !