Hola necesito cambiar el login de un informe para que me funcione en otro ordenador ,estoy utilizando una funcion :
Private Sub SetLogOn(ByVal report As CrystalDecisions.CrystalReports.Engine.ReportDocum ent, _
ByVal user As String, ByVal pass As String, ByVal DataBase As String, _
ByVal server As String)
report.SetDatabaseLogon(user, pass, server, DataBase)
Dim _connectionInfo As New CrystalDecisions.Shared.ConnectionInfo
With _connectionInfo
.DatabaseName = DataBase
.UserID = user
.Password = pass
.ServerName = server
.IntegratedSecurity = True
End With
For Each _table As CrystalDecisions.CrystalReports.Engine.Table In report.Database.Tables
Dim _logOnInfo As CrystalDecisions.Shared.TableLogOnInfo = _table.LogOnInfo
_logOnInfo.ConnectionInfo = _connectionInfo
_table.ApplyLogOnInfo(_logOnInfo)
Next
End Sub
que a un compañero le funciona con odbc pero mi aplicacion esta con sqlserver y no me va.Los datos los pasa bien porque en el ordenador donde hago la aplicacion funciona,el problema es que al pasarlo a otro ordenador me sale un mensaje de crystal que dice que le faltan datos adicionales y me salen los datos del ordenador donde cree el informe.
Si alguien me puede ayudar se lo agradeceria un monton estoy ya desesperado.GRACIAS.
