Remember topic

venerdì 23 luglio 2004 - 11.34

contiello Profilo | Senior Member

http://www.dotnethell.it/forum/messages.aspx?ThreadID=1572

Brainkiller Profilo | Guru

Ciao,
ho ramazzato in giro questo codice che dovrebbe fare al caso tuo:

crReportDocument = new CrystalReport1();
crTableLogonInfos = new TableLogOnInfos();
crTableLogonInfo = new TableLogOnInfo();
crConnectionInfo = new ConnectionInfo();
crConnectionInfo.ServerName = "127.0.0.1";
crConnectionInfo.DatabaseName = "CTP";
crConnectionInfo.UserID = "sa";
crConnectionInfo.Password = "newsql";
crTableLogonInfo.ConnectionInfo = crConnectionInfo;
crTableLogonInfo.TableName = "CTP";
crTableLogonInfos.Add(crTableLogonInfo);
CrystalReportViewer1.LogOnInfo = crTableLogonInfos;

Naturalmente ricordati più sopra di dichiarare le variabili perchè mancano i Dim, togli i punto e virgola a fine riga visto che è codice C#, cambia i parametri come password, IP, ecc. Dovrebbe andare tutto.

ciao
david

contiello Profilo | Senior Member

allora ho provato con il codice che mi hai inviato ma è lo stesso ...
in effetti vorrei spiegarvi un attimo il codice che uso io in modo che se ho commesso qualche rrore ve ne accorgiate!

Io comincio ad avere il sospetto che il problema non è nel codice ma bensì nel file crystal report.
Quest'ultimo secondo me non riesce aliberarsi delle impostazioni di creazione ....

adesso mi informo un poò su questo fatto .......
grazie


'**********dichiarazione oggetto Report
Dim crReportDocument As New CrystalDecisions.CrystalReports.Engine.ReportDocument
Dim crExportOptions As CrystalDecisions.Shared.ExportOptions
Dim crDiskFileDestinationOptions As New CrystalDecisions.Shared.DiskFileDestinationOptions
'**********carico il file crystal report
crReportDocument.Load(nomereport)

'*********dichiaro gli oggetti tablelogoninfo e connection info
Dim crTableLogOnInfo As CrystalDecisions.Shared.TableLogOnInfo
Dim crConnectionInfo As New CrystalDecisions.Shared.ConnectionInfo

'*****dichiaro la variabile crtables e crtable rispettivamente la collezione di tabelle all'interno del report ed una singola tabella
Dim crTables As CrystalDecisions.CrystalReports.Engine.Tables
Dim crTable As CrystalDecisions.CrystalReports.Engine.Table

'*****imposto la connection info
With crConnectionInfo
.UserID = Me.txtUsername.Text
.Password = Me.txtPassword.Text
.DatabaseName = Me.txtNomedb.Text
.ServerName = Me.txtServer.Text
End With


ciclo per ogni tabella del report ed associo ad ognuna di esse la connectioninfo ed il logoninfo
crTables = crReportDocument.Database.Tables
For Each crTable In crTables
crTableLogOnInfo = New CrystalDecisions.Shared.TableLogOnInfo
crTableLogOnInfo = crTable.LogOnInfo
crTableLogOnInfo.ConnectionInfo = crConnectionInfo
crTable.ApplyLogOnInfo(crTableLogOnInfo)
Next

contiello Profilo | Senior Member

allora ho provato con il codice che mi hai inviato ma è lo stesso ...
in effetti vorrei spiegarvi un attimo il codice che uso io in modo che se ho commesso qualche rrore ve ne accorgiate!

Io comincio ad avere il sospetto che il problema non è nel codice ma bensì nel file crystal report.
Quest'ultimo secondo me non riesce aliberarsi delle impostazioni di creazione ....

adesso mi informo un poò su questo fatto .......
grazie


'**********dichiarazione oggetto Report
Dim crReportDocument As New CrystalDecisions.CrystalReports.Engine.ReportDocument
Dim crExportOptions As CrystalDecisions.Shared.ExportOptions
Dim crDiskFileDestinationOptions As New CrystalDecisions.Shared.DiskFileDestinationOptions
'**********carico il file crystal report
crReportDocument.Load(nomereport)

'*********dichiaro gli oggetti tablelogoninfo e connection info
Dim crTableLogOnInfo As CrystalDecisions.Shared.TableLogOnInfo
Dim crConnectionInfo As New CrystalDecisions.Shared.ConnectionInfo

'*****dichiaro la variabile crtables e crtable rispettivamente la collezione di tabelle all'interno del report ed una singola tabella
Dim crTables As CrystalDecisions.CrystalReports.Engine.Tables
Dim crTable As CrystalDecisions.CrystalReports.Engine.Table

'*****imposto la connection info
With crConnectionInfo
.UserID = Me.txtUsername.Text
.Password = Me.txtPassword.Text
.DatabaseName = Me.txtNomedb.Text
.ServerName = Me.txtServer.Text
End With


ciclo per ogni tabella del report ed associo ad ognuna di esse la connectioninfo ed il logoninfo
crTables = crReportDocument.Database.Tables
For Each crTable In crTables
crTableLogOnInfo = New CrystalDecisions.Shared.TableLogOnInfo
crTableLogOnInfo = crTable.LogOnInfo
crTableLogOnInfo.ConnectionInfo = crConnectionInfo
crTable.ApplyLogOnInfo(crTableLogOnInfo)
Next
Partecipa anche tu! Registrati!
Hai bisogno di aiuto ?
Perchè non ti registri subito?

Dopo esserti registrato potrai chiedere
aiuto sul nostro Forum oppure aiutare gli altri

Consulta le Stanze disponibili.

Registrati ora !
Copyright © dotNetHell.it 2002-2023
Running on Windows Server 2008 R2 Standard, SQL Server 2012 & ASP.NET 3.5