displaying image

[aamir55]

i have written small program to store image in database.
i m using a button for save and a listbox
code for saving:

  Dim dlg As OpenFileDialog = New OpenFileDialog()
        dlg.Filter = "All Pictures|*.bmp;*.gif;*.jpg|Bitmaps|*.bmp|GIFs|*.gif|JPEGs|*.jpg"
        If dlg.ShowDialog() = Windows.Forms.DialogResult.OK Then

            PictureBox1.Image = New Bitmap(dlg.FileName)
            Dim name As String = dlg.FileName.ToString
            'Substring(dlg.FileName.LastIndexOf("\") + 1, dlg.FileName.Length - dlg.FileName.LastIndexOf("\") - 1)

        End If
        Dim mstr As IO.MemoryStream = New IO.MemoryStream()
        PictureBox1.Image.Save(mstr, PictureBox1.Image.RawFormat)
        Dim arrImage As Byte() = mstr.GetBuffer()
        Dim cmd As String = "insert into tblImgData (ID,Name, Picture) values (@ID,@Name, @Pic)"
        Dim c As SqlConnection = New SqlConnection(c_string)
        Dim comm As SqlCommand = New SqlCommand(cmd, c)
        comm.Parameters.Add(New SqlParameter("@ID", SqlDbType.Int, 4)).Value = CInt(TextBox1.Text)
        comm.Parameters.Add(New SqlParameter("@Name", SqlDbType.VarChar, 40)).Value = Name
        comm.Parameters.Add(New SqlParameter("@Pic", SqlDbType.Image)).Value = arrImage
        Try

            c.Open()
            comm.ExecuteNonQuery()

        Catch err As SqlException

            MessageBox.Show(err.Message)

        Finally

            c.Close()

        End Try

        listBox1.Items.Add(Name)
    End Sub

now when a image is saved in database ,this image is also added in listbox
so when i click on an item in listbox then corresponding image does not displayed in picture box
i m using selected index change.

Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged
        If ListBox1.SelectedIndex < 0 Then

            MessageBox.Show("Please select a picture from the ListBox")

        Else
            
            Dim cmd As String = "select Picture from tblImgData where ID=" & ListBox1.SelectedIndex & ";"
            Dim cc As SqlConnection = New SqlConnection(c_string)
            Dim com As SqlCommand = New SqlCommand(cmd, cc)
           
            Try

                cc.Open()
                Dim b As Byte() = CType(com.ExecuteScalar(), Byte())
                Dim mem As IO.MemoryStream = New IO.MemoryStream(b)
                com.Parameters.Add("@ID", SqlDbType.Int, 4)
                com.Parameters.Add("@Name", SqlDbType.VarChar, 40).Value = Name
                com.Parameters.Add("@Pic", SqlDbType.Image).Value = b
                PictureBox1.Image = Image.FromStream(mem)

            Catch ee As Exception

                MessageBox.Show(ee.Message)

            Finally

                cc.Close()

            End Try
        End If
    End Sub

can any body tell me what is problem here??
thanks

[dglienna]

This:

TextBox1.Text

is probably not the same as the ListBox1.SelectedIndex that you are searching for.