السلام عليكم ورحمة الله تعالي وبركاته
لدي استفسارين ,,
1- عرض التقرير .. في مشروع windows application
كنت بعمل التقارير بالكود التالي
Try
Dim rpt As New rptSales() 'The report I created.
Dim myConnection As SqlConnection
Dim MyCommand As New SqlCommand()
Dim myDA As New SqlDataAdapter()
Dim myDS As New SI_DBDataSet 'The DataSet I created.
myConnection = New SqlConnection("Data Source=.\SqlExpress; Integrated Security=True; AttachDbFilename=|DataDirectory|\SI_DB.mdf; User Instance=true;")
MyCommand.Connection = myConnection
MyCommand.CommandText = "select * from Billinfo where CustomerName= '" & cmbCustomerName.Text & "' order by BillingDate"
MyCommand.CommandType = CommandType.Text
myDA.SelectCommand = MyCommand
myDA.Fill(myDS, "Billinfo")
rpt.SetDataSource(myDS)
CrystalReportViewer2.ReportSource = rpt
Catch ex As Exception
MessageBox.Show(ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Tryعند استخدامي لنفس الكود في عرض التقرير في asp.net
تظهر لي مشكلة
عند تفريغ الداتاست ل crystal report data source
rpt.SetDataSource(myDS)
CrystalReportViewer2.ReportSource = rpt
ان الكريستال ريبورت لا يدعم تفريغ الداتا ست في الداتا سورس في الويب ابليكشن ..
ارجو الافادة ..
اذا في حد عندو كود معين يفيدني او حلو ..
2- التقرير بين تاريخين ...
كنت استخدم هذا الكود
Try
Dim rpt As New rptSales() 'The report you created.
Dim myConnection As SqlConnection
Dim MyCommand As New SqlCommand()
Dim myDA As New SqlDataAdapter()
Dim myDS As New SI_DBDataSet 'The DataSet you created.
myConnection = New SqlConnection("Data Source=.\SqlExpress; Integrated Security=True; AttachDbFilename=|DataDirectory|\SI_DB.mdf; User Instance=true;")
MyCommand.Connection = myConnection
MyCommand.CommandText = "select * from Billinfo where BillingDate between @date1 and @date2 order by BillingDate"
MyCommand.Parameters.Add("@date1", SqlDbType.DateTime, 30, "BillingDate").Value = dtpInvoiceDateFrom.Value.Date
MyCommand.Parameters.Add("@date2", SqlDbType.DateTime, 30, "BillingDate").Value = dtpInvoiceDateTo.Value.Date
MyCommand.CommandType = CommandType.Text
myDA.SelectCommand = MyCommand
myDA.Fill(myDS, "Billinfo")
rpt.SetDataSource(myDS)
CrystalReportViewer1.ReportSource = rpt
Catch ex As Exception
MessageBox.Show(ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Tryاظنها نفس المشكلة في تفريغ الداتا ست لكريستال ريبورت داتا سورس ,
في انتظار ارائكم ...
ومشكور مقدما