[ADS] Top Ads

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

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
Cara Import Data Ms. Excel ke Datagridview

2. Tambahkan komponen OpenFiledDialog pada project
Cara Import Data Ms. Excel ke Datagridview

3. Buat file Ms. Excel
Dengan format tabel seperti dibawah
Cara Import Data Ms. Excel ke Datagridview

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
Cara Import Data Ms. Excel ke Datagridview

6. Jalankan aplikasi, tekan Start atau F5 pada keyboard
Maka akan menghasilkan..
Cara Import Data Ms. Excel ke Datagridview

Unduh Sourcecode
Pass: priacoding.com

Terimakasih, semoga bermanfaat..

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..

Post a Comment

[ADS] Bottom Ads