Qualcuno mi sa dire xchè l'esecuzione del codice qui sotto produce il seguente errore Unable to connect: incorrect log on parameters.
Vi prego aiutatemi!!!!!
Sub Page_Load(obj As Object, E As EventArgs)
Dim oCRParamField As ParameterField, ocrParamValues As ParameterValues
Dim oCrParamFields As ParameterFields, oCrDiscreteParam As ParameterDiscreteValue
Dim nomepar, nomereport As String, i As Integer
Dim oReport as New CrystalDecisions.CrystalReports.Engine.ReportDocum ent()
Dim Cmd As New SqlCommand()
Dim Conn As New SqlConnection(ConfigurationSettings.AppSettings("d b"))
Session("idddt")=request("idddt")
If not oReport.IsLoaded then
oReport.Load("c:\web\StampaDDT.rpt",OpenReportMeth od.OpenReportByTempCopy)
conn.Open()
Cmd.Connection=Conn
Cmd.CommandType=CommandType.StoredProcedure
Cmd.CommandText="sp_StampaDDT"
Cmd.Parameters.Add("@idddt", session("idddt"))
Dim Da As New SqlDataAdapter(Cmd)
Dim Ds As New DataSet()
Da.Fill(Ds, "Configurazione")
oReport.SetDataSource(Ds)
end if
Crv.PageToTreeRatio = 3.5
Crv.DisplayToolbar = true
Crv.ReportSource = oReport
oCrParamFields = Crv.ParameterFieldInfo
If Session("idddt")<>"" then
oCRParamField = oCrParamFields.Item("@idddt")
ocrParamValues = oCRParamField.CurrentValues
oCrDiscreteParam = New ParameterDiscreteValue()
oCrDiscreteParam.Value = session("idddt")
ocrParamValues.Add(oCrDiscreteParam)
end if
Crv.ParameterFieldInfo = oCrParamFields
Crv.RefreshReport()
Crv.Visible = True
end sub
