🛒 Keranjang Belanja

🛒

Keranjang masih kosong

Tambahkan produk favorit Anda

Connect CR 8.5 dengan VB 6

Postingan kali ini saya memberikan contoh coding koneksi Crystal Report 8.5 dengan Visual Basic 6.0, adapun contoh barisan coding sebagai berikut :
  1. Private Sub cmdbuat_Click()
  2. Dim saring As String
  3. If DTPicker1.Value > DTPicker2.Value Then
  4. MsgBox "Periode Salah", vbCritical, "Periode"
  5. Else
  6. saring = "{TrAbsensi.TglMasuk} >= #" & Format(DTPicker1.Value, "mm/dd/yyyy
  7. 00:00:00") & "#" & _
  8. "and {TrAbsensi.TglMasuk} <= #" & Format(DTPicker2.Value, "mm/dd/yyyy
  9. 00:00:00") & "#"

  11. CR.WindowTitle = "Laporan Absensi"
  12. CR.ReportFileName = App.Path + "\Reports\LapAbsensi.rpt"
  13. CR.Formulas(1) = "tgl1='" & Format(DTPicker1.Value, "dd/mm/yyyy") & "'"
  14. CR.Formulas(2) = "tgl2='" & Format(DTPicker2.Value, "dd/mm/yyyy") & "'"
  15. CR.Formulas(3) = "IDBAG='" & Combo2.Text & "'"
  16. If Combo2.Text <> "Semua" Then
  17. CR.ReplaceSelectionFormula (saring & " and {MstKaryawan.Nama} = '" &
  18. Combo2.Text & "' and {MstKaryawan.IDbagian} = '" & Combo1.Text & "'")
  19. Else
  20. CR.ReplaceSelectionFormula (saring & " and {MstKaryawan.IDbagian} = '" &
  21. Combo1.Text & "'")
  22. End If
  23. CR.Destination = crptToWindow
  24. CR.WindowState = crptMaximized
  25. CR.Action = 1
  26. End If
  27. End Sub

Komentar

  1. Anonim30 Juli 2009 pukul 15.32

    Mas, saya sudah coba kok malah muncul error "Can't Open Database"? Mohon petunjuknya terimakasih

    BalasHapus
  2. arezatzura10 September 2009 pukul 08.57

    Kalau berdasarkan pengalaman saya error tersebut di karenakan koneksi di Crystal Report dengan koneksi di Visual Basic tidak match.. Coba perhatikan DNS nya. Trims

    BalasHapus

Posting Komentar

Silahkan isi komentar yang dapat membangun :

Postingan populer dari blog ini

Mengapa perlu menggunakan SIA?

Apa itu SIA? Merupakan kepanjangan dari Sistem Informasi Akuntansi dimana suatu sistem yang memproses data untuk menghasilkan informasi keuangan dan manajemen. Disini saya memcoba sedikit menjelaskan Latar Belakang mengapa perlu adanya Sistem Informasi Akuntansi. Biasanya yang melatarbelakangi penggunaan Sistem Informasi oleh pelaku bisnis adalah : Memiliki stok/persediaan yang tidak akurat, karena pencatatan mereka masih manual menggunakan buku stok. Proses pencatatan penjualan dan pembelian juga dilakukan secara manual sehingga ketika akan mencari data yang sudah lama akan kesulitan dan memakan waktu. Menyebabkan Efisiensi waktu menjadi berkurang. Ketidak akuratan dalam pencatatan dan pengaturan Arus Kas, Pembayaran Hutang, Penerimaan Piutang dan Biaya, Karena semua pencatatan masih manual. Kesulitan menentukan harga modal dari suatu barang. Karena penentuan selalu berdasarkan pembelian terakhir. Dari tidak akurat nya persedian sangat berpengaruh ketika adanya pengiriman barang. Bebe...
Baca selengkapnya

Contoh Stored Procedure pada SQL Server 2000

Gambar
Stored Procedure digunakan untuk mengabungkan tabel-table yang ada di database agar dapat mengambil data atau mengolah data hingga ditempel ke aplikasi hingga menjadi sebuah laporan. Kenapa menggunakan Stored Procedure? Karena Stored Procedure sifatnya harus di execute, dengan artian lain digunakan jika dibutuhkan atau diperintahkan oleh user. Dengan begitu Stored Procedure dapat meringankan kinerja server. Dibawah ini contoh format untuk membuat satu procedure : Klik pada gambar untuk memperjelas.
Baca selengkapnya

Ganti Password User sa pada SQL Server 2000

Gambar
Saya ada cara untuk mengganti password user sa (System Administrator) pada SQL Server 2000 yang mungkin dapat berguna jika anda mengalami kesulitan pada saat login ke SQL Server 2000 karena lupa atau memang ingin menggantinya. Berikut langkah-langkah yang bisa dilakukan : Buka SQL Server Enterprise. Expand SQL Server Group hingga ke Folder Security [Console Root\Microsoft SQL Servers\SQL Server Group\(local)(Windows NT)\Security]. Klik kanan pada user sa yang ada di main window. Untuk membuka Properties SQL Server Login. Pada window SQL Server Login Properties lakukan perubahan password sesuai dengan ke inginan. Klik OK, kemudian akan muncul window untuk konfirmasi password baru danklik OK. Selesai Begitulah langkah-langkah yang bisa saya berikan untuk menganti password sa yang kita punya.
Baca selengkapnya