Error en Reporte con VB.NET
Publicado por Julio (4 intervenciones) el 07/04/2005 16:59:21
Soy nuevo en generar reportes con crystal report en VB.Net. utilizando ADO.net.
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'
Tam bien 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
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'
Tam bien 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