Cara Menyimpan Data Dari Vb.Net Ke Ms. Excel

Bismillah

Sahabat baiq yang berbahagia, kali ini aku akan membuatkan perihal cara menyimpan data yang ada dalam tampilan data grid view pada VB.NET ke dalam Ms. Excel.
Gimana sih caranya?
Sabar....sabar....
Sebelum aku ulas lebih jauh, pastikan anda sudah memahami perihal cara menciptakan database dan tabel. Selain itu anda juga sudah memahami bagaimana cara koneksi VB.NET ke MYSQL. Jika belum dapat anda pelajari DISINI.
Pada pembahasan kali ini, aku tidak akan mencontohkan proses pembuatan database serta tabel yang akan di tampilkan dalam Data Grid View di VB.NET, alasannya aku memakai 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, hingga kepada tampilan Form1.
3. Selanjutnya, kita design Form 1 dengan menempelkan objek Data Grid View dan Button, dapat di lihat pada pola gambar di bawah ini:
cara menyimpan data yang ada dalam tampilan data grid view pada VB Cara Menyimpan Data dari VB.NET ke Ms. Excel
4. Selanjutnya, untuk setting properties silahkan disesuaikan. Pada pola kali ini, Data Grid View aku rubah namanya menjadi DGV, dan Button namanya tidak aku 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, lalu klik Tombol Simpan Ke Ms. Excel. Maka isi dari data grid view akan tampil pada lembar kerja Ms. Excel

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

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


0 Komentar untuk "Cara Menyimpan Data Dari Vb.Net Ke Ms. Excel"

Back To Top