Dear sir unable to display data pz reply solution sir If ComboBox1.SelectedIndex = 0 Then CrystalReportViewer1.ReportSource = Nothing Exit Sub Else ComboBox2.SelectedIndex = 0 ComboBox3.SelectedIndex = 0 Dim ReportKu As New ReportDocument 'menentukan lokasi report yang akan ditampilkan ' ReportKu.Load(Application.StartupPath & "\Laporan\Lap_Harian.rpt")]]]] ReportKu.Load("C:\Users\NS COMMUNICATION\Documents\Visual Studio 2010\Projects\TEST REPORT MM\abcd.rpt") 'nilai parameter TanggalMulai di ambil dari inputan dtpTanggalMulai ReportKu.SetParameterValue("Harinya", ComboBox1.Text) 'nilai parameter TanggalSelesai di ambil dari inputan dtpTanggalSelesai 'tampilkan ke CrystalReportViewer1 CrystalReportViewer1.ReportSource = ReportKu CrystalReportViewer1.Refresh() End If
make sure the parameters in Combobox 1 are the same as the database. in my project I use the day format. please check the parameters section again. or you can download the project in the description
@@AndiAspin thank u for ur valueable reply sir in this database date formate is (Date/Time ) i selected in database 06-Dec-18 i also changed in parameter also date/time also but out puts are not appearing so what is i can do sir
Call koneksinya() Dim ds As New DataSet cmd = New OleDbCommand("select distinct edate from light", con) dr = cmd.ExecuteReader ComboBox1.Items.Add("SELECT") ComboBox1.SelectedIndex = 0 While dr.Read() ComboBox1.Items.Add(dr.Item("edate")) End While If ComboBox1.SelectedIndex = 0 Then CrystalReportViewer1.ReportSource = Nothing Exit Sub Else ' ComboBox2.SelectedIndex = 0 'ComboBox3.SelectedIndex = 0 Dim Report As New CrystalReport 'menentukan lokasi report yang akan ditampilkan Report.Load("F:\SOFTWARE\LATEST VB\mm31\NSC\CrystalReport1.rpt") 'nilai parameter TanggalMulai di ambil dari inputan dtpTanggalMulai report.SetParameterValue("like", ComboBox1.Text) 'nilai parameter TanggalSelesai di ambil dari inputan dtpTanggalSelesai 'tampilkan ke CrystalReportViewer1 CrystalReportViewer1.ReportSource = Report CrystalReportViewer1.Refresh() End If
Source Code :
github.com/andiaspin/Report_VBNet
kerenn broo smangatt, untuk karya2 slanjudnya,, maaf bru smpat ku lihat
Sir .. cannot display the exact data .. it previews all. Please reply. asap
Dear sir unable to display data pz reply solution sir
If ComboBox1.SelectedIndex = 0 Then
CrystalReportViewer1.ReportSource = Nothing
Exit Sub
Else
ComboBox2.SelectedIndex = 0
ComboBox3.SelectedIndex = 0
Dim ReportKu As New ReportDocument
'menentukan lokasi report yang akan ditampilkan
' ReportKu.Load(Application.StartupPath & "\Laporan\Lap_Harian.rpt")]]]]
ReportKu.Load("C:\Users\NS COMMUNICATION\Documents\Visual Studio 2010\Projects\TEST REPORT MM\abcd.rpt")
'nilai parameter TanggalMulai di ambil dari inputan dtpTanggalMulai
ReportKu.SetParameterValue("Harinya", ComboBox1.Text)
'nilai parameter TanggalSelesai di ambil dari inputan dtpTanggalSelesai
'tampilkan ke CrystalReportViewer1
CrystalReportViewer1.ReportSource = ReportKu
CrystalReportViewer1.Refresh()
End If
i cannot understand the language except to those words that are written in english
That sound though
how it solve
make sure the parameters in Combobox 1 are the same as the database. in my project I use the day format. please check the parameters section again. or you can download the project in the description
@@AndiAspin thank u for ur valueable reply sir in this database date formate is (Date/Time ) i selected in database 06-Dec-18 i also changed in parameter also date/time also but out puts are not appearing so what is i can do sir
@@nscommunications8478 i use "date" in my database, not "datetime" sir
@@AndiAspin sir is there attach file option to mail
or reply with screen shots
not working brother
SO PZ I NEED UR REPLY SIR
Bro link cr nya dong
AND ALSO SENT SCREENSHOTS BY FACE BOOK
Call koneksinya()
Dim ds As New DataSet
cmd = New OleDbCommand("select distinct edate from light", con)
dr = cmd.ExecuteReader
ComboBox1.Items.Add("SELECT")
ComboBox1.SelectedIndex = 0
While dr.Read()
ComboBox1.Items.Add(dr.Item("edate"))
End While
If ComboBox1.SelectedIndex = 0 Then
CrystalReportViewer1.ReportSource = Nothing
Exit Sub
Else
' ComboBox2.SelectedIndex = 0
'ComboBox3.SelectedIndex = 0
Dim Report As New CrystalReport
'menentukan lokasi report yang akan ditampilkan
Report.Load("F:\SOFTWARE\LATEST VB\mm31\NSC\CrystalReport1.rpt")
'nilai parameter TanggalMulai di ambil dari inputan dtpTanggalMulai
report.SetParameterValue("like", ComboBox1.Text)
'nilai parameter TanggalSelesai di ambil dari inputan dtpTanggalSelesai
'tampilkan ke CrystalReportViewer1
CrystalReportViewer1.ReportSource = Report
CrystalReportViewer1.Refresh()
End If
i see your coding matches, i hope the "like" parameter is the same as the parameter in the crystal report sheet
@@AndiAspin is any wrong sir
@@AndiAspinyes its same sir but data not display