Export Database Access Ke Excel Visual Basic 6 (VB6)

Export Database Access Ke Excel Visual Basic 6 (VB6)

Post Perdana yaitu mengenai Bagai Mana Cara Export Data yg ada dalam database Access 2007 ke Excel Menggunakan Visual Basic 6.0 (VB6) ok langsung saja Ke langkah Pertama: 

1. Buka Microsoft Visual Basic 6.0 Buat Form seperti Gambar Dibawah ini:

Add komponen: 

     a. 1 Datagrid Ubah Name Menjadi "dg1" 

     b. 1 CommandButton Ubah Name Menjadi "cmdexport" Caption "Export Data Ke Microsoft Excel..?"

2. Add Modul Klik menu "Project" Pillih "Add Module" Ketikan Kode Koneksi Berikut ini:

Public sambungan As New ADODB.Connection

Public Sub koneksi()

Set sambungan = New ADODB.Connection

sambungan.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\exportdatakeexcel.mdb"

sambungan.CursorLocation = adUseClient

End Sub

3. Double Klik Pada form Masukan Kode Berikit Di Event Form_Load:

Private Sub Form_Load()

Call koneksi

Dim record As New ADODB.Recordset

Set record = New ADODB.Recordset

record.Open "Select * from data", sambungan

Set dg1.DataSource = record

dg1.Refresh

End Sub

4. Kode terakhir yaitu kode untuk mulai export, Double Klik Pada CommandButton1 ("cmdexport") Ketik Kode Berikut ini Atau Copy Paste:

Dim xl As Excel.Application

Dim fld As Integer

Dim rec As Long

Dim col As Integer

Dim row As Integer

Set xl = New Excel.Application

With xl

Workbooks.Add

Worksheets(1).Name = "Hasil Export"

fld = record.Fields.Count

For col = 1 To fld

xl.Cells(1, 1).Value = "Hasil Export Data"

xl.Cells(2, 1).Value = "itangdedi81@gmail.com"

xl.Cells(3, col).Value = record.Fields(col - 1).Name

Next

Call .ActiveSheet.Range("A4").CopyFromRecordset(dg1.DataSource)

.ActiveSheet.Range("A1:F1").Merge& Center = True

.ActiveSheet.Range("A1:F1").HorizontalAlignment = xlCenter

.ActiveSheet.Range("A2:F2").Merge& Center = True

.ActiveSheet.Range("A2:F2").HorizontalAlignment = xlCenter

.ActiveSheet.Range("A1:F3").Font.Name = "Thaoma"

.ActiveSheet.Range("A1:F3").Font.Size = 20

.ActiveSheet.Range("A1:F2").Font.Bold = True

.ActiveSheet.Range("A3:F3").EntireColumn.AutoFit

.ActiveSheet.Range("A3:F3").HorizontalAlignment = xlCenter

.ActiveSheet.Range("A3:F1000").Font.Name = "Arial"

.ActiveSheet.Range("A1:F15").Borders.LineStyle = xlContinuous

.ActiveSheet.Range("A3:F3").Interior.ColorIndex = 4

.ActiveSheet.Range("A3:F3").Font.ColorIndex = 5

MsgBox "selesai Export", vbInformation

.Visible = True

End With

5. Selesai Silahkan Test Tekan F5 Atau Klik Run Star Maka Data Akan Tampil Pada Datagrid:

Test export klik Button "Export Data Ke Microsoft Excel..?" Jika Berhasil Maka Akan Muncul File Excel Dengan Data Yg di ambil Dari database Access..

Mungkin Itu Saja Dari Saya Semoga Bisa Membantu Kalian..

Selamat Mencoba...

Tonton Videonya Di:

-------- My Channel ------