Connect CR 8.5 dengan VB 6

Postingan kali ini saya memberikan contoh coding koneksi Crystal Report 8.5 dengan Visual Basic 6.0, adapun contoh barisan coding sebagai berikut :

1. Private Sub cmdbuat_Click()
2. Dim saring As String
3. If DTPicker1.Value > DTPicker2.Value Then
4. MsgBox "Periode Salah", vbCritical, "Periode"
5. Else
6. saring = "{TrAbsensi.TglMasuk} >= #" & Format(DTPicker1.Value, "mm/dd/yyyy
   
7. 00:00:00") & "#" & _
8. "and {TrAbsensi.TglMasuk} <= #" & Format(DTPicker2.Value, "mm/dd/yyyy
9. 00:00:00") & "#"
10. 
    
11. CR.WindowTitle = "Laporan Absensi"
12. CR.ReportFileName = App.Path + "\Reports\LapAbsensi.rpt"
13. CR.Formulas(1) = "tgl1='" & Format(DTPicker1.Value, "dd/mm/yyyy") & "'"
14. CR.Formulas(2) = "tgl2='" & Format(DTPicker2.Value, "dd/mm/yyyy") & "'"
15. CR.Formulas(3) = "IDBAG='" & Combo2.Text & "'"
16. If Combo2.Text <> "Semua" Then
17. CR.ReplaceSelectionFormula (saring & " and {MstKaryawan.Nama} = '" &
    
18. Combo2.Text & "' and {MstKaryawan.IDbagian} = '" & Combo1.Text & "'")
19. Else
20. CR.ReplaceSelectionFormula (saring & " and {MstKaryawan.IDbagian} = '" &
    
21. Combo1.Text & "'")
22. End If
23. CR.Destination = crptToWindow
24. CR.WindowState = crptMaximized
25. CR.Action = 1
26. End If
27. End Sub