Alguien me puede ayudar para cambiar la consulta SQL que utiliza el crystal report para un determinado reporte.
Saludos
| |||
![]() El Codigo en que se carga el reporte es el siguiente:
Código:
Cuando hice el diseño del reporte que accesa a base1 se genero la consulta sql siguiente (creo que aqui es el problema":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()
Código:
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?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" Alguna idea? Saludos |
| |||
![]() Hola no tiene mucho encontre la solucion a ese problema y al ver tu código parece que solo te falta una linea, jejejejeje, la misma linea que tuvo detenido mi proceso por casi dos dias, en fin ahi te va la sucion: Solo hace falta agregar la siguiente linea en tu ciclo for:
Código:
jeje, de todos modos checa tambien este post ahi esta la solucion completa: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) '**************************************************** crTable.Location = Base & ".dbo." & crTable.Name ' Solo esta linea '**************************************************** Next http://forosdelweb.com/showthread.php?t=293599 |