Cara Menyimpan Data dari VB.NET ke Ms. Excel

Bismillah

Sahabat baiq yang berbahagia, kali ini saya akan berbagi tentang cara menyimpan data yang ada dalam tampilan data grid view pada VB.NET ke dalam Ms. Excel.
Gimana sih caranya?

Sabar....sabar....
Sebelum saya ulas lebih jauh, pastikan anda sudah memahami tentang cara membuat database dan tabel. Selain itu anda juga sudah memahami bagaimana cara koneksi VB.NET ke MYSQL. Jika belum bisa anda pelajari DISINI.
Pada pembahasan kali ini, saya tidak akan mencontohkan proses pembuatan database serta tabel yang akan di tampilkan dalam Data Grid View di VB.NET, karena saya menggunakan database dan tabel yang sudah ada di dalam database MYSQL saya.
Baiklah, kita mulai saja pembahasannya:
1. Jika di dalam MYSQL anda belum tersedia database dan tabel yang akan di tampilkan kedalam Data Grid View, silahkan buat database terlebih dahulu.
2. Kemudian, buka aplikasi VB.NET seperti biasa, sampai kepada tampilan Form1.
3. Selanjutnya, kita design Form 1 dengan menempelkan objek Data Grid View dan Button, bisa di lihat pada contoh gambar di bawah ini:

4. Selanjutnya, untuk setting properties silahkan disesuaikan. Pada contoh kali ini, Data Grid View saya rubah namanya menjadi DGV, dan Button namanya tidak saya rubah.
5. Jika disign form dan setting properties sudah selesai, maka selanjutnya kita tinggal mengetikkan codingnya. Berikut ini codingnya:

Imports System.Data.Odbc

Public Class Form1
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'Coding untuk koneksi ke database
        Dim da As Odbc.OdbcDataAdapter
        Dim ds As DataSet
        Dim koneksi As Odbc.OdbcConnection
        Dim str As String
        str = "driver={mysql odbc 3.51 driver};database=db_evoting;server=localhost;uid=root"
        koneksi = New OdbcConnection(str)
        If koneksi.State = ConnectionState.Closed Then
            koneksi.Open()
        End If

        'Coding untuk menampilkan data pada data grid view

        da = New Odbc.OdbcDataAdapter("select no_urut,nama_caketu,nama_cawaketu,jumlah_suara from t_calon order by no_urut", koneksi)         ds = New DataSet
        ds.Clear()
        da.Fill(ds, "t_calon")
        DGV.DataSource = (ds.Tables("t_calon"))

    End Sub

'Perintah untuk menyimpan ke Ms. Excel di ketik pada Button
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim ExcelApp As Object, ExcelBook As Object
        Dim ExcelSheet As Object
        Dim i As Integer
        Dim j As Integer
        ExcelApp = CreateObject("Excel.Application")
        ExcelBook = ExcelApp.WorkBooks.Add
        ExcelSheet = ExcelBook.WorkSheets(1)
        With ExcelSheet
            For i = 1 To Me.DGV.RowCount
                .cells(i, 1) = Me.DGV.Rows(i - 1).Cells(0).Value
                For j = 1 To DGV.Columns.Count - 1
                    .cells(i, j + 1) = DGV.Rows(i - 1).Cells(j).Value
                Next
            Next
        End With
        ExcelApp.Visible = True
        ExcelSheet = Nothing
        ExcelBook = Nothing
        ExcelApp = Nothing
    End Sub
End Class

6. Jika sudah, maka tinggal coba di jalankan aplikasinya, kemudian klik Tombol Simpan Ke Ms. Excel. Maka isi dari data grid view akan tampil pada lembar kerja Ms. Excel

Baca juga : Cara membuat Aplikasi e-voting pada VB.NET
Baca juga : Cara Menghubungkan Client Server pada VB.NET dengan database MYSQL

Demikian pembahasan kali ini, yaitu tentang cara menyimpan data dari data grid view pada VB.NET ke dalam Microsoft Office Excel (Ms. Excel). Semoga bermanfaaat, dan terimakasih sudah berkunjung.