Por dransoft , Miércoles 10 de junio de 2009 a las 15:18
Hola un saludo a la comunidad.
Antes les esplico lo que quiero hacer:
Quiero un ventana en la cual coloque el id de un cliente y que al hacer clic en un boton, pues me imprima los datos del cliente para el cual corresponde dicho id.
Ahora segun lo que investigue, pues he creado un dataset, al cual solo le agrege las columnas, es decir no hise un conexion a la db.
despues de ello cree un reporte con el CR (en blanco) y le indique el dataset del proyecto.
despues cree una ventana (form) y le agrege un CrystalreportViewer.
Ahora regresando a la ventana principal, pues le agrege un Dst1, es cual es un objeto del dataset que habia creado, ademas un SqlDataAdapter, el cual esta asociado a un procedimiento almacenado que me retorna el usuario segun el id que el envio.
bueno este es el codigo que supuestamente me deberia imprimir el reporte.
[vb.net] Private Sub btnaceptar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnaceptar.Click
Try
cn.Open() 'abrimos la conexion
Dst1.Clear() 'creamos la conexion al dataset
Dim rep As New reporte 'creamos la ventana del reporte
'aca le envio el id al dataset, para que me haga el reporte de solo ese id
SqlDataAdapter1.SelectCommand.Parameters("@cod").Value = Me.cbxEmployee.SelectedValue
'le agrego el dataset al DataAdapter
SqlDataAdapter1.Fill(Dst1)
Dim rpt As New RptEmployee
'le agrego al reporte el dataSet
rpt.SetDataSource(Dst1)
rep.CrystalReportViewer1.ReportSource = rpt
rep.CrystalReportViewer1.Dock = DockStyle.Fill
Dim frmReporte As New Form()
With frmReporte
.Controls.Add(rep.CrystalReportViewer1)
.Text = "Reporte Employees"
.WindowState = FormWindowState.Maximized
.ShowDialog()
End With
Catch ex As Exception
MsgBox(ex.Message)
Finally
cn.Close()
End Try
End Sub[/vb.net]
Espero que me puedan ayudar, pues no veo donde esta el problema.
Gracias
