Script VB6 untuk selection Crystal Report menggunakan database SQL 2000

Disini saya akan menunjukan script VB6 yang digunakan untuk menyeleksi report yang akan dicetak melalui Crystal Report 8.5
Untuk Selection berdasarkan Text atau label yang berada di VB6, scriptnya seperti dibawah ini:
With CrystalReport1
.reset
.ReportFileName = App.Path &"\Report.rpt"                                                 'Letak File Report
.WindowShowPrintBtn = True
.SelectionFormula = "{Transaksi.NoTransaksi}='"& Text1.Text &"'"  
.RetrieveDataFiles
.Action = 1
End With

Untuk Selection berdasarkan range Tanggal, scriptnya sama seperti dibawah ini:

With CrystalReport1
.reset
.ReportFileName = App.Path & "\Report.rpt"                                        'Letak File Report.WindowShowPrintBtn = True
.SelectionFormula = "{Transaksi.Tgl_Transaksi} in date ('" DTPicker1.Value &"') to date ('"& DTPicker2.Value &"')"
.RetrieveDataFiles
.Action = 1
End With
NB:
Untuk Transaksi.NoTransaksi adalah NamaTable.FieldTable yang digunakan untuk menyeleksi.
Letakan script diatas pada Command Cetak/Print dan sebagainya.

Komentar

Postingan populer dari blog ini

Memecah dan membuat relasi tabel

avatar galeh