Crear Crystal Report sin problemas de conexión

Hola a tod@s,

El siguiente artículo lo voy a crear por las dudas que me he encontrado en los foros de la MSDN y por gente que me ha preguntado directamente en el blog.

Para mostrar esto voy a crear una aplicación Windows en C#, (si alguien necesita el código fuente en VB con pedírmelo lo crearía encantada), voy a usar SQL Server 2005 Express como gestor de base de datos y la base de datos AdventureWorks.

La idea es crear un informe con crystal report cuya conexión será de tipo ADO.NET donde le asignaremos un XML que tendrá un esquema de tablas, con esto podremos diseñar el informe (pero no podremos hacer una previsualización de datos); por otro lado, mediante código crearemos un Dataset con la misma estructura de tablas que hemos definido en el XML y las rellenaremos, y luego asignaremos ese Dataset a informe mediante código.

Antes de empezar una pequeña aclaración. A nivel empresarial se debe tener una buena arquitectura con varias capas, una de ellas de acceso a datos, otra con la lógica de negocio, otra con la definición de objetos, etc. La cadena de conexión debería estar encriptada en el app.config. Sin embargo, el objetivo principal de este artículo es una pequeña guía para ver como podemos plantear la conexión a nuestros informes de crystal.

Los pasos a seguir para alcanzar nuestro objetivo son:

1º. Creamos un nuevo proyecto de Windows que llamo crystal.
2º. Agrego una clase al proyecto en la cual haremos la conexión a la base de datos y rellenaremos un dataset. Para usar las clases de acceso a datos de SQL Server se debe de referenciar a System.Data y System.Data.SqlClient. La clase nos podría quedar de la siguiente forma:

using System;
using System.Collections.Generic;
using System.Text;
using System.Data;
using System.Data.SqlClient;

namespace crystal
{ 
    public class Tablas
    {
        private DataTable dtResultado;

        public DataSet DevuelveDataSet()
        {
            //Creo la estructura de la tabla
            dtResultado = new DataTable("empleados");
            dtResultado.Columns.Clear();
            dtResultado.Columns.Add(new DataColumn("EmployeeID", typeof(long)));
            dtResultado.Columns.Add(new DataColumn("Title", typeof(String)));
            dtResultado.Columns.Add(new DataColumn("AddressLine1", typeof(String)));
            //Le añado la PK
            dtResultado.PrimaryKey = new DataColumn[] { dtResultado.Columns["EmployeeID"] };

            //Relleno la tabla con datos de la base de datos
            SqlConnectionStringBuilder bldr = new SqlConnectionStringBuilder();
            bldr["Data Source"] = @".\SQLExpress";
            bldr["Initial Catalog"] = "AdventureWorks";
            bldr["Integrated Security"] = true;

            //Podemos rellenar una tabla como si de una vista se tratara
            string str = "SELECT HumanResources.Employee.EmployeeID, HumanResources.Employee.Title, Person.Address.AddressLine1 " +
                         "FROM HumanResources.Employee " +
                         "INNER JOIN HumanResources.EmployeeAddress " +
                         "  ON HumanResources.EmployeeAddress.EmployeeID = HumanResources.Employee.EmployeeID " +
                         "INNER JOIN Person.Address " +
                         "  ON Person.Address.AddressID = HumanResources.EmployeeAddress.AddressID";

            //Realizo el acceso a datos
            using (SqlConnection con = new SqlConnection(bldr.ConnectionString))
            {
                using (SqlDataAdapter da = new SqlDataAdapter())
                {
                    da.SelectCommand = new SqlCommand();
                    da.SelectCommand.CommandType = CommandType.Text;
                    da.SelectCommand.CommandText = str;
                    da.SelectCommand.Connection = con;

                    da.Fill(dtResultado);
                }
            }

            //Defino el dataset
            DataSet ds = new DataSet();

            ds.Tables.Add(dtResultado);

            //Descomentando esta línea nos sirve para crear el XML con
            //el esquema de tablas que necesitamos
            //ds.WriteXmlSchema(@"C:\report.xml");
            //Elimino de memoria la tabla
            dtResultado.Dispose();
            dtResultado = null;
            return ds;

        }

    }

}

3º. Agregamos un manejador al evento Load del formulario Form1, en el cual podemos crear un objeto Tablas y llamar al método DevuelveDataSet y descomentando la linea //ds.WriteXmlSchema(@"C:\report.xml"); y ejecutando el programa hasta esta línea, podremos obtener un fichero xml con el esquema de tablas que necesitamos. Evidentemente el programa no está terminado, pero hacemos este pequeño truco para no tener que estar escribiendo a mano el XML. Una vez hecho esto, agregamos al proyecto el XML resultante y volvemos a comentar la línea de código que hemos dicho.
4º. Añadimos al proyecto un report de Crystal.
5º. Añadimos al Crystal una nueva conexión de tipo ADO.NET y le asociamos el XML que hemos creado en el punto 3.

6º. Diseñamos el report.
7º. En el formulario Form1 le añadimos un control CrystalReportViewer.
8º. Completamos el Load del formulario con el siguiente código.

private void Form1_Load(object sender, EventArgs e)
        {
            Tablas tb = new Tablas();
            DataSet ds = tb.DevuelveDataSet();

            CrystalDecisions.CrystalReports.Engine.ReportDocument rd = new crInforme();

            rd.SetDataSource(ds);
            foreach(CrystalDecisions.CrystalReports.Engine.ReportDocument sr in rd.Subreports)
            {
                if (sr.Database.Tables.Count > 0 )
                {
                    sr.SetDataSource(ds);
                }
            }

            this.crystalReportViewer1.ReportSource = rd;
            this.crystalReportViewer1.Show();

        }

9º. Le damos a F5 y podemos observar como en el informe se nos muestra correctamente la información.

Si queremos conectarnos a otra base de datos que no sea SQL Server podremos usar el mismo código excepto que en vez de usar System.Data.SqlClient usaremos System.Data.OleDB, pero el resto es igual.

Espero que os haya ayudado este artículo, os dejo el código fuente aquí.

Para obtener el mismo código pero en VB.NET en este artículo http://csanchezg.spaces.live.com/blog/cns!41C0BFBBFE8E1519!540.entry

Un saludo.