English French German Spain Italian Dutch

Russian Portuguese Japanese Korean Arabic Chinese Simplified

01 Juni 2010

Crystal Report : Source Code Filter Inputan User

Nah kali ini saya mau share lagi bagi2 nah ini masih soal Filtering di Crystal Report nah kali ini maunya filter berdasarkan nama kolom dan tetap memakai combobox seperti pada ulasan saya sebelumnya di Filter Bulan dan Tahun

Lama langsung aja lah

baik lama ya? he3 oke ini yang anda butuhkan untuk percobaan kali ini
1. Combobox (1 buah) sebagai trigger pilihan nama kolom nya
2. CrystalReportViewer untuk menampilkan/menempelkan crystalreport pada form

Ok komponen udah jelas ini lalu ?

Ok kali ini yang mau saya buat case study nya adalah menampilkan id_Penjualan di Combobox lalu dari Value yang ada dari Combobox di klik maka akan langsung terjadi perubahan dan sedangkan Button untuk menampilkan semua data

Paham ? Koding Time

Imports System.Data.SqlClient
Public Class FormCR

Dim ds As New DataSet
Dim da As SqlDataAdapter
Dim xKoneksi as SqlConnection
Dim NewCR as new ReportPenjualan

Private Sub FormCR_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Me.Load
Try
If xKoneksi.State=Connection.Open()
xKoneksi.Close()
End If
xKoneksi.ConnectionString="Data Source=NAMA_SERVER;Initial Catalog=NAMA_DATABASE;Integrated Security=True"
xKoneksi.Open()

Dim query As String
query="Select id_penjualan from Transaksi_Penjualan"
da=New SqlDataAdapter(query,xKoneksi)
da.Fill(ds,"TblAlias")

For i As Int32 = 0 To ds.Tables("TblAlias").Rows.Count - 1
Combobox1.Items.Add(ds.Tables("TblAlias").rows(i).Item(0).ToString
End For
Catch(ex As Exception)
MsgBox(ex.Message() & ex.StackTrace() & ex.Source())
End Try
End Sub

End Sub

Private Sub Combobox1_SelectedIndexChanged(Byval sender As System.Object, Byval e As System.EventArgs)Handles Combobox1.SelectedIndexChanged
Try
CrystalReportViewer1.ReportSource = NewCR
CrystalReportViewer1.Zoom(1)
CrystalReportViewer1.SelectionFormula = "{Transaksi_Penjualan.id_penjualan}='" & Combobox1.Text & "'"
CrystalReportViewer1.Refresh()
Catch(ex As Exception)
MsgBox(ex.Message() & ex.StackTrace() & ex.Source())
End Try
End Sub
End Class

Sudah ? bagaimana pusing ?

Itu berarti anda sudah pada jalur yang tepat dan silahkan mencoba

by

WAL

1 komentar:

Anonim mengatakan...

Tutorial yang sangat membantu. Kebetulan gw juga lagi buat proyek yang menggunakan banyak laporan via crystal report....good job man ^-^