meng Export Recordset ke Excel di Visual Basic 6.0

Berikut ini adalah contoh code di Visual Basic 6 untuk mengexport data yang ada dalam sebuah recordset ke document excel. Langsung ikuti langkah"nya aja yach …!

• Buat project exe baru, kemudian tambahkan reference di menu Project > References, kemudian berikan tanda centang di Microsoft Excel 9.0 Object Library kemudian klik OK
  
• Tambahkan satu Class Module ke dalam project dan beri nama sesuai keinginan anda misal ExportExcel
  
• Kemudian Ketikkan Code berikut ke dalam class module yang baru saja anda buat tadi
  ------------------------------------------
  Dim rs As ADODB.Recordset
  
  Public Property Let RecordSource(m_rs As Recordset)
  Set rs = m_rs
  End Property
  
  Public Sub ExportToExcel()
  Dim App As Application
  Dim Wb As Workbook
  Dim Wk As Worksheet
  Dim Baris As Long, Kolom As Integer
  Set App = Excel.Application
  Set Wb = App.Workbooks.Add
  Set Wk = Wb.Worksheets(1)
  
  
  With rs
  Baris = 1
  Kolom = 0
  'mencetak header / nama kolom
  For Kolom = 1 To rs.Fields.Count
  Wk.Cells(1, Kolom) = rs.Fields(Kolom - 1).Name
  Next Kolom
  'mencetak data dimulai dari record pertama
  'dan diulang sampai record habis / eof
  .MoveFirst
  While Not .EOF
  Baris = Baris + 1
  For Kolom = 1 To rs.Fields.Count
  Wk.Cells(Baris, Kolom) = rs.Fields(Kolom - 1)
  Next Kolom
  .MoveNext
  Wend
  End With
  
  'memunculkan aplikasi excel
  App.Visible = True
  
  'memutus sambungan dengan excel
  Set Wk = Nothing
  Set Wb = Nothing
  Set App = Nothing
  End Sub
  
  -----------------------------------------
  
• Setelah itu di form buat koneksi dengan database menggunakan object ADODB, setelah itu buat variabel baru sebagai nama class yang baru saja di buat, dilanjutkan dengan mengeset property RecordSource dari class tadi dan berikutnya jalankan method ExportToExcel.
  
  

Untuk men DOWNLOAD contoh projectnya klik di SINI