Crystel Report ..Change Database Location at runtime

[Amr M K]

Dear All, I am using asp.net 1.1 and crystal report 11. when I want to use the report in my project..I must open the report in VS Then I should verfiy report for login(user name ,password,database..) by right click on report then database-set location I want parameter login,database of report to be passed at runtime.??? also I have done this for rpt.SetDatabaseLogon(userName,password,server,databse,true); verfiy but I must done the prevouse ,,,

Yes. CreatiVity withOuT limiTs

modified on Wednesday, April 9, 2008 4:03 PM

[Darsh_3]

Imports System.Data Imports System.Io Imports System.Data.OleDb Imports CrystalDecisions.Shared Imports CrystalDecisions.CrystalReports.Engine Imports CrystalDecisions.CrystalReports.Engine.ReportDocument Imports CrystalDecisions.Web Partial Class Test_rpt Inherits System.Web.UI.Page Dim cn As New ConnectionInfo Dim con As New OleDbConnection Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load con.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Inetpub\wwwroot\Website1\App_Data\Database_Name.mdb;Persist Security Info=True" Call showreport() End Sub Sub showreport() With cn .DatabaseName ="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Inetpub\wwwroot\Website1\App_Data\Database_Name.mdb;Persist Security Info=True" or .DatabaseName ="Database_Name.mdb" End With Dim rpt As New ReportDocument rpt.Load(Server.MapPath("report_name.rpt")) Dim ParamFields As ParameterFields = Me.CrystalReportViewer1.ParameterFieldInfo() Dim ParamField As New ParameterField Dim ParamField_Value As New ParameterDiscreteValue ParamField.Name = "prj" ParamField_Value.Value = Session("prjnm") ParamField.CurrentValues.Add(ParamField_Value) rpt.ParameterFields("prj").CurrentValues.Add(ParamField_Value) ParamFields.Add(ParamField) ParamField = New ParameterField ParamField_Value = New ParameterDiscreteValue ParamField.Name = "dt" ParamField_Value.Value = Session("dt") ParamField.CurrentValues.Add(ParamField_Value) rpt.ParameterFields("dt").CurrentValues.Add(ParamField_Value) ParamFields.Add(ParamField) ParamField = New ParameterField ParamField_Value = New ParameterDiscreteValue ParamField.Name = "sno" ParamField_Value.Value = Session("maxsrno") ParamField.CurrentValues.Add(ParamField_Value) rpt.ParameterFields("sno").CurrentValues.Add(ParamField_Value) ParamFields.Add(ParamField) Me.CrystalReportViewer1.ParameterFieldInfo = ParamFields Me.CrystalReportViewer1.HasRefreshButton = False Me.CrystalReportViewer1.HasPageNavigationButtons = False Me.CrystalReportViewer1.HasGotoPageButton = False Me.CrystalReportViewer1.HasToggleGroupTreeButton = False For Each cnInfo As TableLogOnInfo In Me.CrystalReportViewer1.Log