Visual Basic.NET - dudas crystal reports

   
Vista:

dudas crystal reports

Publicado por chato (18 intervenciones) el 03/09/2010 15:29:39
tengo una consulta creada en access y no se como hacer un reporte con crystal con ella ,a su ves a la consulta la filtro con un parametro que me ingresa el usuario..
les paso el codigo

Dim dsprueba As New dsDeudasAno 'dataset
Dim mireporte As New R_reporte_ano 'reporte en crystal
Dim cadena As String = "PROVIDER=Microsoft.JET.OLEDB.4.0;Data Source=" & Application.StartupPath & "\Mercado_Municipal.mdb"
Dim con As New OleDb.OleDbConnection(cadena)
Try
Dim sql As String = ""
If Me.cboano.SelectedItem.Equals("") Or Me.cboano.SelectedItem Is Nothing Then
MessageBox.Show("Debe seleccionar un año")
Else
Dim fecha As String = Me.cboano.SelectedItem()
con.Open()
Dim da As New OleDb.OleDbDataAdapter("SELECT p.pagmesFecPago AS fechaP, p.pagmesPreciototal AS precio, p.pagmesPrecioSaldo AS saldo, b.boxnom AS nombre, c.dpagmesrec AS recibo, c.dpagmespag, c.dpagmesfec FROM C_Pago_x_mes AS p, Box AS b, D_Pago_cuota AS c WHERE (p.pagmesPreciototal<>p.pagmesPrecioSaldo) And (p.pagmesBoxcod=b.boxcod) And (p.pagmesRecibo=0) And (p.pagmesCod=c.dpagmesCod) and p.pagmesFecPago like '*" & fecha & "' ORDER BY b.boxnom DESC", con)
da.Fill(dsprueba)
mireporte.SetDataSource(dsprueba)
Me.CrystalReportViewer1.ReportSource = mireporte

Me.CrystalReportViewer1.Show()
con.Close()
End If
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
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

RE:dudas crystal reports

Publicado por Damian (824 intervenciones) el 10/09/2010 14:31:16
No se que versión usas de visual y del crystal, es el que viene incluido? o lo tienes aparte el crystal?.
Porque si lo tienes independiente debes hacer los Imports correspondientes desde visual.
En mi caso lo tengo en SQL pero solo deberías cambiar esto y es igual:

Imports CRAXDDRT

Public crApp As New Application
Public crReport As New Report

Dim cadena(3), miOrder As String
cadena(0) = ".\SQLEXPRESS"
cadena(1) = "Construccion"
Dim ds1 As New DataSet
Dim cnn1 As New SqlDataAdapter(SQL, MiConexion)

FrCrystal.crReport = FrCrystal.crApp.OpenReport(FrCrystal.path & _
"\MejCli.rpt", 1)
cnn1.Fill(ds1, "datos")
For Each FrCrystal.tbl In FrCrystal.crReport.Database.Tables
FrCrystal.tbl.SetLogOnInfo(cadena(0), cadena(1))
Next
FrCrystal.crReport.Database.Tables(1).SetDataSource(ds1.Tables("datos"))

FrCrystal.crReport.Database.Tables(1).SetDataSource(ds1.Tables("datos"))
miOrder = rbMej.Text

FrCrystal.Text = "CLIENTES"
FrCrystal.CR.ReportSource = FrCrystal.crReport
FrCrystal.CR.ViewReport()
FrCrystal.CR.Zoom(75)
FrCrystal.ShowDialog()
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar