Tutorial Vb.Net : Cara Export data dari Database ke Microsoft Excel di visual basic vb net 2010, tutorial vb net lihat selengkapnya di sector code !
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 ;)
