Retrieve Image from Database in WPF using Visual Basic

Before start learning about how to retrieve image from database, you should know how to insert an image in the database, to learn how to save an image to database click the button below 

Start learning how to retrieve image from database

Tools used:

• Microsoft SQL Server 2008
• Microsoft Visual Studio 2010

Structure of the Table "ImgContainer" -

User Interface of the application:

Controls available in user interface:

1. ListBox (ListBox1) - ListBox1 is used to show the image files available in the database.
2. Image Control (Image1) - It is used to display the selected image from the ListBox control.
3. Button1 - It is used to close the application
4. Button2 - You can minimize the application to the taskbar by pressing this button control.

Code to Display images in the ListBox Control:

        Dim con As New SqlConnection("Data Source=.;uid=sa;pwd=wintellect;database=MYDATABASE")
        con.Open()
        Dim dad As SqlDataAdapter = New SqlDataAdapter("select Id, Name from ImgContainer", con)
        Dim dst As New DataSet
        dad.Fill(dst, "ImgContainer")
        con.Close()
        Dim datarow As DataRow
        For Each datarow In dst.Tables(0).Rows
            Dim lbitem As New ListBoxItem
            lbitem.Content = datarow(1).ToString
            lbitem.DataContext = datarow(0).ToString
            ListBox1.Items.Add(lbitem)
        Next

Code to Display selected image in the Image Control:

        Dim con As New SqlConnection("Data Source=.;uid=sa;pwd=wintellect;database=MYDATABASE")
        Dim lbitem As ListBoxItem = TryCast(ListBox1.SelectedItem, ListBoxItem)
        Dim dst As New DataSet
        con.Open()
        Dim dad As New SqlDataAdapter("Select ImgData from ImgContainer where Id='" + lbitem.DataContext.ToString + "'", con)
        dad.Fill(dst)
        con.Close()
        dad.Fill(dst, "ImgContainer")
        con.Close()
        Dim ImgSource() As Byte = DirectCast(dst.Tables(0).Rows(0)(0), Byte())
        Dim stream As MemoryStream = New MemoryStream()
        stream.Write(ImgSource, 0, ImgSource.Length - 1)
        stream.Seek(0, SeekOrigin.Begin)
        Dim bitmap As New BitmapImage
        bitmap.BeginInit()
        bitmap.StreamSource = stream
        bitmap.EndInit()
        If bitmap.Width < 390 Or bitmap.Height < 340 Then
            Image1.Stretch = Stretch.None
            Image1.VerticalAlignment = Windows.VerticalAlignment.Center
            Image1.HorizontalAlignment = Windows.HorizontalAlignment.Center
            Image1.Source = bitmap
        Else
            Image1.Stretch = Stretch.Uniform
            Image1.VerticalAlignment = Windows.VerticalAlignment.Center
            Image1.HorizontalAlignment = Windows.HorizontalAlignment.Center
            Image1.Source = bitmap

Output:

I hope this article is helpful .....

---------------------------------------------------------------------------------------------
Nothing rubbish here, each article is valuable for needy