how we can insert the image in database in binary format

Question

0.00/5 (No votes)

See more:

VB

can u give the suggestion how can i insert image from picturebox in binary

Posted 23-Jul-12 23:32pm

sharath2122

Add a Solution

2 solutions

Add a Solution

Add your solution here

Treat my content as plain text, not as HTML

Preview 0

…

Existing Members

Sign in to your account

...or Join us

Download, Vote, Comment, Publish.

Your Email
Password
Forgot your password?

Your Email
This email is in use. Do you need your password?
Optional Password

I have read and agree to the Terms of Service and Privacy Policy
Please subscribe me to the CodeProject newsletters

When answering a question please:

Read the question carefully.
Understand that English isn't everyone's first language so be lenient of bad spelling and grammar.
If a question is poorly phrased then either ask for clarification, ignore it, or edit the question and fix the problem. Insults are not welcome.
Don't tell someone to read the manual. Chances are they have and don't get it. Provide an answer or move on to the next question.

Let's work to help developers, not make them feel stupid.

This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)

OriginalGriff · Answer 1 · 2012-07-24T00:21:00

Try:

VB

Dim ms As New MemoryStream()
imageIn.Save(ms, System.Drawing.Imaging.ImageFormat.Bmp)
Return ms.ToArray()

That converts an Image to an array of bytes.
And:

VB

Using con As New SqlConnection(strConnect)
	con.Open()
	Using com As New SqlCommand("INSERT INTO myTable (myColumn1, myColumn2) VALUES (@C1, @C2)", con)
		com.Parameters.AddWithValue("@C1", myValueForColumn1)
		com.Parameters.AddWithValue("@C2", myValueForColumn2)
		com.ExecuteNonQuery()
	End Using
End Using

That inserts items to a DB.

All you have to do is combine the two, and modify to fit your scheme.

Aarti Meswania · Answer 2 · 2012-07-24T00:18:00

Code for browse-save-retrieve image

VB

Private Sub btnBrowse_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnBrowse.Click
       Dim a As New OpenFileDialog
       a.Filter = "Image(*.jpg,*.png,*.bmp,*.JPeg,*.Gif)|*.jpg;*.png;*.bmp;*.JPeg;*.Gif;"
       a.Title = "Browse icon for ..."
       If a.ShowDialog = DialogResult.OK Then
           Dim img As Bitmap = Image.FromFile(a.FileName)
           img.SetResolution(72, 72)
           PictureBox1.BackgroundImage = img
           PictureBox1.BackgroundImageLayout = ImageLayout.Stretch
           IsChanged = True
       End If
   End Sub

VB

'''read image from picturebox an Save image in sql in binary format
'note  IsChanged is boolean variable, declare on page level, set it true when image is changed. do not update image when there is no change in it.
        If IsChanged = True Then
            IsChanged = False
            Dim stream1 As New IO.MemoryStream
            Dim img As Bitmap
            img = PictureBox1.BackgroundImage
            Using img
                Using stream As New IO.MemoryStream
                    Try
                        img.Save(stream, Imaging.ImageFormat.Bmp)
                    Catch ex As Exception
                        Try
                            img.Save(stream, Imaging.ImageFormat.Png)
                        Catch ex1 As Exception
                            Try
                                img.Save(stream, Imaging.ImageFormat.Gif)
                            Catch ex2 As Exception
                                Try
                                    img.Save(stream, Imaging.ImageFormat.MemoryBmp)
                                Catch ex3 As Exception

                                End Try
                            End Try

                        End Try
                    End Try
                    stream1 = stream
                    stream.Dispose()
                End Using
            End Using
            Try
                Cmd.CommandText = "update Dtl set Img=@Img"
                Cmd.Parameters.Clear()
                Cmd.Parameters.AddWithValue("@Img", stream1.GetBuffer)
                Cmd.ExecuteNonQuery()
                Cmd.Parameters.Clear()
                stream1.Dispose()
            Catch ex As Exception
            End Try

VB

'''fatch image from database & display in picture box
            Try
                Dim dt As New DataTable
                dt = DBGetData("select * from Dtl")
                For i = 0 To dt.Rows.Count - 1
                    txtNm.Text = dt.Rows(i)("Nm")
                    txtAdd.Text = dt.Rows(i)("Add")
                    txtWebsite.Text = dt.Rows(i)("Website")
                    txtMailId.Text = dt.Rows(i)("MailId")
                    txtCont1.Text = dt.Rows(i)("ContNo1")
                    txtCont2.Text = dt.Rows(i)("ContNo2")

                    Dim ImgData As Byte() = DirectCast(dt.Rows(i)("Img"), Byte())

                    Dim stream As New IO.MemoryStream(ImgData)
                    Using stream
                        Img = Image.FromStream(stream)
                    End Using
                    stream.Dispose()
                    PictureBox1.BackgroundImage = Img
                    PictureBox1.BackgroundImageLayout = ImageLayout.Stretch
                Next
            Catch ex As Exception
            End Try

Happy Coding!
:)

how we can insert the image in database in binary format

2 solutions

Solution 2

Solution 1

Add your solution here

Preview 0