Menampilkan gambar pada Datagridview

بِسْــــــــــــــــمِ اﷲِالرَّحْمَنِ اارَّحِيم

bismillaahirrahmaanirrahiim

السَّلاَمُ عَلَيْكُمْ وَرَحْمَةُ اللهِ وَبَرَكَاتُهُ

Assalamu'alaikum warahmatullahi wabarakatuh

Pada artikel sebelumnya kita sudah mengerti bagaimana cara menginsert gambar kedalam table. Dan pada artikel ini kita akan membuat bagaimana menampilkan gambar-gambar tersebut kedalam DataGridView

.

Di asumsikan kita masih menggunakan pada Table yang sama seperti pada artikel sebelumnya. Lalu bagaimanakah sintaks untuk menampilkan gambar tersebut, dapat dilihat di bawah ini, penjabaran dari sintaks sudah ada dibawah.

Try
objDataTable.Clear()
'menampilkan data pada table TbPic
'start
strSQL = "Select * from TbPic"

objCommand = New SqlCommand
objCommand.Connection = MyConnection.open
objCommand.CommandType = CommandType.Text
objCommand.CommandText = strSQL
objDataAdapter = New SqlDataAdapter(objCommand)
objDataAdapter.Fill(objDataSet, "MDT_Pic")
MyConnection.close()
objDataTable = objDataSet.Tables("MDT_Pic")
'finish
DataGridView1.DataSource = objDataSet
DataGridView1.DataMember = "MDT_Pic"

DataGridView1.ShowCellToolTips = False

' menyembunyikan binary data (Field Pic)
DataGridView1.Columns("Pic").Visible = False

' Menambahkan image kolom pada gridview
Dim ImageCol As New DataGridViewImageColumn()
ImageCol.Name = "Gambar"
ImageCol.Width = 200
DataGridView1.Columns.Add(ImageCol)

For Each Row As DataGridViewRow In DataGridView1.Rows
'pertama, kita harus mengconvert binary data menjadi memory stream
'Kemudian, kita dapat menggunakan memory stream untuk membuat image object

Try
Dim ImageBytes() As Byte = Row.Cells("Pic").Value

Dim ms As New MemoryStream(ImageBytes)
Dim img As Image = Image.FromStream(ms)


'lalu, ikat (bind) image kolom
Dim ImageCell As DataGridViewImageCell = CType(Row.Cells("Gambar"), DataGridViewImageCell)
ImageCell.Value = img

'Sekrang kita dapat merelease original data
Row.Cells("Pic").Value = New Byte() {}

Row.Height = 100
Catch
'abaikan error dari image yang invalid
End Try

Next

Catch When Err.Number <> 0
MsgBox("Program Error" _
& vbCrLf & Err.Description)
MyConnection.close()
End Try

Semoga bermanfaat..
Wassalam

Update Contact :
No Wa/Telepon (puat) : 085267792168
No Wa/Telepon (fajar) : 085369237896
Email : Fajarudinsidik@gmail.com NB :: Bila Sobat tertarik Ingin membuat software, membeli software, membeli source code, membeli hardware elektronika untuk kepentingan Perusahaan maupun Tugas Akhir (TA/SKRIPSI), Insyaallah Saya siap membantu, untuk Respon Cepat dapat menghubungi kami, melalui :

No Wa/Telepon (puat) : 085267792168
No Wa/Telepon (fajar) : 085369237896
Email: Fajarudinsidik@gmail.com

atau Kirimkan Private messanger melalui email dengan klik tombol order dibawah ini :

ٱلْحَمْدُ لِلَّهِ رَبِّ ٱلْعَٰلَمِين

Alhamdulilah hirobil alamin

وَ السَّلاَمُ عَلَيْكُمْ وَرَحْمَةُ اللهِ وَبَرَكَاتُهُ

wassalamualaikum warahmatullahi wabarakatuh

Artikel Menampilkan gambar pada Datagridview, Diterbitkan oleh scodeaplikasi pada Selasa, 06 Januari 2009. Semoga artikel ini dapat menambah wawasan Anda. Website ini dipost dari beberapa sumber, bisa cek disini sumber, Sobat diperbolehkan mengcopy paste / menyebar luaskan artikel ini, karena segala yang dipost di public adalah milik public. Bila Sobat tertarik Ingin membuat software, membeli software, membeli source code ,Dengan Cara menghubungi saya Ke Email: Fajarudinsidik@gmail.com, atau No Hp/WA : (fajar) : 085369237896, (puat) : 085267792168.