WPF Retrieve Image from Database in VB.NET

You can easily learn that how to retrieve an image from database and display in WPF using VB.net.
  • 6253

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 

insertimageindatabase.png 

Start learning how to retrieve image from database

Tools used:

  • Microsoft SQL Server 2008
  • Microsoft Visual Studio 2010

Structure of the Table "ImgContainer" -

Column Name Data Type Description
Id Int Defines as Identity and handled by itself to generate and store the unique Id for each image stored in database
Name Varchar This field holds the name of each image
ImgData Image Image files are stored as binary in this column

User Interface of the application:

 retrievefromdb1.gif

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:

 retrievefromdb2.gif

I hope this article is helpful .....

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

Categories

More Articles

© 2019 DotNetHeaven. All rights reserved.