How to display image in datagridview or picturebox from sqlserver?

[Prathap]

I am using vb.net.I want to display image in datagridview or picture box from sqlserver .Could someone please help me.

[Sivaranjani]

Hi,
See the Below codes, it may help for you.

.aspx Part
<asp:TemplateColumn HeaderText="Image">
<ItemTemplate>
<asp:Image
Width="150" Height="125"
ImageUrl='<%# FormatURL(DataBinder.Eval(Container.DataItem, "ImageID")) %>'
Runat=server />
</ItemTemplate>
</asp:TemplateColumn>

.vb Part
Public Sub Page_Load(sender As Object, e As EventArgs)

Dim strImageID as String = Request.QueryString("id")

' Create Instance of Connection and Command Object
Dim myConnection As New SqlConnection(ConfigurationSettings.AppSettings("C onnectionString"))
Dim myCommand As New SqlCommand("Select ImageType, Image from real_images Where ImageID=" & strImageID, myConnection)

' I have used the select statement. But it would be much much better, if you
'could write a small stored procedure which contains the above sql statement.
' Mark the Command as a SPROC (in case, if you wrote the stored procedure
'myCommand.CommandType = CommandType.StoredProcedure

Try
myConnection.Open()
Dim myDataReader as SqlDataReader
myDataReader = myCommand.ExecuteReader(CommandBehavior.CloseConne ction)
Do While (myDataReader.Read())
Response.ContentType = myDataReader.Item("ImageType")
Response.BinaryWrite(myDataReader.Item("Image"))
Loop
myConnection.Close()
Catch SQLexc As SqlException

End Try

End Sub

[Prathap]

Hi Sivaranjani,
Thanks for your concern.
I am new in vb.net. The image has been stored in sql server as <binary data> and i dont know how to convert it to display in picture box.Please tell me what are the changes should i made to get it to work.Here is the code which i have done so far

Imports System.Data.SqlClient
Imports System.Data
Public Class Edit_Employee
    Dim str As String = "Data Source=NET3\SQLEXPRESS;Initial Catalog=restpos;Persist Security Info=True;User ID=sa;Password=password"
    Dim ds As New DataSet
    Dim adp As New SqlDataAdapter
    Dim con As New SqlClient.SqlConnection
Private Sub Edit_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
     adp = New SqlDataAdapter("select Emp_Image from Employees where Emp_UserId=106",con)
     con.ConnectionString = str  
     adp.Fill(ds)      
     PictureBox1.Image = ds.Tables(0).Rows(0)
  End sub   
End Class 

[Prathap]

Getting error: Parameter is not valid,could someone please help.

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
con.ConnectionString = str
adp = New SqlDataAdapter("select Emp_Image from Employees where Emp_UserId='1' ", con)
adp.Fill(dsimage)
Dim saveImage As IO.MemoryStream
Dim imgByte As Byte()
If dsimage.Tables.Count > 0 Then
imgByte = dsimage.Tables(0).Rows(0)("Emp_Image")
saveImage = New IO.MemoryStream(imgByte)
PictureBox2.Image = Image.FromStream(saveImage)->Here i am getting error(parameter is not valid)
End If
End Sub

[LoanB]

Hi, Have a look at this:

''' <summary>
''' Convert a byte array to an Image
''' </summary>
''' <param name="NewImage">Image to be returned</param>
''' <param name="ByteArr">Contains bytes to be converted</param>
''' <remarks></remarks>
Public Sub Byte2Image(ByRef NewImage As Image, ByVal ByteArr() As Byte)
  '
  Dim ImageStream As MemoryStream
 
  Try
    If ByteArr.GetUpperBound(0) > 0 Then
      ImageStream = New MemoryStream(ByteArr)
      NewImage = Image.FromStream(ImageStream)
    Else
      NewImage = Nothing
    End If
  Catch ex As Exception
    NewImage = Nothing
  End Try
 
End Sub

Source and Credit to: http://windevblog.blogspot.com/2008/...-and-vice.html