Klik File
New
Klik DBBelajarvb - Kemudian Klik Open
Klik close
Kemudian Klik Finish
Maka akan Muncul seperti gambar dibawah :
Pembuatan Laporan dengan Crystal Report selesai, sekarang kita lanjut ke Tahap 4
4. Membuat Project VB 6 dan Memanggil Laporan Harian
Buka Aplikasi VB 6.0 Anda
Simpan Form1 dan Project1 anda pada Folder "Belajar VB"
Buatlah Form Seperti gambar dibawah ini :
Kemudian Masukan Koding dibawah ini :
Private Sub Command1_Click()
CrystalReport1.SelectionFormula = "Totext({Transaksi.Tanggal})= '" & CDate(DTPicker1) & "'"
CrystalReport1.ReportFileName = App.Path & "\Laporan Harian.rpt"
CrystalReport1.WindowState = crptMaximized
CrystalReport1.RetrieveDataFiles
CrystalReport1.Action = 1
End Sub
Silahkan jalankan Project VB 6 anda
Kemudian Klik Cetak
Maka akan Muncul :
Mudah Bukan ???
Untuk hasil latihan diatas anda bisa KLIK LINK INI
Jika anda mengalami kesulitan atau ada yang ingin ditanyakan, anda bisa berkomentar di bawah
« Prev Post
Next Post »
Penulisan markup di komentar
- Untuk menulis huruf bold silahkan gunakan
<strong></strong>atau<b></b>. - Untuk menulis huruf italic silahkan gunakan
<em></em>atau<i></i>. - Untuk menulis huruf underline silahkan gunakan
<u></u>. - Untuk menulis huruf strikethrought silahkan gunakan
<strike></strike>. - Untuk menulis kode HTML silahkan gunakan
<code></code>atau<pre></pre>atau<pre><code></code></pre>, dan silahkan parse dulu kodenya pada kotak parser di bawah ini.
23 komentar
Write komentarkalau pake database nya mysql server bisa ga?
trus koding nya beda lagi apa enggak?
Hi Arin,
Untuk database MySQL hanya berbeda pada koneksinya ya...
Untuk tutorialnya belum kami post, dan mohon di tunggu...
Sore bu..
Mau tanya untuk tanggal yg diinput itu otomatis atau ketik mnual ya bu?
Hi Ayu,
Itu tingga milih, kan pakai DTPicker...
jelas ga yah jawaban ku?
Sore bu, codingnya apakah berlaku juga untuk crystal report 10? Terimakasih.
Reply
Hi Monica,
Sama aja, Crystal report 10 kodingnya juga sama..
ikuti aja ya langkah diatas, pasti bisaaaaa :)
Maaf bu saya udah coba2 tapi kok data nya ga mau muncul ya crtnya muncul tapi datanya ga bu makasih sebelumnya
Private Sub Command1_Click()
CrystalReport1.SelectionFormula = "Totext({suratmasuk.tglmasuk})= '" & CDate(DTPicker1) & "'"
CrystalReport1.ReportFileName = App.Path & "\rpt1.rpt"
CrystalReport1.WindowState = crptMaximized
CrystalReport1.RetrieveDataFiles
CrystalReport1.Action = 1
Hi Erwin,
Mohon infonya, Crystal Reportnya muncul ga? yang penting pastiin dulu crystal reportnya muncul ya..
Maaf bu pertanyaan sy jga sma dg erwin,
crstlreport tampil tp data kosong
Hi Isyanto,
Bisa di capture ke gambar hasil dari langkah diatas, kemudian kirim ke email kami?
Assalamualaikum...
bu, yang ingin saya tanyakan, apakah bisa jika ditanggal yg tidak terdapat transaksi di tanggal tertentu itu di beri message box "Data laporan tidak di ketemukan" ?
listing saya di bawah ini error jika saya tambahkan message boxnya. jika message boxnya saya gak pake, data keluar normal.
Private Sub cetakharian_Click()
Call koneksi
rstransaksi.Open "select * from transaksi where (transaksi.tgltrans)='" & CDate(DTP1) & "' , KON"
If rstransaksi.EOF Then
MsgBox "Data laporan tidak di ketemukan"
Exit Sub
DTP1.SetFocus
End If
CR.ReportFileName = App.Path & "\laporan\harian.rpt"
CR.WindowState = crptMaximized
CR.RetrieveDataFiles
CR.SelectionFormula = "Totext({transaksi.tgltrans})='" & CDate(DTP1) & "'"
CR.Action = 1
End Sub
mohon di bantu ya...
trims sebelumnya..
jazakallah khairan katsir...
Assalamualaikum...
bu, yang ingin saya tanyakan, apakah bisa jika ditanggal yg tidak terdapat transaksi di tanggal tertentu itu di beri message box "Data laporan tidak di ketemukan" ?
listing saya di bawah ini error jika saya tambahkan message boxnya. jika message boxnya saya gak pake, data keluar normal.
Private Sub cetakharian_Click()
Call koneksi
rstransaksi.Open "select * from transaksi where (transaksi.tgltrans)='" & CDate(DTP1) & "' , KON"
If rstransaksi.EOF Then
MsgBox "Data laporan tidak di ketemukan"
Exit Sub
DTP1.SetFocus
End If
CR.ReportFileName = App.Path & "\laporan\harian.rpt"
CR.WindowState = crptMaximized
CR.RetrieveDataFiles
CR.SelectionFormula = "Totext({transaksi.tgltrans})='" & CDate(DTP1) & "'"
CR.Action = 1
End Sub
mohon di bantu ya...
trims sebelumnya..
jazakallah khairan katsir...
Hi Kurniawan,
Untuk membuat msgBox bisa saja, yang pertama : querykan ke database, jika tidak ada maka keluar Pesan atau MsgBox,
Jika ada langsung keluar laporan.
Yang tidak bisanya dimana ya? jika terjadi error, pesan errornya apa? bisa dituliskan???
Dear All,
Untuk masalah Data Kosong, silahkan klik link ini ya..
saya sudah update cara2nya agar tidak kosong atau agar datanya bisa muncul :
http://blog.belajarvb.com/2015/07/mengatasi-laporan-crystal-report-tidak-keluar-data.html
maaf bu ini berlaku untuk vb 2012 dan cristal report 2008 tidak ya bu?
Reply
Hi Ika,
Ini berlaku untuk laporan VB 6.0
Jika VB Net 2008 atau 2012 berbeda lagi.
Silahkan merujuk ke Tutorial VB Net 2010 ya..
maaf bu mau tanya, itu kan databasenya menggunakan MS Office Access, kalau databasenya menggunakan My sql apakah langkahnya sama. . .??
Reply
Hi Reea,
Tutorial diatas memang benar menggunakan Office Access,
Jika MySQL bedanya pada Find database. Jika ada waktu nanti saya buatkan tutorialnya ya...
assalamuallaikum Bu kalo manggilnya pake Kode barang misalanya gimna ya bu makasih ^_^
Reply
Hi Andrea,
Untuk memanggil kode barang cara caranya nanti saya update di Blog BelajarVB ya..
Mohon ditunggu dan terima kasih :)
Ibu maaf mau tanya saya udh pake codingan itu tapi error di codingan .action=1 ..mohon pencerahan nya bu.. Makasih :)
Reply
Hi Nhay,
Nanti akan dijelaskan di Video Tutorial Guru Koding di Youtube.
Mohon ditunggu ya....