Tutorial Vb.Net : Export Database ke Microsoft Excel

Bagaimana cara Export Data dari Database ke Microsoft Excel di Vb.Net ?

Untuk mem-BackUp data dari database atau untuk Membuat laporan Rekap Data bisa dilakukan dengan meng-export data ke Microsoft Excel, tutorial Sector Code sebelumnya sudah banyak membahas tentang Cara - Cara membuat laporan menggunakan Crystall Report, Silahkan baca - baca pada label Vb.Net di Menu Utama.

Untuk Export data ke Excel silahkan ikuti tutorial Vb.Net ini step by step, pertama buatlah sebuah Module Koneksi ke database, silahkan baca Tutorial Membuat Module Koneksi Database MySQL, Jika sudah buatlah Form baru dan desain seperti form berikut,

Pada tutorial ini DateTimePicker1 dan DateTimePicker2 tidak digunakan,

Pada Form Baru, Import namespace MIcrosoft.Office.Interop.Excel

klik 2x pada form dan masukkan Code Berikut :

Imports Excel = Microsoft.Office.Interop.Excel

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim x, y As Integer
        Dim vApp As Excel.Application
        Dim vWorkBook As Excel.Workbook
        Dim vWorkSheet As Excel.Worksheet
        Dim vsalah As Object = System.Reflection.Missing.Value
        vApp = New Excel.Application
        vWorkBook = vApp.Workbooks.Add(vsalah)
        vWorkSheet = vWorkBook.Sheets("sheet1")
        konek()
        DA = New OleDb.OleDbDataAdapter("SELECT * FROM tblkwitansi", conn)
        DS = New DataSet
        DS.Clear()
        DA.Fill(DS, "tblkwitansi")
        For x = 0 To DS.Tables(0).Rows.Count - 1
            For y = 0 To DS.Tables(0).Columns.Count - 1
                vWorkSheet.Cells(x + 1, y + 1) = _
                DS.Tables(0).Rows(x).Item(y)
            Next
        Next
        vWorkSheet.SaveAs("C:\Rekap-Kwitansi-SMAN4LAHAT.xlsx")
        vWorkBook.Close()
        vApp.Quit()
        releaseObject(vApp)
        releaseObject(vWorkBook)
        releaseObject(vWorkSheet)
        conn.Close()
        MsgBox("You can find the file C:\Rekap-Kwitansi-SMAN4LAHAT.xlsx")
    End Sub
    Private Sub releaseObject(ByVal obj As Object)
        Try
            System.Runtime.InteropServices.Marshal.ReleaseComObject(obj)
            obj = Nothing
        Catch ex As Exception
            obj = Nothing
        Finally
            GC.Collect()
        End Try
    End Sub

Setelah itu silahkan simpan dan tekan F5 untuk menjalankan aplikasi Export Database ke Microsoft Excel anda, jangan lupa share jika bermanfaat, terima kasih ;)