Rabu, 07 Desember 2016

Menampilkan Data Excel pada Datagridview dengan Visual Basic .Net

Tidak ada komentar:
Sama seperti halnya dengan database Access, SQL Server, MySQL, Oracle dan lain sebagainya. Data yang ada pada Excel juga bisa ditampilkan pada kontrol Datagridview. Ikuti langkah - langkah berikut :
1. Buat sebuah project baru pada Visual Basic .Net anda dengan nama DataExcel
2. Desain Form seperti dibawah ini 
3. Klik kanan pada Form kemudian pilih View Code
4. Ketikkan kode dibawah ini
Imports 
System.Data.OleDb
Public Class Form1

    Private ConnDB As OleDbConnection

    Private Sub btnAmbil_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAmbil.Click
        Dim ofd As New OpenFileDialog
        ofd.Filter = "Microsoft Excel File (*.xls)|*.xls"
        If ofd.ShowDialog = Windows.Forms.DialogResult.OK Then
            ConnDB = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + ofd.FileName.ToString() + ";
            Extended Properties=Excel 8.0")
            ConnDB.Open()
            Dim adp As New OleDbDataAdapter("SELECT * FROM [Sheet1$]", ConnDB)
            Dim dt As New DataTable
            adp.Fill(dt)
            datagrid.DataSource = dt
        End If
    End Sub

    Private Sub btnKeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnKeluar.Click
        Me.Close()
    End Sub
End Class
5. Jalankan project anda dengan menekan tombol F5.
6. Pilih tombol Ambil File dan akan muncul jendel Open File Dialog, ambil file Excel yang akan ditampilkan datanya.
7. Pilih tombol Open maka akan tampak hasilnya seperti dibawah ini 
Perlu anda perhatikan pada baris :
Dim adp As New OleDbDataAdapter("SELECT * FROM [Sheet1$]", ConnDB)
Kata atau string [Sheet1$] merupakan nama tabel atau sheet pada Excel. Anda tinggal menyesuaikan dengan nama sheet yang ada pada file Excel anda. Silahkan download contoh programnya disini https://www.4shared.com/rar/xVSgKIcZce/DataExcel.html
, ,

Tidak ada komentar:

Posting Komentar