Saturday, April 11, 2015

Menampilkan foto ke dalam datagridview



Dalam pembuatan aplikasi sering kali orang menginginkan menampilkan foto ke dalam datagridview. Kebanyakan orang menampilkan foto itu kedalam sebuah picturebox. Dalam picturebox foto hanya dapat ditampilkan satu buah saja, sedangkan dalam datagrdview foto dapat ditampilkan sebanyak kebutuhan. Untuk menampilkan foto dalam datagridview ikutilah langkah-langkah di bawah ini :

Pertama buatlah sebuah project baru
Lalu buatlah sebuah form seperti gambar di bawah ini (hanya datagridview dan button1)


Setelah itu buatlah atau copy coding di bawah ini :

Imports System.Data.OleDb
Imports System.Drawing

Public Class Form6

    Dim CONN As OleDbConnection
    Dim DA As OleDbDataAdapter
    Dim DS As New DataSet
    Dim CMD As OleDbCommand
    Dim DR As OleDbDataReader

    Sub Koneksi()
        CONN = New OleDbConnection("provider=microsoft.jet.oledb.4.0;data source=dbkoperasi.mdb")
        CONN.Open()
    End Sub


    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        DGV.Columns.Clear() 
        Call Koneksi()
        DA = New OleDbDataAdapter("Select Nama,lokasi from TBLanggota", CONN)
        DS = New DataSet
        DS.Clear()
        DA.Fill(DS)
        DGV.DataSource = DS.Tables(0)
        Dim Cols As New DataGridViewImageColumn()
        DGV.Columns.Add(Cols)
        On Error Resume Next
        For baris As Integer = 0 To DGV.RowCount - 1
            DGV.Rows(baris).Cells(2).Value = Image.FromFile(DGV.Rows(baris).Cells(1).Value)
            Cols.HeaderText = "foto"
            Cols.Name = "Cols"
        Next
    End Sub
End Class

Adapun hasilnya dapat dilihat pada gambar dibawah ini :




EmoticonEmoticon