17 March 2012

Load Gambar dari mySQL (blob) langsung ke PictureBox di VB.Net

Tadi nya sistem loading tipe field gambar dari database mysql itu saya stream dulu ke file baru di load ke vb.net, cuma cara ini sering jadi error, file terkunci saat file temporary hendak di tulis ulang.

Trik tersebut saya ikuti dari situs mysql lupa link yang mana, entah kenapa saya muter muter nyari solusi kok ga ada yang menjelaskan secara sederhana cara loading ini, untungnya ada yang mau menjelaskan di situs stackoverflow tapi tetep saja caranya muter dan ribet  berikut cara saya yang simpel untuk saving gambar dan loading lagi

Secara singkat, saya punya tabel "tuser" dengan kolom nama dan foto, tipe nama itu varchar, dan foto adalah mediumblob, untuk bisa jalan set dulu conn dengan koneksi mysqlnya (mysqlconnection) dan "Imports MySql.Data.MySqlClient" di header file vb

conn di set saat login dengan setting sebagai berikut :

connStr = String.Format("server={0};user id={1}; password={2}; database={3}; pooling=false; Allow Zero Datetime=true;default Command Timeout=60; ", txtServer.Text, txtUser.Text, txtPassword.Text, txtDatabase.Text)
conn = New MySqlConnection(connStr)

Selanjutnya, untuk penyimpanan gambar ke blob, adalah

    Private Sub SaveGambar(ByVal namanya As String)
        Dim cmd As New MySqlCommand
        Dim SQL As String
        Dim FileSize As UInt32
        Dim rawData() As Byte
        Dim fs As FileStream
        Try
            fs = New FileStream(namafilefoto, FileMode.Open, FileAccess.Read)
            FileSize = fs.Length
            rawData = New Byte(FileSize) {}
            fs.Read(rawData, 0, FileSize)
            fs.Close()
            fs.Dispose()


            SQL = "update tuser set foto = @File where nama = '" + namanya + "'"
            cmd.Connection = conn
            cmd.CommandText = SQL
            cmd.Parameters.AddWithValue("@File", rawData)
            cmd.ExecuteNonQuery()
        Catch ex As Exception
            MessageBox.Show("There was an error: " & ex.Message, "Error", _
                MessageBoxButtons.OK, MessageBoxIcon.Error)
        End Try
    End Sub

Dan untuk loading lagi nya


    Private Sub LoadGambar(ByVal namanya As String)
        Dim myData As MySqlDataReader
        Dim SQL As String
        Try
            PictureBox1.Image = Nothing
            SQL = "SELECT foto FROM tuser where nama = '" + namanya + "' limit 1"
            Dim cmd As New MySqlCommand(SQL, conn)
            myData = cmd.ExecuteReader

            While myData.Read()
                Dim Byted() As Byte = myData.Item("foto")
                Dim Streamed As New System.IO.MemoryStream(Byted)
                PictureBox1.Image = Image.FromStream(Streamed)
                Streamed.Close()
            End While
            myData.Close()
            cmd.Dispose()
        Catch ex As Exception
            MessageBox.Show("There was an error: " & ex.Message, "Error", _
             MessageBoxButtons.OK, MessageBoxIcon.Error)
        End Try
    End Sub


Silakan dibandingkan dengan yang stackoverflow, walaupun ide bukan dari saya, tapi sepertinya yang saya tulis lebih simple, dan mudah dipahami, semoga berguna...

5 comments:

  1. gan, kok ane gagal mulu ya.
    error messagenya parameter is not valid, kira-kira knp gan?
    ane pake vb 2010..

    ReplyDelete
  2. struktur tabel gimana? pake mysql connector net versi berapa? kodenya apa persis sperti diatas?

    ReplyDelete
  3. iya...tempat ane juga parameter is not valid gan

    ReplyDelete
  4. saya sudah mencoba code yang anda jelaskan diatas,,
    namun, saat saya ingin menampilkan nya kembali dari database mysql ke picturebox, gambarnya gk mau tampil, dan error nya tidak ada.

    itu salahnya dimana nya ya.?

    saya menggunakan mysql conector NET 6.5.4 dan VB.net 2010

    terima kasih...

    ReplyDelete
  5. format gambarnya apa? coba di buka di mysql client lain seperti sqlyog bisa ga gambarnya?, klo ga bisa juga mgkn pas simpan datanya corrupt

    ReplyDelete