vb6: selection formula di visual basic 6 dengan crystal report 8.5  

banyak yang menanyakan masalah selection formula pada vb6 kepada saiah, padahal saiah bukan jagonya, cuman sih inget-inget kagak, ha ha ha..., tapi tidak apa-apa sayah juga terkadang lupa.
berikut beberapa contoh sajah:
selection formula di crystal report 8.5 atau versi di atasnya sama saja. dan itu bisa dilakukan langsung di kode vb6 nya maupun dilakukan pada crystal reportnya langsung, kumaha carana......... kieu yeuhh
1. langsung buat kode di program VB6 nya

sub cetak()

Dim stgl1, stgl2 As String
stgl = Left(dtawal.Value, 2) + "/" + Mid(dtawal.Value, 4, 2) + "/" + Mid(dtawal.Value, 7, 4) 'tgl awal
stgl1 = Left(dtakhir.Value, 2) + "/" + Mid(dtakhir.Value, 4, 2) + "/" + Mid(dtakhir.Value, 7, 4) 'tgl akhir

With crlhp
.Reset
.Destination = crptToWindow
.ReportFileName = "\\Billing\USER\all about facebook\report\lhptkurir.rpt"
'.ReportFileName = App.Path & "\report\lhptkurir.rpt"
.WindowState = crptMaximized
.WindowShowPrintBtn = True
.WindowShowRefreshBtn = True
.WindowTitle = "Laporan Hasil Pengiriman"
.SelectionFormula = "{Ttran_kirim.KodeCos} = '" & cbcostumer.Text & "'" + "And" + "{Ttran_kirim.TglPickup} >= #" & CDate(stgl) & "#" + "And" + "{Ttran_kirim.TglPickup}<=#" & CDate(stgl1) & "#"
'.SelectionFormula = "{Ttran_kirim.TglPickup} >= #" & dtawal.Value & "#" + "And" + "{Ttran_kirim.TglPickup}<=#" & dtakhir.Value & "#"
.Formulas(0) = "Costumer='" & lblcostumer.Caption & "'"
.Formulas(1) = "tglawal='" & dtawal.Value & "'"
.Formulas(2) = "tglakhir='" & dtakhir.Value & "'"

.RetrieveDataFiles
.Action = 1
End With
end sub
pasti kepanjangan........ saya coba ganti yg simpel aja deh, to de point
bisa begini :

        .SelectionFormula = "{ado.tanggal}>=#" & CDate(Format(tgl1.Value, "mm/dd/yyyy")) & "#" + "And" + "{ado.tanggal}<=#" & CDate(Format(tgl2.Value, "mm/dd/yyyy")) & "#"

atau begieu yg di coba di sql 2000

Select Case pilihan
Case 0
.SQLQuery = "SELECT * from view_data_pembelian where no_Pembelian = '" & _
CmbNoPembelian.Text & "'"
Case 1
.SQLQuery = ""
Case 2
.SQLQuery = "SELECT * from view_data_pembelian where tgl_pembelian = '" & _
Format(Tgl.Value, "mm/dd/yyyy") & "'"
Case Else
.SQLQuery = "SELECT * from view_data_pembelian where tgl_pembelian >= '" & _
Format(Tgl1.Value, "mm/dd/yyyy") & "' and tgl_pembelian <= '" & _
Format(Tgl2.Value, "mm/dd/yyyy") & "'"
End Select

silakan di coba mana yang jalan aja, memang sih tulisannya amburadul..........
dan tidak komplit, sengaja, biar ikut pusing juga...
2. dibuat selection formula di crystal report 8.5 nya

lihat gambar di atas klik report>edit selection formula >record
hasilnya seperti gambar di bawah ini

nah begitu lah kira-kira teman.

sisanya tinggal kreatifitas anda sendiri
semoga membantu

This entry was posted on 19.38 and is filed under . You can leleave a response and llow any responses to this entry through the Langganan: Posting Komentar (Atom) .

0 komentar