dotNetHell.it - Forum - Remember topic

contiello Profilo | Senior Member

260 messaggi | Data Invio: ven 23 lug 2004 - 11:34

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

Brainkiller Profilo | Guru

7.999 messaggi | Data Invio: sab 24 lug 2004 - 23:28

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

260 messaggi | Data Invio: lun 26 lug 2004 - 10:40

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

260 messaggi | Data Invio: lun 26 lug 2004 - 10:41

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