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

Beberapa klausa dalam MySQL yang digunakan untuk mengurutkan, memfilter, mencari dan juga menghitung data

Mendefinisikan metadata dari sebuah artikel

Cara remote MySQL menggunakan XAMPP di Windows