السلام عليكم ورحمة الله وبركاته
انا لدي سيرفر في الخارج وبعد ارفع الcrystalreport اليه هناك مشكله اواجهها هي :-
ان crystalreport رفعه الي السيرفر لا يظهر ويعطيني رساله انه لا يجد الملف وهاذا هو الكود الذي استخدمته علما انني استخدم vb.net 2003 وليس 2005:
UserConn.ConnectionString = System.Configuration.ConfigurationSettings.AppSettings("Conn1")
Me.UserConn.Open() 'Conection Open And Cloce it In Page UNLOAD
'To Load The Reports <<GroupResReportSumm1.rpt>> To ReportDocument
Dim reportFile As String = Request.QueryString.Get("resmain") + "resmain.rpt"
Dim appPath As String = MapPath(".")
Dim reportPath As String = appPath + "\" + reportFile
Dim theReport As ReportDocument = New ReportDocument
theReport.Load(reportPath)
'2. set logon info
Dim Server As String 'Take The Server Name From Web Config
Server = System.Configuration.ConfigurationSettings.AppSettings("ServerName")
Dim Database As String 'Take The Database Name From Web Config
Database = System.Configuration.ConfigurationSettings.AppSettings("DatabaseName")
Dim User As String 'The User Name For Database From Web Config
User = System.Configuration.ConfigurationSettings.AppSettings("UserID")
Dim Pass As String 'Take The Password For Database From Web Config
Pass = System.Configuration.ConfigurationSettings.AppSettings("Password")
'This Code to make Connection To the Table That Use it In THe Crystal Report
Dim conn As CrystalDecisions.Shared.ConnectionInfo = New ConnectionInfo
Dim myTable As CrystalDecisions.CrystalReports.Engine.Table
Dim myLog As CrystalDecisions.Shared.TableLogOnInfo
conn.ServerName = Server
conn.DatabaseName = Database
conn.UserID = User
conn.Password = Pass
Dim x As Integer
x = theReport.Database.Tables.Count - 1
Dim i As Integer
For i = 0 To x
myTable = theReport.Database.Tables(i)
myLog = myTable.LogOnInfo
myLog.ConnectionInfo = conn
myTable.ApplyLogOnInfo(myLog)
Next
'3.Set Parmeter To The Report
Dim vv As Integer = CInt(Session("vv")) 'taken from main_res1 page
theReport.SetParameterValue("Agent_no", vv) 'TO Get The Paremter Agent #
Dim res_no As Integer = CInt(Session("maxRes_Id")) 'taken from main_res1 page
theReport.SetParameterValue("Res_no", res_no) 'TO Get The Paremter Res #
Me.CrystalReportViewer1.ReportSource = theReport
