load picture from database access

[Hazuan Nazri]

Hello friends!
hope someone can help me, i have a problem to display picture from database access in picturebox, i already search it on google, maybe im not lucky today to find article about it. please teach me friend.

[mmcdonald]

Right forgive me but we're lost in translation. Are you simply trying to display an image in a MS Access database?

If so one simple Google search gave me a million more answers than I needed. Here is one :

http://support.microsoft.com/kb/285820

OR: http://lmgtfy.com/?q=show+image+in+microsoft+access+database

[Hazuan Nazri]

mmcdonald, Thanks for reply,
link that you give is a tutorial for display image IN ms access, My question is in the vb.net, so it necessarily is to display pictures FROM ms access TO VB.NET picturebox.
sorry....my english is not too good...

[mmcdonald]

Hey don't mention it :D Everyone has a mother tongue buddy! I just misunderstood because of access in the title.

Is this what you're looking for?
http://www.dreamincode.net/forums/topic/74114-a-really-simple-database/

[Hazuan Nazri]

Thanks, yup! im looking like that, but its using wizard to display the picture, for my apps i need to call the picture refer to the query in my form, this is my code:

    Private Sub txtNama_MouseClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles txtNama.MouseClick
        Dim ds As New DataSet
        Dim dt As New DataTable
        ds.Tables.Add(dt)
        Dim a As String = "SELECT NAMA, KURSUS FROM DAFTARPELAJAR WHERE NDP = @NDP"
        Dim b As New OleDbDataAdapter(acscmd)

        acscmd.CommandText = a
        With acscmd.Parameters
            .AddWithValue("@NDP", Trim(txtNDP.Text))
        End With
        b.Fill(dt)
        txtNama.Text = dt.Rows(0).Item(0)
        txtKursus.Text = dt.Rows(0).Item(1)
        acscmd.Parameters.Clear()
    End Sub

i already populate the textbox, but i dont know how to load picture into my picturebox.

[mmcdonald]

Yeah you're going to have to slap me as I can't help any further - only ever once looked at VB and immediately reverted back to web programming :) Now there's a better question here with your code another user could potentially help you, sorry and good luck!

Michael

[Hazuan Nazri]

nvm, i solve the problem, this is my code:

        Dim ds As New DataSet
        Dim dt As New DataTable
        ds.Tables.Add(dt)
        Dim a As String = "SELECT NAMA, KURSUS, Gambar FROM DAFTARPELAJAR WHERE NDP = @NDP"
        Dim b As New OleDbDataAdapter(acscmd)

        acscmd.CommandText = a
        With acscmd.Parameters
            .AddWithValue("@NDP", Trim(txtNDP.Text))
        End With
        b.Fill(dt)
        txtNama.Text = dt.Rows(0).Item(0)
        txtKursus.Text = dt.Rows(0).Item(1)
        acscmd.Parameters.Clear()
        txtNama.Enabled = False
        txtKursus.Enabled = False
        For Each dr As DataRow In dt.Rows
            Dim img_buffer() As Byte
            img_buffer = CType(dr("Gambar"), Byte())
            Dim img_stream As New MemoryStream(img_buffer, True)

            img_stream.Write(img_buffer, 0, img_buffer.Length)
            PictureBox1.Image = New Bitmap(img_stream)
        Next

i just try this code, and its work fine, maybe i need to change a little bit.

[mmcdonald]

Well done! :D