Reporte sencillo con ADO.NET
Publicado por jvirgo (29 intervenciones) el 07/04/2005 17:14:24
Soy nuevo en generar reportes con crystal report en VB.Net. utilizando ADO.net.
programa en Windows Form
Solo quiero un reporte sensillo con dos tablas que me permita mostrar todos los campo
al ejecutar el reporte me sale el siguiete ERROR:
Error de motor de consulta: 'C:\Documents and Settings\Mis documentos\Visual Studio Projects\MySistema\crystalreport1.rpt'
Tambien les envio el codigo que he colocado en el formulario que llama al reporte:
Public Sub New()
MyBase.New()
InitializeComponent()
' Solo prueba
Dim q, q1 As String
q = "select * from funcionario"
dafuncionario = New OleDbDataAdapter(q, cnn)
dafuncionario.Fill(Me.dsinforme, "Funcionario")
q1 = "select * from estructura_organizacional"
dastructura = New OleDbDataAdapter(q1, cnn)
dastructura.Fill(Me.dsinforme, "Estructura organizacional")
informe.Load("C:\Documents and Settings\Mis documentos\Visual Studio Projects\MySistema\crystalreport1.rpt")
informe.SetDataSource(dsinforme)
Me.CrystalReportViewer1.ReportSource = informe
'fin solo prueba
End Sub
donde :
Dim informe As New ReportDocument()
Dim dsinforme As New DataSet()
Dim dafuncionario, daStructura as OleDbDataAdapter
Por favor les rogaria me puedan brindar su ayuda.
Gracias
programa en Windows Form
Solo quiero un reporte sensillo con dos tablas que me permita mostrar todos los campo
al ejecutar el reporte me sale el siguiete ERROR:
Error de motor de consulta: 'C:\Documents and Settings\Mis documentos\Visual Studio Projects\MySistema\crystalreport1.rpt'
Tambien les envio el codigo que he colocado en el formulario que llama al reporte:
Public Sub New()
MyBase.New()
InitializeComponent()
' Solo prueba
Dim q, q1 As String
q = "select * from funcionario"
dafuncionario = New OleDbDataAdapter(q, cnn)
dafuncionario.Fill(Me.dsinforme, "Funcionario")
q1 = "select * from estructura_organizacional"
dastructura = New OleDbDataAdapter(q1, cnn)
dastructura.Fill(Me.dsinforme, "Estructura organizacional")
informe.Load("C:\Documents and Settings\Mis documentos\Visual Studio Projects\MySistema\crystalreport1.rpt")
informe.SetDataSource(dsinforme)
Me.CrystalReportViewer1.ReportSource = informe
'fin solo prueba
End Sub
donde :
Dim informe As New ReportDocument()
Dim dsinforme As New DataSet()
Dim dafuncionario, daStructura as OleDbDataAdapter
Por favor les rogaria me puedan brindar su ayuda.
Gracias
Valora esta pregunta


0