Tutorial VB.Net #25: Cara Import Data Microsoft Excel ke Datagridview

Tutorial VB.Net #25: Cara Import Data Microsoft Excel ke Datagridview - priacoding. Pada postingan priacoding sebelumnya kita telah membahas bagaimana cara entry data kedalam Datagridview dan pada postingan kali ini kita akan membahas bagaimana Cara Import Data  Microsoft Excel ke Datagridview VB.Net.

Import itu sendiri merupakan proses pengambilan data atau file dari luar baik dari aplikasi itu sendiri atau aplikasi lain. 

Langsung saja ikuti langkah-langkah berikut..

1. Buat buah project

Masukan satu buah Datagridview dan satu buah button, seperti gambar

2. Tambahkan komponen OpenFiledDialog pada project

3. Buat file Ms. Excel

Dengan format tabel seperti dibawah

4. Tambahkan coding Import dibawah pada code editor

Imports System.Data.OleDb

5. Double klik tombol Import

Langsung pastekan coding dibawah..

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

        On Error Resume Next
        OpenFileDialog1.Filter = "(*.xlsx)|*.xlsx|(*.xls)|*.xls|All files (*.*)|*.*"
        OpenFileDialog1.ShowDialog()

        CONN = New OleDbConnection("provider=Microsoft.Jet.OLEDB.4.0;" & _
                    "data source='" & OpenFileDialog1.FileName & "';Extended Properties=Excel 8.0;")

        DA = New OleDbDataAdapter("select * from [Sheet1$]", CONN)
        CONN.Open()
        DS.Clear()
        DA.Fill(DS)
        DataGridView1.DataSource = DS.Tables(0)
        CONN.Close()

Kira-kira hasil codingnya seperti dibawah

6. Jalankan aplikasi, tekan Start atau F5 pada keyboard

Maka akan menghasilkan..

Unduh Sourcecode
Pass: priacoding.com

Terimakasih, semoga bermanfaat..

Baca Juga:

• Tutorial VB.Net #06: Entry Data Ke Datagridview
• Tutorial VB.Net #26: Cara Export Data Datagridview ke Ms. Excel
• Tutorial VB.Net #27: Cara Membuat Grafik Line, Bar, Dkk

Note

Himbauan : Jika artikel ini memang berguna untuk teman-teman, MOHON artikel ini dibagikan kepada yang lain AGAR teman-teman kita juga mendapat manfaatnya. Terimakasih..