Rabu, 07 Oktober 2020

Vb.Net: Menampilkan Data Excel Di Datagridview

Again, masih perihal VB.NET dengan excel file. Kali ini Rani mau coba memperlihatkan data dari excel ke datagridview. Berikut ini file yang mau dipakai yang disimpan di D:\karyawan.xlsx. Selanjutnya buat UI suatu form dengan suatu datagridview yang diberinama grdData. Code: Imports System.Data Imports System.Data.OleDb Public Class frmExcelGrid     Private Sub frmExcelGrid_Load( ByVal sender As System.Object, _     ByVal e As System.EventArgs) Handles MyBase.Load         Dim exConn As OleDbConnection         Dim dt As DataSet         Dim cmd As OleDbDataAdapter         Dim sConn As String         sConn = "provider=Microsoft.Jet.OLEDB.4.0;Data Source= " & _                 "'d:\karyawan.xls';Extended Properties=Excel 8.0;"         exConn = New System.Data.OleDb.OleDbConnection(sConn)         cmd = New System.Data.OleDb.OleDbDataAdapter( _                "select * from [Sheet1$]" , exConn)         cmd.TableMappings.Add( "Table" , "Tabel Karyawan" )         dt = New System.Data.DataSet         cmd.Fill(dt)         grdData.DataSource = dt.Tables(0)         exConn.Close()     End Sub End Class Kita memakai OleDbConnection dengan ConnectionString yang disimpan pada variable sConn. Contoh connectionstring diatas yaitu untuk file excel berekstensi .xls atau Ms Excel 97-2003. Sementara untuk file berekstensi .xlsx atau Ms Excel 2007 keatas berikut acuan penulisan connectionstring nya: sConn = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source= " & _         "'d:\karyawan.xlsx';Extended Properties=Excel 12.0;" Tapi bekerjsama connection string untuk excel 2007 keatas (.xlsx) juga mampu digunakan untuk menampilkan data excel 97-2003 (.xls). Setelah tamat dengan UI dan Code, berikutnya mari kita coba run. Click here if you like this article.
Sumber http://rani-irsan.blogspot.com


EmoticonEmoticon