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...