cara menampilkan gambar dari database ke picturbox #vb.net
Hai guys , di tutorial sebelumnya saya telah share cara menginputkan gambar ke database ,nah pada kesempatan kali ini saya ingin sahre tutorial lanjutannya , yaitu Cara menampilkan gambar dari database ke PictureBox di VB.Net.
Jika kalian belum tahu tutorial sebelumnya ,silahkan :
Baca Juga : Cara menginputkan gambar ke database
Karena tutorial kali ini lanjutan dari tutorial sebelumnya ,saya tidak akan membahas lagi ,Langsung saja kita mulai langkah-langkahnya :
1. Buat form baru ,dan beri nama : form_tampil
2. Rincian form sebagai berikut :
- Textbox1: untuk memasukkan nama gambar yang akan ditampilkan
- Picturebox1 :untuk menampilkan gambar sesuai nama yang ada di Textbox1
3.Double klik pada form_tampil , dan masukkan kode berikut ini pada baris paling atas :
Dan kode berikut ini di dalam class dari form_tampil :
4. Double klik pada Textbox1 ,dan masukkan kode berikut ini :
Imports MySql.Data.MySqlClient
Imports System.IO
Imports System.IO
Dan kode berikut ini di dalam class dari form_tampil :
koneksi()
4. Double klik pada Textbox1 ,dan masukkan kode berikut ini :
query = "select *from gambar where nama like '%" & TextBox1.Text & "%'"
cmd = New MySqlCommand(query, con)
rd = cmd.ExecuteReader
rd.Read()
Try
Dim gambar() As Byte
If rd.HasRows() Then
gambar = rd("file")
Dim ms As New MemoryStream(gambar)
PictureBox1.Image = Image.FromStream(ms)
PictureBox1.SizeMode = PictureBoxSizeMode.StretchImage
Else
PictureBox1.Image = Nothing
End If
rd.Close()
Catch ex As Exception
MessageBox.Show("ERROR : " & ex.Message, "ERROR", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
If TextBox1.Text = "" Then
PictureBox1.Image = Nothing
End If
cmd = New MySqlCommand(query, con)
rd = cmd.ExecuteReader
rd.Read()
Try
Dim gambar() As Byte
If rd.HasRows() Then
gambar = rd("file")
Dim ms As New MemoryStream(gambar)
PictureBox1.Image = Image.FromStream(ms)
PictureBox1.SizeMode = PictureBoxSizeMode.StretchImage
Else
PictureBox1.Image = Nothing
End If
rd.Close()
Catch ex As Exception
MessageBox.Show("ERROR : " & ex.Message, "ERROR", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
If TextBox1.Text = "" Then
PictureBox1.Image = Nothing
End If
5. Save project dan kemudian coba RUN atau F5 ,dan berhasil.
Nah ,itu saja tutorial cara menampilkan gambar dari database ke picturebox di vb.net ,semoga bermanfaat ,jika error silahkan bisa komentar di bawah ,semoga bermanfaat . Jika anda berkenan silahkan bisa share artikel ini ke teman atau media sosial lainnya ,,,,
0 Response to "cara menampilkan gambar dari database ke picturbox #vb.net"
Post a Comment