Cambiar BDD en informe de Crystal Reports

Hola,
¿Cómo puedo cambiar el servidor y la BDD a la que

CR? Porque en los clientes donde instalo el programa, no

ni BDD con nombre igual al mío.

Por cierto, buscando en anteriores mensajes he

para solucionarlo mediante el código que pongo más abajo,

funcionado.

¿Deberé crearme un DataSet que alimente cada informe?

chapuza..

Saludos, Juanjo.


'Creo una instancia a mi Reporte "Curriculum"
Dim crReportDocument As New Curriculum()
Dim crDatabase As Database
Dim crTables As Tables
Dim crTable As Table
Dim crTableLogOnInfo As TableLogOnInfo
Dim crConnectionInfo As ConnectionInfo

'Create an instance of the strongly-typed report object
crReportDocument = New Curriculum()

'Setup the connection information structure to be used()
'to log onto the datasource for the report.
crConnectionInfo = New ConnectionInfo()
With crConnectionInfo
.ServerName = "ElServidor"
.DatabaseName = "LaBasedeDatos"
.UserID = "ElUsuario"
.Password = "LaClave"
End With

'Get the table information from the report
crDatabase = crReportDocument.Database
crTables = crDatabase.Tables

'Loop through all tables in the report and apply

'information for each table.
For Each crTable In crTables
crTableLogOnInfo = crTable.LogOnInfo
crTableLogOnInfo.ConnectionInfo = crConnectionInfo
crTable.ApplyLogOnInfo(crTableLogOnInfo)
Next


'Set the viewer to the report object to be previewed.

CrystalReportViewer1.ReportSource = crReportDocument


.

Hola,
¿Cómo puedo cambiar el servidor y la BDD a la que

CR? Porque en los clientes donde instalo el programa, no

ni BDD con nombre igual al mío.

Por cierto, buscando en anteriores mensajes he

para solucionarlo mediante el código que pongo más abajo,

funcionado.

¿Deberé crearme un DataSet que alimente cada informe?

chapuza..

Saludos, Juanjo.


'Creo una instancia a mi Reporte "Curriculum"
Dim crReportDocument As New Curriculum()
Dim crDatabase As Database
Dim crTables As Tables
Dim crTable As Table
Dim crTableLogOnInfo As TableLogOnInfo
Dim crConnectionInfo As ConnectionInfo

'Create an instance of the strongly-typed report object
crReportDocument = New Curriculum()

'Setup the connection information structure to be used()
'to log onto the datasource for the report.
crConnectionInfo = New ConnectionInfo()
With crConnectionInfo
.ServerName = "ElServidor"
.DatabaseName = "LaBasedeDatos"
.UserID = "ElUsuario"
.Password = "LaClave"
End With

'Get the table information from the report
crDatabase = crReportDocument.Database
crTables = crDatabase.Tables

'Loop through all tables in the report and apply

'information for each table.
For Each crTable In crTables
crTableLogOnInfo = crTable.LogOnInfo
crTableLogOnInfo.ConnectionInfo = crConnectionInfo
crTable.ApplyLogOnInfo(crTableLogOnInfo)
Next


'Set the viewer to the report object to be previewed.

CrystalReportViewer1.ReportSource = crReportDocument


.

Perdón, se me olvidó lo principal.

La BDD es Sql Server 2000 y el informe está hecho con

que viene con el .NET (o sea, la versión 9)

Gracias por contestar,
Juanjo.
"Freddy Cáceres" escribió en

news:b8cd01c48912$76e544d0$
que tal juanjo:

Cuentanos, contra que base de datos y que vercion de crystal.

tb aca he publicados algunos tips de crystal
http://www.tips.cl/sitio/modulos/sitio/?idcat2

Saludos
-
Freddy Cáceres
Santiago - Chile
Mostrar la cita

Hola,
¿Cómo puedo cambiar el servidor y la BDD a la que

apunta un informe de
Mostrar la cita

CR? Porque en los clientes donde instalo el programa, no

tienen un servidor
Mostrar la cita

ni BDD con nombre igual al mío.

Por cierto, buscando en anteriores mensajes he

encontrado respuestas
Mostrar la cita

para solucionarlo mediante el código que pongo más abajo,

pero a mí no me ha
Mostrar la cita

funcionado.

¿Deberé crearme un DataSet que alimente cada informe?

Si es así, menuda
Mostrar la cita

chapuza..

Saludos, Juanjo.


'Creo una instancia a mi Reporte "Curriculum"
Dim crReportDocument As New Curriculum()
Dim crDatabase As Database
Dim crTables As Tables
Dim crTable As Table
Dim crTableLogOnInfo As TableLogOnInfo
Dim crConnectionInfo As ConnectionInfo

'Create an instance of the strongly-typed report object
crReportDocument = New Curriculum()

'Setup the connection information structure to be

Mostrar la cita

'to log onto the datasource for the report.
crConnectionInfo = New ConnectionInfo()
With crConnectionInfo
.ServerName = "ElServidor"
.DatabaseName = "LaBasedeDatos"
.UserID = "ElUsuario"
.Password = "LaClave"
End With

'Get the table information from the report
crDatabase = crReportDocument.Database
crTables = crDatabase.Tables

'Loop through all tables in the report and apply

the(connection)
Mostrar la cita

'information for each table.
For Each crTable In crTables
crTableLogOnInfo = crTable.LogOnInfo
crTableLogOnInfo.ConnectionInfo = crConnectionInfo
crTable.ApplyLogOnInfo(crTableLogOnInfo)
Next


'Set the viewer to the report object to be previewed.

CrystalReportViewer1.ReportSource = crReportDocument


.

.

Perdón, se me olvidó lo principal.

La BDD es Sql Server 2000 y el informe está hecho con

que viene con el .NET (o sea, la versión 9)

Gracias por contestar,
Juanjo.
"Freddy Cáceres" escribió en

news:b8cd01c48912$76e544d0$
que tal juanjo:

Cuentanos, contra que base de datos y que vercion de crystal.

tb aca he publicados algunos tips de crystal
http://www.tips.cl/sitio/modulos/sitio/?idcat2

Saludos
-
Freddy Cáceres
Santiago - Chile
Mostrar la cita

Hola,
¿Cómo puedo cambiar el servidor y la BDD a la que

apunta un informe de
Mostrar la cita

CR? Porque en los clientes donde instalo el programa, no

tienen un servidor
Mostrar la cita

ni BDD con nombre igual al mío.

Por cierto, buscando en anteriores mensajes he

encontrado respuestas
Mostrar la cita

para solucionarlo mediante el código que pongo más abajo,

pero a mí no me ha
Mostrar la cita

funcionado.

¿Deberé crearme un DataSet que alimente cada informe?

Si es así, menuda
Mostrar la cita

chapuza..

Saludos, Juanjo.


'Creo una instancia a mi Reporte "Curriculum"
Dim crReportDocument As New Curriculum()
Dim crDatabase As Database
Dim crTables As Tables
Dim crTable As Table
Dim crTableLogOnInfo As TableLogOnInfo
Dim crConnectionInfo As ConnectionInfo

'Create an instance of the strongly-typed report object
crReportDocument = New Curriculum()

'Setup the connection information structure to be

Mostrar la cita

'to log onto the datasource for the report.
crConnectionInfo = New ConnectionInfo()
With crConnectionInfo
.ServerName = "ElServidor"
.DatabaseName = "LaBasedeDatos"
.UserID = "ElUsuario"
.Password = "LaClave"
End With

'Get the table information from the report
crDatabase = crReportDocument.Database
crTables = crDatabase.Tables

'Loop through all tables in the report and apply

the(connection)
Mostrar la cita

'information for each table.
For Each crTable In crTables
crTableLogOnInfo = crTable.LogOnInfo
crTableLogOnInfo.ConnectionInfo = crConnectionInfo
crTable.ApplyLogOnInfo(crTableLogOnInfo)
Next


'Set the viewer to the report object to be previewed.

CrystalReportViewer1.ReportSource = crReportDocument


.

.