Crystal Report : Filter Menggunakan Dataset dan DateTimePicker

Pada pembahasan mengenai Crystal report kali ini adalah filterisasi dengan menggunakan fungsi between dari dateTimePicker dan menggunakan konsep koneksi Disconnected Environment yaitu Dataset dan ini sesuai dengan usulan dari teman saya johan regar

Duh ini apa lagi seh ? kok banyak review nya ?

baik ini rasanya capek ya kok banyak bener review mengenai Crystal Report, yah namanya juga share jadinya kan banyak versi sehingga menjadikan kita semakin berkreasi lebih dan lebih lagi untuk membuat pelaporan yang bervariasi, sebelumnya baca dahulu review crystal report saya sebelumnya

Mulai dengan membuat file Crystal Report baru





Caranya seperti review saya sebelumnya yang membedakan adalah pada saat koding


Disini saya memakai 2 buah DateTimePicker sebagai filter dan button sebagai penampil isi report, penggunaan Dataset yang mana memungkinkan anda untuk melakukan selection formula secara coding query langsung ke dalam table pada database dengan mem-binding Dataset yang merupakan representasi dari table dan crystal reportnya, serta saya menggunakan database SQL Server 2005


Koding Time


ok langsung saja


Imports System.CrystalReports.Shared
imports System.Data.SqlClient


Public Class1


Dim xKoneksi As new SqlConnection
Dim xcom As new SqlCommand
Dim ds As new Dataset
Dim da As SqlDataAdapter
Dim ReportPembelian as new CReportBeli


Private Sub Form1_Load(Byval sender As System.Object, Byval e As System.EvenArgs) Handles me.Load
xKoneksi.ConnectionString="Data Source=NAMA_SERVER;Initial Catalog=NAMA_DB;Integrated Security=true"
xKoneksi.open()
End Sub


Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click


Try

xcom.CommandText = "SELECT PEMBELIAN.no_nota," & _
"PEMBELIAN.nama_supplier, "PEMBELIAN.tanggal_nota, detil_pembelian.kode_barang," & _ "detil_pembelian.nama_barang,detil_pembelian.jumlah_beli, detil_pembelian.harga, " & _ "detil_pembelian.total, PEMBELIAN.total_pembelian, PEMBELIAN.Keterangan " & _

"FROM PEMBELIAN, detil_pembelian WHERE" & _
"PEMBELIAN.no_nota = detil_pembelian.no_nota_pembelian and " & _
"PEMBELIAN.tanggal_nota BETWEEN '" & datetimepicker1.value & "'" & "and" & _
"'" & datetimepicker2.value & "'"
da = New SqlDataAdapter(xcom.CommandText, xKoneksi)
da.Fill(ds, "tblAlias")

ReportPembelian.SetDataSource(ds.Tables("tblAlias"))


CrystalReportViewer1.Zoom(1)
CrystalReportViewer1.ReportSource = ReportPembelian


Catch (Ex As Excepyion)


End Try


End Sub


End Class


Silahkan mencoba versi yang baru ini menggunakan fungsi Between dari datetimepicker dan ditampilkan saat anda meng-klik button. thx to johan regar


by


WAL