Cara Export Listview To Excel Dengan Visual Basic 6.0 (VB6)

Baca Juga :

Komponen Listview yang terdapat pada aplikasi pemrograman Visual Basic 6.0 tentunya sudah tidak asing lagi bagi kalangan programmer, dan bukan hanya Visual Basic 6.0 saja yang menyediakan komponen tersebut, hampir semua bahasa pemrograman mempunyai komponen tersebut. Listiview merupakan komponen untuk menampilkan data dari tabel database bisa disertai dengan icon pada setiap row (baris) yang tampil. Nah untuk kali ini admin akan menguraikan bagaimana menampilkan data dari tabel suatu database melalui komponen listiview selanjutnya data yang tampil coba akan diexport ke Ms. Excell Office, untuk database yang akan admin gunakan yaitu MySQL Server Database dengan MySQL ODBC 5.3 Unicode Driver sebagai driver konektornya.

Langkah Pertama

Langkah pertama yang akan kita lakukan yaitu buatlah database terlebih dahulu pada MySQL Server dengan nama dbbelajar

CREATE DATABASE `dbbelajar`

CHARACTER SET 'latin1'

COLLATE 'latin1_swedish_ci';

Kemudian dilanjutkan dengan pembuatan tabel dengan nama tblbeli

CREATE TABLE `tblbeli` (

  `IDBARANG` varchar(20) NOT NULL default '-',

  `NMBARANG` varchar(50) default '-',

  `JUMBRG` int(11) default '0'

) ENGINE=MyISAM DEFAULT CHARSET=utf8 ROW_FORMAT=FIXED;

Setelah database dan tabel dibuat sekarang coba kita inputkan tblbeli

INSERT INTO `tblbeli` (`IDBARANG`, `NMBARANG`, `JUMBRG`) VALUES 

  ('4800361002851','Nestle Koko Krunch 170g',20),

  ('4800888141125','axe darktemp 150ml',11),

  ('4902430102247','head shoulders cool menthol',60),

  ('4902430400947','pantene anti ketombe 135ml',21),

  ('4902430453028','downy 780ml',22),

  ('4902430504454','downy mystique sct20ml',23),

  ('4902430516198','ambi pur 7,5ml',25),

  ('4902430542753','downy passion',5),

  ('4902430557122','downy sunrise fresh 22ml',10),

  ('4902430557153','Downy Sekali Bilas Jumbo 22 ml',7),

  ('4902430453028','downy 780ml',3),

  ('4902430516198','ambi pur 7,5ml',10),

  ('4902430400947','pantene anti ketombe 135ml',10);

Jika kita cek tblbeli dengan menggunakan

select * from tblbeli;

Maka hasilnya seperti gambar dibawah ini

Untuk langkah pertama telah selesai

Langkah Kedua

Buka Ms. Visual Basic 6.0 kemudian buatlah form kemudian masuk ke menu Project - References - Microsoft ActiveX Data Objects 2.8 Library

Tambahkan 1 (satu) buah module copykan syntak sub koneksi ke database MySQL Server dibawah ini

Public CN As New ADODB.Connection

Sub KoneksiDatabase()

Dim NServer, NUser, nPass, NDatabase As String

NServer = "localhost"

NUser = "root"

nPass = ""

NDatabase = "dbbelajar"

On Error GoTo ErrKoneksi

CN.CommandTimeout = 0

If CN.State Then

   CN.Close

   CN.CursorLocation = adUseClient

   CN.Open "DRIVER={MySQL ODBC 5.3 Unicode Driver};" & _

   "SERVER=" & NServer & " ;" & _

   "Port=3306;DATABASE=" & NDatabase & ";" & _

   "UID=" & NUser & ";" & _

   "PWD=" & nPass & ";" & _

   "OPTION=3"

Else

   CN.CursorLocation = adUseClient

   CN.Open "DRIVER={MySQL ODBC 5.3 Unicode Driver};" & _

   "SERVER=" & NServer & " ;" & _

   "Port=3306;DATABASE=" & NDatabase & ";" & _

   "UID=" & NUser & ";" & _

   "PWD=" & nPass & ";" & _

   "OPTION=3"

End If

Exit Sub

ErrKoneksi:

MsgBox "Koneksi database Error.. " & vbCr & vbCr & _

       Err.Description & Err.Number, vbCritical, "Error Koneksi Database"

End

End Sub

Keterangan : Untuk tulisan berwarna biru merupakan password instalasi MySQL Server pada pc agan, jika ada passwordnya silahkan menyesuaikan saja, jika tidak biarkan kosong ("")

Double klik pada form kemudian pilih event form_load dan panggil sub koneksi database diatas

Call KoneksiDatabase

Coba RUN/F5 jika form tampil tanpa ada pesan error maka koneksi kedatabase MySQL Server sukses. Selanjutnya buka menu Project - Components - Microsoft Windows Common Controls 6.0 (SP6)

Kemudian kita akan menampilkan komponen Listview ke dalam form dan ditambah 1 buah komponen CommandButton

Setelah semua komponen yang dibutuhkan telah lengkap, untuk selanjutnya kita akan membuat header dari Listview menggunakan coding dibawah ini pada event form_load tepat dibawah coding Call KoneksiDatabase

ListView1.ColumnHeaders.Clear

ListView1.ListItems.Clear

ListView1.View = lvwReport

ListView1.ColumnHeaders.Add , , "No", 600

ListView1.ColumnHeaders.Add , , "Kode Barang", 1500

ListView1.ColumnHeaders.Add , , "Nama Barang", 2400

ListView1.ColumnHeaders.Add , , "Jum Barang", 1200

Setelah itu kita buat sub untuk menampikan data dari tabel tblbeli ke Listview

Sub TampilData()

Dim xI As Long

Dim LI As ListItem

Dim sqlCommand As String

ListView1.ListItems.Clear

ListView1.Sorted = False

        

sqlCommand = "select * From tblbeli"

Dim xRsTampil As New ADODB.Recordset

Set xRsTampil = CN.Execute(sqlCommand)

If xRsTampil.EOF Then

   ListView1.ListItems.Clear

Else

   xI = 1

   xRsTampil.MoveFirst

   While Not xRsTampil.EOF

   Set LI = ListView1.ListItems.Add(, , xI)

       LI.SubItems(1) = xRsTampil.Fields("IDBARANG")

       LI.SubItems(2) = xRsTampil.Fields("NMBARANG")

       LI.SubItems(3) = xRsTampil.Fields("JUMBRG")

   xRsTampil.MoveNext

   xI = xI + 1

   Wend

End If

If xRsTampil.State Then: xRsTampil.Close

Set xRsTampil = Nothing

End Sub

Panggil sub TampilData dan copykan tepat dibawah coding pembuatan header listiview diatas tadi dan sekarang coba kita RUN/F5 sehingga hasilnya seperti dibawah ini.

Langkah Ketiga

Untuk langkah yang ketiga ini masuk ke proses coding export data yang ditampilkan oleh komponen listview ke dalam bentuk Ms. Excell. Buka menu Project - References - Microsoft Excel 12.0 Object Library

Untuk berikutnya buatlah sub dengan nama Sub ExportToExcel() kemudian copykan coding dibawah ini ke dalam Sub ExportToExcel()

Dim Exc

Dim Wb

Dim Ws

Dim CLms As Integer

Dim oExcel

Dim LstFld As Integer

On Error Resume Next

Set oExcel = CreateObject("Excel.Application")

Set Wb = oExcel.Workbooks.Add

Set Ws = Wb.Worksheets(1)

Dim ws1 As Excel.Worksheet

Set ws1 = Wb.Worksheets(3)

    ws1.Delete

Set ws1 = Nothing

Set ws1 = Wb.Worksheets(2)

    ws1.Delete

Set ws1 = Nothing

LstFld = 4

Ws.Cells.Clear

oExcel.Visible = True

Ws.Cells(1, 1).Font.Bold = True

Ws.Cells(1, 1).Font.Size = 18

Ws.Cells(1, 1) = "Cara Export Listview To Excel Dengan " _

               & "Visual Basic 6.0 (VB6)"

For CLms = 1 To LstFld

Ws.Cells(1, CLms).Font.Color = vbWhite

Ws.Cells(1, CLms).Interior.Color = vbBlue

Ws.Cells(2, CLms).Font.Bold = True

Ws.Cells(2, CLms) = Me.ListView1.ColumnHeaders(CLms)

Ws.Cells(2, CLms).Font.Color = vbBlack

Ws.Cells(2, CLms).Interior.Color = vbGreen

Next CLms

Ws.Cells(2, 1).ColumnWidth = 6

Ws.Cells(2, 2).ColumnWidth = 25

Ws.Cells(2, 3).ColumnWidth = 40

Ws.Cells(2, 4).ColumnWidth = 15

Dim Flds As Integer

Dim strFlds As String

flds2 = LstFld - 1

For i = 1 To ListView1.ListItems.Count

Ws.Range("A" & i + 2).Select

strFlds = ""

strFlds = Me.ListView1.ListItems(i)

Ws.Cells(i + 2, 1) = strFlds

    

strFlds = Me.ListView1.ListItems(i).ListSubItems(1)

Ws.Cells(i + 2, 2) = "'" & strFlds

    

strFlds = Me.ListView1.ListItems(i).ListSubItems(2)

Ws.Cells(i + 2, 3) = strFlds

strFlds = Me.ListView1.ListItems(i).ListSubItems(3)

Ws.Cells(i + 2, 4) = strFlds

Next

Kemudian double klik pada CommandButton Export Ke Excell dan panggil sub ExportToExcel dengan coding

Call ExportToExcel

Coba RUN/F5 dan klik CommandButton Export Ke Excell maka Ms. Excel akan terbuka dan secara otomatis menginputkan data dari komponen Listiview.

Cukup sekian artikel tentang Cara Export Listview To Excel Dengan Visual Basic 6.0 (VB6) semoga dapat bermanfaat dan admin mengucapkan terima kasih banyak atas kunjungannya.

Share on Facebook

Share on Twitter

Share on Google+

Share on LinkedIn

Subscribe untuk berlangganan artikel :