El Codigo en que se carga el reporte es el siguiente:
Código:
Dim Usuario as String = "Usuario"
Dim Password as String = "Password"
Dim Servidor as String = "Servidor"
'suponiendo k cambie de base1 a base2
Dim Base as String = "Base2"
Dim crTables As CrystalDecisions.CrystalReports.Engine.Tables
Dim crTable As CrystalDecisions.CrystalReports.Engine.Table
Dim crConnInfo As New CrystalDecisions.Shared.ConnectionInfo
Dim crLogOnInfo As CrystalDecisions.Shared.TableLogOnInfo
MiReporte.SetDatabaseLogon(Usuario, Password, Servidor, Base)
For Each crTable In R.Database.Tables
crConnInfo.ServerName = Servidor
crConnInfo.DatabaseName = Base
crConnInfo.UserID = Usuario
crConnInfo.Password = password
crLogOnInfo = crTable.LogOnInfo
crLogOnInfo.ConnectionInfo = crConnInfo
crTable.ApplyLogOnInfo(crLogOnInfo)
Next
visor.ReportSource = MiReporte
visor.DataBind()
Cuando hice el diseño del reporte que accesa a base1 se genero la consulta sql siguiente (creo que aqui es el problema":
Código:
SELECT "VALORADO_AREA"."Valor_Actual", "VALORADO_AREA"."STOCK",
"CATAREAS"."NOMBRE_AREA", "CATAREAS"."CLAVE_CATAREA"
FROM "Base1"."dbo"."CATAREAS" "CATAREAS"
INNER JOIN "DBWebSaf"."dbo"."VALORADO_AREA" "VALORADO_AREA"
ON "CATAREAS"."CLAVE_CATAREA"="VALORADO_AREA"."Clave_CatArea"
Cuando cambie de base1 a base2 ocurrio el error. Por eso es que pregunto como puedo modificar la consulta sql para accese a base2 y no a base1?
Alguna idea?
Saludos