BabiTakpar
پنج شنبه 14 آذر 1392, 12:22 عصر
با سلام خدمت همه دوستان
می دونم تاپیک های زیاذی واسه کریستال ریپورت وجود داره ولی من نتونستم مشکل خودم رو با اونا حل کنم
من با کریستال ریپورت یک گزارش ساختم که به یه پراسجر از بانک اطلاعاتی Sql 2008 اتصال داره و در وی بی دات نت یک CrystalReportViewer1 روی فرم گذاشتم و در لود فرم کد زیر رو نوشتم ریپورت کاملا تو سیستم من اجرا میشه ولی وقتی برنامه رو رو یه سیستم دیگه نصب میکنم موقع گزارش گرفتن یوزر و پسورد sql می خواد که برای رفعش باید برم تمامی ریپورت هارو با کریستال باز کنم و یکی یکی یه کانکش به Sql همون سیستم بزنم تا دروست یشه.
می تونید کمک کنید..!!!؟؟؟
Imports CrystalDecisions.CrystalReports.Engine
Imports CrystalDecisions.Shared
Public Class FrmPrintFisheHoghoogh
Public con As SqlConnection = New SqlConnection("Data Source=Arash-Comp;Initial Catalog=PayRoll;Integrated Security=True")
Private Sub FrmPrintFisheHoghoogh_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim RepDoc As New ReportDocument()
Dim pv2 As New ParameterValues()
Dim pdv2 As New ParameterDiscreteValue()
Dim pv3 As New ParameterValues()
Dim pdv3 As New ParameterDiscreteValue()
Dim pv4 As New ParameterValues()
Dim pdv4 As New ParameterDiscreteValue()
Dim pv5 As New ParameterValues()
Dim pdv5 As New ParameterDiscreteValue()
Dim ReportPath As String
ReportPath = Application.StartupPath + "\Report\Rep_FisheHoghoogh.rpt"
RepDoc.Load(ReportPath)
pdv2.Value = CompanyRef
pv2.Add(pdv2)
RepDoc.Load(ReportPath)
pdv3.Value = YearRef
pv3.Add(pdv3)
RepDoc.Load(ReportPath)
pdv4.Value = Personel_Ref
pv4.Add(pdv4)
RepDoc.Load(ReportPath)
pdv5.Value = Month_Ref
pv5.Add(pdv5)
RepDoc.DataDefinition.ParameterFields("@CompanyRef").ApplyCurrentValues(pv2)
RepDoc.DataDefinition.ParameterFields("@YearRef").ApplyCurrentValues(pv3)
RepDoc.DataDefinition.ParameterFields("@PersonelRef").ApplyCurrentValues(pv4)
RepDoc.DataDefinition.ParameterFields("@MonthRef").ApplyCurrentValues(pv5)
CrystalReportViewer1.ReportSource = RepDoc
End Sub
می دونم تاپیک های زیاذی واسه کریستال ریپورت وجود داره ولی من نتونستم مشکل خودم رو با اونا حل کنم
من با کریستال ریپورت یک گزارش ساختم که به یه پراسجر از بانک اطلاعاتی Sql 2008 اتصال داره و در وی بی دات نت یک CrystalReportViewer1 روی فرم گذاشتم و در لود فرم کد زیر رو نوشتم ریپورت کاملا تو سیستم من اجرا میشه ولی وقتی برنامه رو رو یه سیستم دیگه نصب میکنم موقع گزارش گرفتن یوزر و پسورد sql می خواد که برای رفعش باید برم تمامی ریپورت هارو با کریستال باز کنم و یکی یکی یه کانکش به Sql همون سیستم بزنم تا دروست یشه.
می تونید کمک کنید..!!!؟؟؟
Imports CrystalDecisions.CrystalReports.Engine
Imports CrystalDecisions.Shared
Public Class FrmPrintFisheHoghoogh
Public con As SqlConnection = New SqlConnection("Data Source=Arash-Comp;Initial Catalog=PayRoll;Integrated Security=True")
Private Sub FrmPrintFisheHoghoogh_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim RepDoc As New ReportDocument()
Dim pv2 As New ParameterValues()
Dim pdv2 As New ParameterDiscreteValue()
Dim pv3 As New ParameterValues()
Dim pdv3 As New ParameterDiscreteValue()
Dim pv4 As New ParameterValues()
Dim pdv4 As New ParameterDiscreteValue()
Dim pv5 As New ParameterValues()
Dim pdv5 As New ParameterDiscreteValue()
Dim ReportPath As String
ReportPath = Application.StartupPath + "\Report\Rep_FisheHoghoogh.rpt"
RepDoc.Load(ReportPath)
pdv2.Value = CompanyRef
pv2.Add(pdv2)
RepDoc.Load(ReportPath)
pdv3.Value = YearRef
pv3.Add(pdv3)
RepDoc.Load(ReportPath)
pdv4.Value = Personel_Ref
pv4.Add(pdv4)
RepDoc.Load(ReportPath)
pdv5.Value = Month_Ref
pv5.Add(pdv5)
RepDoc.DataDefinition.ParameterFields("@CompanyRef").ApplyCurrentValues(pv2)
RepDoc.DataDefinition.ParameterFields("@YearRef").ApplyCurrentValues(pv3)
RepDoc.DataDefinition.ParameterFields("@PersonelRef").ApplyCurrentValues(pv4)
RepDoc.DataDefinition.ParameterFields("@MonthRef").ApplyCurrentValues(pv5)
CrystalReportViewer1.ReportSource = RepDoc
End Sub