Sabtu, 11 April 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 :

ImportsSystem.Data.OleDb
ImportsSystem.Drawing

Public Class Form6

    Dim CONN AsOleDbConnection
    Dim DA AsOleDbDataAdapter
    Dim DS As New DataSet
    Dim CMD AsOleDbCommand
    Dim DR AsOleDbDataReader

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


    Private SubButton1_Click(ByVal sender As System.Object, ByVale As System.EventArgs) HandlesButton1.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 ToDGV.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 :



Tidak ada komentar:

Posting Komentar