Crystal Report - VB 2010 + CR XI + TTX

   
Vista:

VB 2010 + CR XI + TTX

Publicado por Rafael (3 intervenciones) el 08/07/2015 21:00:58
Hola amigos del foro, estoy empezando a utilizar los ficheros .ttx, después de buscar en internet he encontrado varios ejemplos, pero cuando ejecuto el reporte me muestra el reporte en blanco, no aparecen datos, el código de lo que hago lo pongo a continuación. El reporte lo hago con Crystal Report XI y en VB2010.

Gracias de antemano a todo aquel que me pueda ayudar.

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
Dim cnn1 As New OdbcConnection(gConnectionString)
Dim miInforme As New ReportDocument
Dim strReportName As String = "Reporte"
Dim strReportPath As String = "c:\Prueba\" & strReportName & ".rpt"
cnn1.Open()
miInforme.Load(strReportPath)
 
Dim cmd As New System.Data.Odbc.OdbcCommand("SELECT IdArt, NombreArt FROM Articulos", cnn1)
 
If cmd.ExecuteNonQuery Then
	Dim dt As New DataTable
	Dim da As New OdbcDataAdapter(cmd)
	Dim ds As New DataSet()
 
	Dim cbArticulos As New OdbcCommandBuilder(da)
	da.Fill(ds, "Articulos")
	miInforme.SetDataSource(ds)
	Me.CrystalReportViewer1.ShowRefreshButton = False
	Me.CrystalReportViewer1.ShowCloseButton = False
	Me.CrystalReportViewer1.ShowGroupTreeButton = False
 
	Me.CrystalReportViewer1.ReportSource = miInforme
End If
cnn1.Close()
 
Me.CrystalReportViewer1.RefreshReport()
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder