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
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
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
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 :
Untuk tutorial selengkapnya silahkan simak video dibawah ini, dan jangan lupa SUBSCRIBE, LIKE & SHARE ya.
Microsoft Excel
,
Pemrograman
,
Visual Basic .Net
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.htmlUntuk tutorial selengkapnya silahkan simak video dibawah ini, dan jangan lupa SUBSCRIBE, LIKE & SHARE ya.
Tidak ada komentar:
Posting Komentar