EDN Admin
Well-known member
buen dia
tengo la solucion para los que tienen la forma de programacion por medio de archivo UDL y que ya tienen reportes de crystal funcionando en VB 6.0
me gustaria enviar el path del reporte en otra ubicacion si alguien puede aportar sera exelente
1. agregar estas lineas al archivo app.config <startup useLegacyV2RuntimeActivationPolicy="true
<supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.0"/>
</startup>
2. crear una forma con el objeto de crystalreportviewer
3. desde la forma que se llamara el reporte agregar estas lineas al inicioImports CrystalDecisions.CrystalReports.Engine
Imports CrystalDecisions.Shared
4. desde el boton que ejecutara el reporte agregar este codigo y listo Private Sub btnReporte_Click(sender As System.Object, e As System.EventArgs) Handles btnReporte.Click
Dim ds As New DataSet
Dim sql As String
strSqlCnn.Open() cadena de conexion desde un modulo
strSQLBuscar = "SELECT * " & _
" From vst_hoja_responsabilidad " & _
" where emp_codigo = " & lblCodigo.Text & ""
sql = strSQLBuscar
Dim dscmd As New OleDb.OleDbDataAdapter(sql, strSqlCnn)
dscmd.Fill(ds, "vst_hoja_responsabilidad")
strSqlCnn.Close()
Dim objRpt As New rpt_hoja_responsabilidad nombre del reporte fisico
objRpt.SetDataSource(ds.Tables("vst_hoja_responsabilidad"))
frmRPT.crvRPT.ReportSource = objRpt
frmRPT.crvRPT.Refresh()
frmRPT.ShowDialog()
End Sub
View the full article
tengo la solucion para los que tienen la forma de programacion por medio de archivo UDL y que ya tienen reportes de crystal funcionando en VB 6.0
me gustaria enviar el path del reporte en otra ubicacion si alguien puede aportar sera exelente
1. agregar estas lineas al archivo app.config <startup useLegacyV2RuntimeActivationPolicy="true
<supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.0"/>
</startup>
2. crear una forma con el objeto de crystalreportviewer
3. desde la forma que se llamara el reporte agregar estas lineas al inicioImports CrystalDecisions.CrystalReports.Engine
Imports CrystalDecisions.Shared
4. desde el boton que ejecutara el reporte agregar este codigo y listo Private Sub btnReporte_Click(sender As System.Object, e As System.EventArgs) Handles btnReporte.Click
Dim ds As New DataSet
Dim sql As String
strSqlCnn.Open() cadena de conexion desde un modulo
strSQLBuscar = "SELECT * " & _
" From vst_hoja_responsabilidad " & _
" where emp_codigo = " & lblCodigo.Text & ""
sql = strSQLBuscar
Dim dscmd As New OleDb.OleDbDataAdapter(sql, strSqlCnn)
dscmd.Fill(ds, "vst_hoja_responsabilidad")
strSqlCnn.Close()
Dim objRpt As New rpt_hoja_responsabilidad nombre del reporte fisico
objRpt.SetDataSource(ds.Tables("vst_hoja_responsabilidad"))
frmRPT.crvRPT.ReportSource = objRpt
frmRPT.crvRPT.Refresh()
frmRPT.ShowDialog()
End Sub
View the full article