[Tanya] Bagaimana Caranya menampikan Isi Listview langsung Ke CRistal Report
Pertanyaan
Jawaban
Semua Balasan
-
Terima kasih atas respon nya...
Data di listview nya itu BUKAN dari database...
Saya sudah Mencobanya, Namun masih ad sedikit permasalahan...
saat saya meng-klik tombol print, hasil nya data dari listview Sudah Berhasil Masuk KE Cristal Report.
NAMUN, Masih agak keliru,, Data yang tampil ke CR nya hanya 1 yaitu data yang paling pertama.
Kemudian, saya close kan CR nya, Malah Muncul Lagi CR nya dengan Data Yang Ke 2.
Begitu lah seterusnya sampai data terakhir..
Ada yang bisa bantu gimana caranya supaya Semua Data Yang Ada Dilistview Bisa Muncul Sekaligus Kedalam CReport nya...???
Mohon bantuannya Ya...
Terima kasih..
Me.Cursor = Cursors.WaitCursor ''Parameternya Saya Gunakan TextObject yang ada Di Cristal Report. Dim Crpt As New RPTLIST Dim tnama As CrystalDecisions.CrystalReports.Engine.TextObject Dim tqty As CrystalDecisions.CrystalReports.Engine.TextObject Dim thrg As CrystalDecisions.CrystalReports.Engine.TextObject Dim tjlih As CrystalDecisions.CrystalReports.Engine.TextObject Dim tmi As String = Nothing Dim tqy As String = Nothing Dim thg As String = Nothing Dim tlj As String = Nothing 'printah Untuk Menampilkan Data Listview Ke C.report. For it = 0 To (LIS.Items.Count - 1) With LIS.Items(it) tnama = Crpt.Section1.ReportObjects("tnim") tmi = .SubItems(0).Text tnama.Text = tmi tqty = Crpt.Section1.ReportObjects("tqyt") tqy = .SubItems(1).Text tqty.Text = tqy thrg = Crpt.Section1.ReportObjects("thggr") thg = .SubItems(2).Text thrg.Text = thg tjlih = Crpt.Section1.ReportObjects("tjll") tlj = .SubItems(3).Text tjlih.Text = tlj End With CRVLIS.dlist.RefreshReport() CRVLIS.dlist.ReportSource = Crpt CRVLIS.ShowDialog() Next it Me.Cursor = Cursors.DefaultHasil Dari Code Di Atas Seperti ini :
-
hallo salam kenal juga Ahmad Rofi'i..
Terimakasih sudah maw berbagi ilmunya...
Solusi coding nya sudah saya coba sesuai yang anda berikan,,
NAMUN, Masih ada sedikit mslah.. dan saya jg udh otak-atik coding nya, tp gk mw juga..
saat programnya dijalankan, dan menampilkan cr.nya..
Muncul Pesan Error seperi ini :Berikut Code lengkap nya :
Me.Cursor = Cursors.WaitCursor 'variabel Pendukung Dim Crpt As New RPTLIST Dim tnama As CrystalDecisions.CrystalReports.Engine.TextObject Dim tqty As CrystalDecisions.CrystalReports.Engine.TextObject Dim thrg As CrystalDecisions.CrystalReports.Engine.TextObject Dim tjlih As CrystalDecisions.CrystalReports.Engine.TextObject Dim tmi As String = Nothing Dim tqy As String = Nothing Dim thg As String = Nothing Dim tlj As String = Nothing Dim dt As New DataTable tnama = Crpt.Section1.ReportObjects("tnim") tqty = Crpt.Section1.ReportObjects("tqyt") thrg = Crpt.Section1.ReportObjects("thggr") tjlih = Crpt.Section1.ReportObjects("tjll") With dt.Columns .Clear() .Add("tnim", GetType(String)) .Add("tqyt", GetType(String)) .Add("thggr", GetType(String)) .Add("tjll", GetType(String)) End With For Each item As ListViewItem In LIS.Items tmi = item.SubItems(0).Text tqy = item.SubItems(1).Text thg = item.SubItems(2).Text tlj = item.SubItems(3).Text dt.Rows.Add(tmi, tqy, thg, tlj) Next Crpt.SetDataSource(dt) ' Muncul pesan Error Disini... CRVLIS.dlist.RefreshReport() CRVLIS.dlist.ReportSource = Crpt CRVLIS.ShowDialog()itu kira2 apa yang salah ya..???
-
Halo Om Tafarie,
Sepertinya anda mengalami trauma dengan database. Apakah iya seperti itu? Bila tidak, maka anda hanya perlu membuat databasenya saja. Setelah itu masalah anda pasti akan terpecahkan. Dan bilamana anda mengalami kendala dengan database, maka saya akan membantu dengan database yang mudah, yang tidak memerlukan connection string, yaitu DataSet.
Sekarang yang perlu anda lakukan adalah membuat project yang baru, berilah nama project tersebut Tafarie, yaitu nama anda. Setelah itu hapuslah Form1. Dan buatlah form baru dengan nama BuatDataSet. Setelah jadi, langsunglah masuk kedalam ke jendela kode, dan ketikkan berikut ini:
Public Class BuatDataSet Private Sub BuatDataSet_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Try 'mendeklarasikan sebuah dataset... 'beri nama datasetnya, yaitu "dataset - latihan"... Using a As New DataSet("DataSet - Latihan") 'mendeklarasikan sebuah tabel... 'beri nama tabelnya, yaitu "biodata"... Using b As New DataTable("Biodata") 'buat kolom pertama, yaitu id... b.Columns.Add("ID", GetType(String)) 'buat kolom kedua, yaitu nama lengkap... b.Columns.Add("Nama Lengkap", GetType(String)) 'simpan tabel biodata ini kedalam dataset... a.Tables.Add(b) End Using 'tabel biodata telah ditutup dan dihapus dari memory... 'mendeklarasikan sebuah tabel... 'beri nama tabelnya, yaitu "barang"... Using b As New DataTable("Barang") 'buat kolom pertama, yaitu id... b.Columns.Add("ID", GetType(String)) 'buat kolom kedua, yaitu nama barang... b.Columns.Add("Nama Barang", GetType(String)) 'buat kolom ketiga, yaitu harga... b.Columns.Add("Harga", GetType(Integer)) 'simpan tabel barang ini kedalam dataset... a.Tables.Add(b) End Using 'tabel barang telah ditutup dan dihapus dari memory... 'sekarang bakukan dataset ini kedalam sebuah file... 'filenya akan disimpan di desktop, dengan nama "dataset - latihan.xml"... 'dan jangan lupa, jenis skemanya adalah xmlwriteschema, yaitu file akan ditulis secara lengkap... a.WriteXml(My.Computer.FileSystem.SpecialDirectories.Desktop & "\DataSet - Latihan.xml", XmlWriteMode.WriteSchema) End Using 'dataset telah ditutup dan dihapus dari memory... Catch ex As Exception End Try End Sub End Class
Setelah selesai, jangan lupa langsung menuju My Project, dan ubah nilai pada combobox Startup Form menjadi BuatDataSet. Sampai tahap ini jalankan. Setelah form berhasil ditampilkan, dalam artian tidak mengalami error. Maka coba anda lihat pada desktop anda, apakah telah tersedia sebuah file dengan nama DataSet – Latihan.xml. Bila iya, maka anda telah berhasil membuat file database.
Sekarang buatlah sebuah form baru, dan beri nama form tersebut FormBiodata. Cobalah anda desain FormBiodata kurang lebih seperti ini:
Yang perlu anda ketahui, disini saya tidak mengubah nama-nama control yang ada, jadi mereka menggunakan nama default.
Bersambung ke thread berikutnya…
-
Setelah selesai mendesain FormBiodata, sekarang yang perlu anda lakukan adalah membuat report. <sup>1) </sup>Untuk itu buatlah crystal report yang baru, dan berilah nama LaporanBiodata. <sup>2)</sup> Ketika muncul jendela Crystal Report Gallery, langsung saja anda pilih Radio Button As A Blank Report, dan setelah itu klik tombol OK.
Pada saat ini anda telah membuat Crystal Report Document. <sup>3)</sup> Langsung saja anda tuju Field Explorer yang ada di sebelah kiri Crystal Report Document anda, klik kananlah pada item Database Fields. Ketika muncul menu, langsung saja anda klik Database Experts…. <sup>4)</sup> Nantinya akan muncul jendela Database Experts, maka yang perlu anda lakukan kali ini adalah tuju dan expand-lah Create New Connection, setelah itu klik ganda item Database Files. <sup>5)</sup> Nantinya akan muncul jendela Open, dan seperti biasa, langsung saja menuju ke Desktop, dan pilihlah file DataSet – Latihan.xml, dan klik tombol OK untuk menutup jendela Open. Sekarang anda telah berada pada jendela Database Experts kembali. Dan lihatlah disitu, apakah file dataset anda telah terdefinisi sebagai database, bila iya berarti anda telah berhasil.
<sup>6)</sup> Kali ini expand Dataset – Latihan anda, dan pilih Biodata sebagai Selected Tables-nya. Dan setelah itu klik tombol OK untuk menutup jendela Database Experts. <sup>7)</sup> Sampai disini, saya hanya mendesain reportnya ala-kadarnya. Karena yang terpenting kan kode dan hasil akhirnya.
Bersambung ke thread berikutnya…
-
Sampai disini, kembalilah ke FormBiodata. Sekarang jendela Toolbox yang ada dikiri layar Visual Studio/Visual Basic anda. Carilah komponen ReportDocument milik Crystal Report, dan masukkan ke FormBiodata anda. Nantinya akan muncul jendela Choose a ReportDocuments, langsung saja anda pilih LaporanBiodata pada combobox yang tersedia. Dan setelah itu klik tombol OK untuk menutup jendela Choose a ReportDocuments.
Setelah selesai semuanya, berarti anda telah membuat laporan biodata yang dibuat dengan crystal report bisa mengalami update report pada running nanti sebesar 50% saja. Karena yang sisanya lagi harus dilakukan secara manual. Untuk itu masuklah ke jendela kode dan ketikkan berikut ini:
Public Class FormBiodata 'menampung nama file yang akan dibuka... Dim LokasiFile As String = My.Computer.FileSystem.SpecialDirectories.Desktop & "\dataset - latihan.xml" 'disini buttonclick menampung control button1, button2, dan tabcontrol1... Private Sub ButtonClick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click, Button2.Click, TabControl1.SelectedIndexChanged Try 'bila yang di klik adalah button1... If sender Is Button1 Then 'deklarasikan dataset... Using a As New DataSet 'buka dan baca file sasaran... a.ReadXml(LokasiFile) 'data source pada data grid dialihkan ke tabel biodata yang ada pada file dataset... DataGridView1.DataSource = a.Tables("biodata") End Using 'dataset telah ditutup dan dihapus dari memory... End If 'bila yang di klik adalah button2... If sender Is Button2 Then 'deklarasikan dataset... Using a As New DataSet 'buka dan baca file sasaran... a.ReadXml(LokasiFile) 'hapus struktur tabel biodata... a.Tables("biodata").Clear() 'buat struktur yang baru berdasarkan data table yang tersimpan di datagrid view... a.Tables("biodata").Merge(DataGridView1.DataSource) 'catat perubahan dan simpan kembali pada file... a.WriteXml(LokasiFile, XmlWriteMode.WriteSchema) End Using 'dataset telah ditutup dan dihapus dari memory... End If 'bila yang di klik adalah tabcontrol1... If sender Is TabControl1 Then 'bila yang di klik adalah tab page yang kedua ... If TabControl1.SelectedIndex = 1 Then 'load record yang tersimpan pada file... laporanBiodata1.Load() 'alihkan report source pada crystal report viewer ke laporan biodata... CrystalReportViewer1.ReportSource = laporanBiodata1 End If End If Catch ex As Exception End Try End Sub End ClassSetelah selesai, langsung tuju My Project, dan rubahlah nilai combobox Startup Form menjadi FormBiodata. Setelah itu jalankan, dan berikut ini yang harus anda lakukan:
- Klik tombol Load Biodata, ini akan membuat control DataGridView menampilkan struktur table Biodata yang telah dibuat pada latihan awal.
- DataGridView disini saya gunakan untuk menggantikan fungsi textbox saja. Jadi apapun yang ingin anda input, lakukan saja pada DataGridView yang telah tersedia.
- Untuk tahap awal, cobalah anda isi record sebanyak 2 saja. Setelah itu klik tombol Simpan Perubahan agar record yang telah di input, ditulis kembali kedalam file.
- Setelah itu kliklah Tab Page View Report, dan lihatlah, apakah file yang telah di input dan disimpan kedalam file, bisa dibaca oleh crystal reports.
- Lakukanlah berulang kali, dan lihatlah pada Tab Page View Report, apakah crystal report akan mengupdate recordnya sesuai dengan apa yang anda input.
- Biar lebih yakin lagi, matikan FormBiodata-nya setelah anda menyimpan record yang banyak, katakanlah 10 record. Setelah itu hidupkan kembali, dan klik tombol Load Biodata, apakah semua record yang telah anda input sukses ditampilkan semuanya.
Sampai disinilah tutorial yang saya buat untuk Om Tafarie, semoga sesuai keinginan.
- Diedit oleh Wahyu VB .Net Senin, 15 Oktober 2012 13.42
-
Sampai disini, kembalilah ke FormBiodata. Sekarang jendela Toolbox yang ada dikiri layar Visual Studio/Visual Basic anda. Carilah komponen ReportDocument milik Crystal Report, dan masukkan ke FormBiodata anda. Nantinya akan muncul jendela Choose a ReportDocuments, langsung saja anda pilih LaporanBiodata pada combobox yang tersedia. Dan setelah itu klik tombol OK untuk menutup jendela Choose a ReportDocuments.
Setelah selesai semuanya, berarti anda telah membuat laporan biodata yang dibuat dengan crystal report bisa mengalami update report pada running nanti sebesar 50% saja. Karena yang sisanya lagi harus dilakukan secara manual. Untuk itu masuklah ke jendela kode dan ketikkan berikut ini:
Public Class FormBiodata 'menampung nama file yang akan dibuka... Dim LokasiFile As String = My.Computer.FileSystem.SpecialDirectories.Desktop & "\dataset - latihan.xml" 'disini buttonclick menampung control button1, button2, dan tabcontrol1... Private Sub ButtonClick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click, Button2.Click, TabControl1.SelectedIndexChanged Try 'bila yang di klik adalah button1... If sender Is Button1 Then 'deklarasikan dataset... Using a As New DataSet 'buka dan baca file sasaran... a.ReadXml(LokasiFile) 'data source pada data grid dialihkan ke tabel biodata yang ada pada file dataset... DataGridView1.DataSource = a.Tables("biodata") End Using 'dataset telah ditutup dan dihapus dari memory... End If 'bila yang di klik adalah button2... If sender Is Button2 Then 'deklarasikan dataset... Using a As New DataSet 'buka dan baca file sasaran... a.ReadXml(LokasiFile) 'hapus struktur tabel biodata... a.Tables("biodata").Clear() 'buat struktur yang baru berdasarkan data table yang tersimpan di datagrid view... a.Tables("biodata").Merge(DataGridView1.DataSource) 'catat perubahan dan simpan kembali pada file... a.WriteXml(LokasiFile, XmlWriteMode.WriteSchema) End Using 'dataset telah ditutup dan dihapus dari memory... End If 'bila yang di klik adalah tabcontrol1... If sender Is TabControl1 Then 'bila yang di klik adalah tab page yang kedua ... If TabControl1.SelectedIndex = 1 Then 'load record yang tersimpan pada file... laporanBiodata1.Load() 'alihkan report source pada crystal report viewer ke laporan biodata... CrystalReportViewer1.ReportSource = laporanBiodata1 End If End If Catch ex As Exception End Try End Sub End ClassSetelah selesai, langsung tuju My Project, dan rubahlah nilai combobox Startup Form menjadi FormBiodata. Setelah itu jalankan, dan berikut ini yang harus anda lakukan:
- Klik tombol Load Biodata, ini akan membuat control DataGridView menampilkan struktur table Biodata yang telah dibuat pada latihan awal.
- DataGridView disini saya gunakan untuk menggantikan fungsi textbox saja. Jadi apapun yang ingin anda input, lakukan saja pada DataGridView yang telah tersedia.
- Untuk tahap awal, cobalah anda isi record sebanyak 2 saja. Setelah itu klik tombol Simpan Perubahan agar record yang telah di input, ditulis kembali kedalam file.
- Setelah itu kliklah Tab Page View Report, dan lihatlah, apakah file yang telah di input dan disimpan kedalam file, bisa dibaca oleh crystal reports.
- Lakukanlah berulang kali, dan lihatlah pada Tab Page View Report, apakah crystal report akan mengupdate recordnya sesuai dengan apa yang anda input.
- Biar lebih yakin lagi, matikan FormBiodata-nya setelah anda menyimpan record yang banyak, katakanlah 10 record. Setelah itu hidupkan kembali, dan klik tombol Load Biodata, apakah semua record yang telah anda input sukses ditampilkan semuanya.
Sampai disinilah tutorial yang saya buat untuk Om Tafarie, semoga sesuai keinginan.
halo om wahyu vb.net..
terima kasih atas tutorial nya..
setelah saya pelajari, dan ikuti langkah2 nya,, saya ad sedikit permasalahan pada bagian memilih Laporan dari reportdocument..
saat saya memilih laporanbioada, muncul pesan seperti ini... :
itu dimana salah nya ya..??
dan bagaimana solusinya..??
udah dikotak katik, gk nemu2..
Terima kasih..
