Me pide conexion de BD en mi Crystal Reports
Publicado por Junnior Harol (1 intervención) el 28/09/2016 18:12:04
Buenas a todos,
Tengo un problema, cada ves que quiero consultar mi crystal reports en la pc del cliente , me abre una ventana que dice: Conexion a BD, Usuario, Server, Contraseña, Pasword y Integrated Security con su chek. Pongo todo esos datos y nada no me visualiza el reporte. Busque en los foros y hize mi codigo que muestro a continuacion:
Realize esos codigos y me sigue con el cuadro de dialogo Conectarme a la Bd, no se si esta bien mi codigo o tengo que configurar en la pc del cliente ?. Espero su ayuda, gracias de antemano.
Tengo un problema, cada ves que quiero consultar mi crystal reports en la pc del cliente , me abre una ventana que dice: Conexion a BD, Usuario, Server, Contraseña, Pasword y Integrated Security con su chek. Pongo todo esos datos y nada no me visualiza el reporte. Busque en los foros y hize mi codigo que muestro a continuacion:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
Private Sub FrmReportes_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim oConexInfo As ConnectionInfo
Dim oListaTablas As Tables
Dim oTabla As Table
Dim oTablaConexInfo As TableLogOnInfo
oConexInfo = New ConnectionInfo()
oConexInfo.ServerName = SysConnection.CLS_DATOS.SERVERL
oConexInfo.DatabaseName = SysConnection.CLS_DATOS.BASE_DATOS
oConexInfo.UserID = SysConnection.CLS_DATOS.USUARIO
oConexInfo.Password = SysConnection.CLS_DATOS.PASSWORD
oConexInfo.Type = ConnectionInfoType.SQL
oConexInfo.IntegratedSecurity = False
CrystalReportViewer1.Dock = DockStyle.Bottom
CrystalReportViewer1.DisplayGroupTree = False
Dim costos As String
costos = ModuloVariablePublica.Ccostos
Dim rpt As New ReporteCentroCosto
rpt.SetParameterValue("@Costo", costos)
oListaTablas = rpt.Database.Tables
For Each oTabla In oListaTablas
oTablaConexInfo = oTabla.LogOnInfo
oTablaConexInfo.ConnectionInfo = oConexInfo
oTabla.ApplyLogOnInfo(oTablaConexInfo)
Next
CrystalReportViewer1.ReportSource = rpt
Realize esos codigos y me sigue con el cuadro de dialogo Conectarme a la Bd, no se si esta bien mi codigo o tengo que configurar en la pc del cliente ?. Espero su ayuda, gracias de antemano.
Valora esta pregunta
0