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

0 komentar: