Cadena de conexion con Crystal Reprots y Visual Ba
Publicado por Omar (6 intervenciones) el 12/05/2008 22:05:21
FAvor.
tengo un problema de conexion al generar reports. Por pantalla me pide datos de conexión y al ingresarlos no genera el reports.
¿Como hago una coenxión hacia crystal reports ?
Tengo lo siguiente y no funciona:
Dim SQLScript As String
Dim Dc As Data.Odbc.OdbcConnection
Dim Da As Data.Odbc.OdbcDataAdapter
Dim ds As DataSet
Dc = New Data.Odbc.OdbcConnection(CadConexion) ' Conexion externa
Dc.Open()
SQLScript = " SELECT Alumnos.codigo, Alumnos.nombre " & _
" FROM Alumnos " & _
" WHERE Alumnos.inactivos is null " & _
" ORDER BY Alumnos.name"
Da = New Data.Odbc.OdbcDataAdapter(SQLScript, Dc)
ds = New DataSet
Da.Fill(ds)
Dim VarRepCReport = New CrystalReport1
'VarRepCReport.SetParameterValue(0, Me.cBLotePrioridad.SelectedValue)
VarRepCReport.ReportSource = ds ' Como hago el paso de los datos aqui Nose
VarRepCReport.ShowRefreshButton = False
esperando su ayuda
Saludos.
tengo un problema de conexion al generar reports. Por pantalla me pide datos de conexión y al ingresarlos no genera el reports.
¿Como hago una coenxión hacia crystal reports ?
Tengo lo siguiente y no funciona:
Dim SQLScript As String
Dim Dc As Data.Odbc.OdbcConnection
Dim Da As Data.Odbc.OdbcDataAdapter
Dim ds As DataSet
Dc = New Data.Odbc.OdbcConnection(CadConexion) ' Conexion externa
Dc.Open()
SQLScript = " SELECT Alumnos.codigo, Alumnos.nombre " & _
" FROM Alumnos " & _
" WHERE Alumnos.inactivos is null " & _
" ORDER BY Alumnos.name"
Da = New Data.Odbc.OdbcDataAdapter(SQLScript, Dc)
ds = New DataSet
Da.Fill(ds)
Dim VarRepCReport = New CrystalReport1
'VarRepCReport.SetParameterValue(0, Me.cBLotePrioridad.SelectedValue)
VarRepCReport.ReportSource = ds ' Como hago el paso de los datos aqui Nose
VarRepCReport.ShowRefreshButton = False
esperando su ayuda
Saludos.
Valora esta pregunta


0