Source Code VB 6.0 Cara Export Access ke Excel??

Program ini dibuat dari visual basic 6.0. Untuk export access ke Excel.

sebelum kita membuat program ini, selesikan terlebih dahulu tugas2 yg laen (yg blom makan-makan dulu, yg blom mand-mandi dulu, yg blom sholatjika sudah waktunya-sholat dulu)

karena jika sudah berinterakasi dengan komputer akan lupa segalanya.

• untuk memulai, langkah pertama buka program vb 6.0
• di menu pilih Project-References, kemudan ceklist:

– Microsoft Excel 11.0 Object Library

– Microsoft ActiveX Data Object 2.0 Library

• kemudian, buat buat 1 form dan command button

• setelah itu copy-paste source code di bawah ke form yg dibuat

‘—copy here—

Dim Con As New ADODB.Connection
Dim rst As New ADODB.Recordset

Private Sub Command1_Click()
Dim aa As New ExportExcel
aa.RecordSource = rst
aa.ExportToExcel
End Sub

Private Sub Form_Load()
Con.Open “Provider=Microsoft.Jet.OLEDB.4.0;Data Source=” & App.Path & “\data.mdb”
rst.Open “hardware”, Con
End Sub
‘—end—

• setelah source code di atas di paste ke form1, kemudian tambah 1 class modules–>Project-Add Class Module
• seteleh class module dibuat, kemudian copy-paste source code dibawah ke class module yg dibuat

‘—copy here—

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
.MoveFirst
Baris = 1
Kolom = 0
For Kolom = 1 To rs.Fields.Count
Wk.Cells(1, Kolom) = rs.Fields(Kolom – 1).Name
Next Kolom
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

App.Visible = True

Set Wk = Nothing
Set Wb = Nothing
Set App = Nothing
End Sub
‘—end—

• setelah itu di run, akan mucul form1. kemudian klik command buttonnya, akan mucul excel.

catatan:

- untuk databasenya dapat di download disini. kemudian taruh databasenya di dalam satu folder dengan project.

Klo ga mo pusing bisa download source codenya yg udah jadi disini.

-SELAMAT MENCOBA-