Pasang Iklan!Pasang Iklan Murah Diblog ini sambil berinfak

Solusi masalah database login in crystal report viewer pada VB.NET dengan code

Screenshot 2015-12-16 09.31.49

Masalah ini kerap terjadi dalam penggunaan crystal viewer untuk menampilkan report pada aplikasi yang kita buat, namun yang selama ini bertebaran di internet hanya memberikan solusi melalui tab menu yang ada pada Visual Studio yaitu mengarahkan lokasi database ke lokasi sebenarnya. Error ini terjadi biasanya akibat memindahkan posisi database sehingga crystal report tidak dapat membacanya, untuk itu disini saya akan memberikan solusinya dengan menggunakan code :

Bila biasanya anda menggunakan code berikut untuk menampilkan report anda :

crv_pengguna.DisplayToolbar = True
crv_pengguna.DisplayStatusBar = True
Call santai()
Dim myreports As New laporan_pengguna
myreports.SetDataSource(ds)
crv_pengguna.ReportSource = myreports

Maka ganti menjadi seperti code berikut :

Call koneksi()
Dim cr As New ReportDocument
Dim crCon As New ConnectionInfo
Dim crtableLogoninfos As New TableLogOnInfos
Dim crtableLogoninfo As New TableLogOnInfo
Dim CrTables As Tables
Dim CrTable As Table
cr.Load(Application.StartupPath & "\Reports\laporan_pengguna.rpt")
cr.Refresh()
With crCon
.ServerName = Application.StartupPath & "\db_data_karyawan.mdb"
.UserID = "Admin"
.Password = "MyPass"
End With
CrTables = cr.Database.Tables
For Each CrTable In CrTables
crtableLogoninfo = CrTable.LogOnInfo
crtableLogoninfo.ConnectionInfo = crCon
CrTable.ApplyLogOnInfo(crtableLogoninfo)
Next
Dim pfDefs As ParameterFieldDefinitions
Dim pVal As New ParameterValues
Dim pDisVal As New ParameterDiscreteValue
pfDefs = cr.DataDefinition.ParameterFields
pVal.Clear()
pVal.Add(pDisVal)
crv_pengguna.DisplayStatusBar = True
crv_pengguna.DisplayToolbar = True
crv_pengguna.ReportSource = cr
crv_pengguna.Refresh()

contoh diatas saya menggunakan database access, untuk menggunakan database sql2000 ataupun mysql silahkan pembaca memodif sendiri atau tunggu postingan saya selanjutnya dengan cara subcribe blog ini dan like funpage facebook kami, semoga membantu.

Ket :
Call koneksi()-> memanggil koneksi database, code nya ada di module

cr.Load(Application.StartupPath & “\Reports\laporan_pengguna.rpt”) -> ganti dengan lokasi report yang akan dipanggil yang ada di file debug

.ServerName = Application.StartupPath & “\db_data_karyawan.mdb” -> ganti dengan lokasi database anda

crv_pengguna -> ganti dengan nama crystal report viewer anda.

Screenshot 2015-12-16 09.50.35

Shortlink : http://blog.dikode.in/?p=150

One Comment

Add a Comment

Your email address will not be published. Required fields are marked *

Copyright © 2015 dikode.in