Pages

Selasa, 22 Oktober 2013

Cara Koneksi VB Ke Excel

Cara Koneksi VB Ke Excel - Update kali ini farray akan berbagi artikel tentang bahasa pemrograman vb.net. Buat sobat pembaca yang suka buat program atau memang menggeluti dunia programming, mungkin artikel dari nubie ini udah pada tau.

Cara Koneksi VB Ke Excel
Cara Koneksi VB Ke Excel
Sekedar deskripsi singkat aja, disini farray mencoba berbagi cara koneksi vb ke excel. Bahasa pemrograman yang farray pakai vb.net 2010 express (pake yang free aja lah... :D) dan office 2007. Oke langsung aja liat videonya berikut ini y...


Kalo pengin ngintip cource codenya, silahkan baca selengkapnya dibawah ini, Enjoyed... :)

Imports System.Data.OleDb
Public Class Form1
    Dim cn As OleDbConnection
    Dim cm As OleDbCommand
    Dim da As OleDbDataAdapter
    Dim dt As DataTable

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'BUKAN KONEKSI KE DATABASE 'testfile.xls' (LOKASI 'testfile.xls' DI LOCALDISK 'C:')
     cn = New OleDbConnection("provider=Microsoft.Jet.OLEDB.4.0; Data Source=c:\testfile.xls;Extended Properties=Excel 8.0;")
        cn.Open()

        da = New OleDbDataAdapter("select * from [Sheet1$]", cn)
        dt = New DataTable
        da.Fill(dt)

        'SETTING DATAGRIDVIEW1
        With DataGridView1
            .AllowUserToAddRows = False
            .BorderStyle = BorderStyle.None
            .DataSource = dt
            .Columns(0).HeaderText = "Id"
            .Columns(1).HeaderText = "Nama Agen"
        End With

        cn.Close()
    End Sub
End Class

Ini ScreenShoot data yang ada di textfile.xls

Connect to excel with visual basic 2010
Connect to excel with visual basic 2010
Dibawah ini ScreenShoot form setelah dijalankan.

cara koneksi vb ke excel
Cara koneksi vb ke excel

Demikianlah artikel Cara Koneksi VB Ke Excel dari nubie, semoga dapat bermanfaat buat kita semua. Tolong jangan lupa like, comment dan share ke yang lainnya he... Sekian dari farray, semoga hari sobat menyenangkan... :)

0 komentar:

Posting Komentar