hola, llevo un tiempo usando VB.net pero nunca he trabajado con Crystal Report, ahora me veo en la necesidad de crear un reporte sencillo, la idea es crearlo con el diseñador, pero los datos mandarlos mediante codigo, no se como hacerlo, he buscado en google pero como nunca lo he usado no entiendo mucho.

la idea es por ejemplo:

crear el reporte con 3 campos

NOMBRE RUT DIRECCION


como mando los datos al reporte mediante codigo??

trabajo con OleDbConnection



agradesco la ayuda de antemano....

Saludos:

Para ello tiens dos opcioens:

1) Crear un Datatable con los campos que quieras imprimir y asignar el Datatable como DataSource al reporte.

2) Pasar los datos como parametros al reporte.

He trabajado con ambos, y cada uno tiene pros y contras. Decide cual necesitas y estare por aca en el foro, para ayudarte.


JOSE LUIS

josel.vi, podria mostrar un ejemplo con esta opcion 1) Crear un Datatable con los campos que quieras imprimir y asignar el Datatable como DataSource al reporte.

Tomando en cuenta ejemplo de Mickmarv
porfavor

Hola, te pongo un ejemplo que tengo de un reporte sencillo que hice en el trabajo, aunque está en C#, básicamente son los mismos pasos, sólo que en VB. Net, si aún no te claro, más al rato te preparo un ejemplo ya en VB .Net

Código:

//Aquí preparo el DataTable
DataTable dt = new csConexion(AppBD.AccessControl).consultar("SELECT * FROM Accesos");
//Mi reporte se creó basado en un DataSet que cree, ya que mi origen de datos está dividido en 2 BD''s diferentes y no
//puedo crear un view en la base de datos. así que puedes omitir toda esta lógica rara mia :P
            DataTable repSource = new dsReporteAccesos.ReporteAccesosDataTable();
            List<string[]> lstEmpleados = new List<string[]>();
            foreach (DataRow dr in dt.Rows)
            {
                DataRow nDr = repSource.NewRow();
                nDr[0] = dr[0];
                nDr[1] = dr[1];
                var qry = from string[] strEmpleado in lstEmpleados where strEmpleado[0].Equals(dr[1].ToString()) select strEmpleado;
                string[] empleado = new string[3];
                if (qry.Count<string[]>() > 0)
                    empleado = qry.ToList<string[]>()[0];
                else
                {
                    DataTable tempData = new csConexion(AppBD.GIGAIT).consultar("SELECT Nombres,Apellidos FROM Empleados WHERE idEmpleado = " + dr[1].ToString());
                    empleado[0] = dr[1].ToString();
                    empleado[1] = tempData.Rows[0][0].ToString();
                    empleado[2] = tempData.Rows[0][1].ToString();
                    lstEmpleados.Add(empleado);
                }
                nDr[2] = empleado[1];
                nDr[3] = empleado[2];
                nDr[4] = dr[2];
                nDr[5] = dr[3];
                nDr[6] = dr[4];
                repSource.Rows.Add(nDr);
            }
//Se instancía el reporte
            rptAccesos rpt = new rptAccesos();
//Se asigna el DataTable al reporte
            rpt.SetDataSource(repSource);
//Se muestra en el ReportViewer
            crvAccesos.ReportSource = rpt;

Saludos y espero que te ayude.

yo también ando en la misma al parecer es mas complicado que en vb6

De esta forma lo pude hacer

Código:

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim rpt As New rptStatus '' Objeto crystal Reports
        Dim formulario As New general_report '' Fromulario que contiene al Objeto CrystalReportViewer
        Dim exclu
        exclu = "Si"
        rs = New ADODB.Recordset
        With rs
            .Open("select * from Guias where Enviado ='" & CStr(exclu) & "'", cn, ADODB.CursorTypeEnum.adOpenDynamic, ADODB.LockTypeEnum.adLockOptimistic)


            rpt.SetDataSource(rs)
            formulario.CrystalReportViewer1.ReportSource = rpt
            formulario.CrystalReportViewer1.Dock = DockStyle.Fill

            Dim frmReporte As New Form()
            With frmReporte
                .Controls.Add(formulario.CrystalReportViewer1)
                .Text = "Reporte de Notas"
                .WindowState = FormWindowState.Maximized
                .ShowDialog()
            End With
        End With
        rs.Close()
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        conex()
    End Sub
End Class