membuat report excel dengan vb6

Asumsi untuk praktek ini

Saya menggunakan VB 6 SP 6,MS Office 2003 Persiapan membuat report excel dengan VB6 Download Source Code

1. koneksi kedatabase dan Excel
• Tambahkan refernsi ADO 2.8 library dan pada project anda

Code :

Dim con As ADODB.Connection
Dim rs As ADODB.Recordset
Private Sub open_db()
Set con = New ADODB.Connection
With con
 .ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0"
 .Open App.Path & "\dbku.mdb"
 .CursorLocation = adUseClient
End With
End Sub

Private Sub Command1_Click()
 Set rs = New ADODB.Recordset
 rs.Open "select * from products", con, adOpenKeyset, adLockOptimistic
 Set DataGrid1.DataSource = rs
 rs.Requery
End Sub

Private Sub Command2_Click()
 Dim xls As New Excel.Application
 Dim px, py, pos As Integer
 px = 1
 py = 1
 pos = 2
 With xls
     .Workbooks.Add
 
     For i = 0 To rs.Fields.Count - 1
         .Cells(1, px) = rs.Fields(i).Name
         px = px + 1
     Next
 
     rs.MoveFirst
     Do While rs.EOF = False
         For j = 1 To rs.Fields.Count
             .Cells(pos, j) = rs.Fields(j - 1).Value
         Next
         pos = pos + 1
     rs.MoveNext
     Loop
 
     .Visible = True
 End With
End Sub

Private Sub Form_Load()

 open_db

End Sub