(OWC) y ASP.NET - Willy .Net

Cómo Utilizar un DataSet con un componente Gráfico de
Office XP (OWC) y ASP.NET
En este artículo paso a paso se describe cómo crear un gráfico que utiliza el componente Chart
de Office XP con datos de un DataSet. Las soluciones que se presentan en este artículo utilizan
Visual Basic .NET y ASP.NET.
Orígenes de datos para el componente Chart
El componente Chart de Office XP admite tipos distintos de origen de datos como la siguiente:
Componente de gráfico se puede enlazar con un origen de datos que implementa el
interfaz IDataSource, una interface estándar COM de control de origen de datos. El otro
Web Components de Office XP el componente PivotTable, el componente Spreadsheet y
los controles DataSource es decir implementa IDataSource y puede ser origen de datos
posibles de un gráfico.
Componente de gráfico se puede enlazar a un objeto Recordset de ADO.
Componente de gráfico se puede enlazar con una secuencia XML si el dato persiste en
la secuencia en el formato de persistencia XML.
Un componente Chart puede utilizar datos literales del formulario de una cadena o una
matriz delimitadas; no se considera el límite un gráfico que utiliza datos literales.
La clase DataSet en ADO.NET no implementa IDatasource y el .NET Framework no admite un
medio directo de convertir un objeto DataSet de ADO.NET a un objeto Recordset de ADO. Si
tiene un DataSet de el que desea crear un gráfico, puede utilizar las una dos soluciones que se
presentan en este artículo. Puede arrastrar cualquiera de transformación el DataSet en una
secuencia que utiliza el formato de persistencia XML para ADO o puede generar datos literales
del DataSet.
Utilice el formato de persistencia XML
Esta solución describe cómo transformar un DataSet en una secuencia XML con la que se
puede enlazar el componente Chart. Esta solución tiene dos partes: un controlador HTTP de
servidor que crea un DataSet y que lo transforma en una secuencia XML y una secuencia de
comandos de cliente que enlaza el componente Chart a la secuencia XML.
Cree un controlador HTTP para crear un DataSet y transformarlo en un origen de datos
XML
1. En el menú Archivo en Visual Studio .NET, haga clic en Nuevo y a continuación, haga
clic en Proyecto.

2. Haga clic en Proyectos de Visual Basic, haga clic en la plantilla Proyecto Web vacío y
a continuación, ChartDemo1 llámelo.
3. En el menú Proyecto, haga clic en Agregar referencia, haga clic para seleccionar los
ensamblados siguientes y a continuación, haga clic en Aceptar:
o System.Data.dll
o System.dll
o System.Web.dll
o System.XML.dll
4. En el menú Proyecto, elija Agregar clase, nombre la clase MakeData.vb y Abrir Click a
continuación.
5. Reemplace el código en MakeData.vb por siguiente.
Nota Debe cambiar Id. de usuario y contraseña = a los valores correctos antes de ejecutar este código. Asegúrese de que Id. de
usuario tiene los permisos apropiados realizar esta operación en la base de datos.
6. Imports System.Web
7. Imports System.Xml
8. Imports System.Xml.Xsl
9. Imports System.Data
10. Imports System.Data.SqlClient
11.
12. Public Class MakeData
13. Implements IHttpHandler
14.
15. Public ReadOnly Property IsReusable() As Boolean _
16. Implements IHttpHandler.IsReusable
17. Get
18. Return False
19. End Get
20. End Property
21.
22. Public Sub ProcessRequest(ByVal context As HttpContext) _
23. Implements IHttpHandler.ProcessRequest

24. Dim sConn As String = "User
ID=;Password=;Initial Catalog=Northwind;Data
Source=YourSQLServer;"
25. Dim sSQL As String = _
26. "SELECT LastName, Sum([UnitPrice]*[Quantity]*(1-[Discount])) AS
OrderTotal " & _
27. "FROM Employees INNER JOIN (Orders INNER JOIN [Order
Details] ON " & _
28. "Orders.OrderID = [Order Details].OrderID) ON
Employees.EmployeeID = " & _
29. "Orders.EmployeeID GROUP BY LastName"
30.
31. 'Connect to the data source.
32. Dim nwindConn As SqlConnection = New SqlConnection(sConn)
33. nwindConn.Open()
34.
35. 'Build a dataSet for Employee Sales.
36. Dim ds As DataSet
37. ds = New DataSet("MyDataset")
38. Dim da As SqlDataAdapter = New SqlDataAdapter(sSQL, nwindConn)
39. da.Fill(ds)
40.
41. 'Transform the dataSet using the stylesheet.
42. Dim xmlDoc_ds As XmlDataDocument = New XmlDataDocument(ds)
43. Dim xslTran As XslTransform = New XslTransform()
44. xslTran.Load(context.Server.MapPath("Rowset.xslt"))
45.
46. 'Return the persisted recordset.
47. context.Response.ContentType = "text/xml"
48. context.Response.Charset = ""

49. xslTran.Transform(xmlDoc_ds, Nothing, context.Response.Output)
50.
51. End Sub
52.
End Class
NOTA: En el código, se cambia la cadena de conexión en sConn a una cadena de
conexión válida de un equipo que ejecuta Microsoft SQL Server y que contiene la base
de datos de ejemplo Neptuno.
53. En el menú Proyecto, haga clic en Agregar nuevo elemento, haga clic en la plantilla
Archivo de configuración del Web y después, haga clic en Abrir.
54. Sustituya los contenidos de Web.Config por siguiente:
55.
56.
57.
58.
59.
60.
61.
62. En el menú Proyecto, haga clic en Agregar nuevo elemento, elija la plantilla, el nombre
el archivo Rowset.xslt y el Abrir Click XSLT File a continuación.
63. Sustituya los contenidos de Rowset.xslt por siguiente:
64.
65.
66.
67.

71.
72.
73.
74.
75.
76.
77.
78.
79.
80.
81.
82.
83.
84.
85.
86.
87.
88.
89.
90.
91.
92.
93.
94.
95.
96. Siga estos pasos para probar el controlador HTTP de MakeData:
1. En el menú Generar, haga clic en Generar solución.

2. Inicie Microsoft Internet Explorer y después, busque
/ChartDemo1/MakeData.aspx SuServidorWeb http://
(donde es SuServidorWeb el nombre de su servidor Web.)
3. Examine el XML que muestra el explorador. XML utiliza el esquema definido
para el formato de persistencia XML.
Enlace el componente Gráfico de Office XP al origen de datos XML
1. Abra el proyecto de aplicación Web ChartDemo1 en Visual Studio .NET.
2. En el menú Proyecto, haga clic en Add HTMLPage.
3. Dé nombre a la página nueva Default.htm y a continuación, haga clic en Abrir.
Default.htm aparece en vista Diseño.
4. Haga clic en Default.htm, haga clic en Propiedades, cambie el Esquema de destino a
Internet Explorer 5.0 y a continuación, haga clic en Aplicar.
5. Cambie Default Scripting Language a VBScript y a continuación, haga clic en
Aceptar.
6. Siga estos pasos para agregar un componente Chart de Office XP a Default.htm:
1. En el menú Herramientas, haga clic en Personalizar cuadro de herramientas.
2. En la lista Componentes COM, haga clic en Microsoft Office Chart 10.0 y a
continuación, haga clic en Aceptar.
3. Arrastre un control Chartspace sobre Default.htm.
7. Siga estos pasos para agregar un control Button a Default.htm:
1. En la ventana Cuadro de herramientas, haga clic en HTML.
2. Arrastre un control Button sobre Default.htm.
3. Cambie a Make Chart la propiedad Value del botón.
8. Haga clic en el botón que agregó a Default.htm y a continuación, haga clic en View
Client Script.
9. Agregue el código siguiente al evento Button1 onclick:
10. 'Bind the chart to the recordset.
11. Dim c
12. Set c = Chchartspace1.Constants
13. Chchartspace1.ConnectionString = "Provider=MSPersist"
14. Chchartspace1.CommandText =
"http://YourWebServer/ChartDemo1/MakeData.aspx"
15. Chchartspace1.HasMultipleCharts = False
16. Chchartspace1.PlotAllAggregates = c.chPlotAggregatesSeries
17. Chchartspace1.SetData c.chDimCategories, c.chDataBound, "LastName"
Chchartspace1.SetData c.chDimValues, c.chDataBound, "OrderTotal"
NOTA: SuServidorWeb de cambio en la dirección URL al nombre de su servidor Web.
18. En el menú Archivo, haga clic en Save Default.htm.
19. Siga estos pasos para probar la solución:

1. Inicie Internet Explorer y vaya a /ChartDemo1/Default.htm SuServidorWeb http://
(donde es SuServidorWeb el nombre de su servidor Web.)
2. Haga clic en Make Chart. Observe que un gráfico de columnas con datos del
DataSet aparece.
Utilice datos literales
Esta solución describe forma, forma de generar datos literales de un DataSet en la forma y utiliza
a continuación aquel dato literal para crear un gráfico. Esta solución utiliza un Web Form de
ASP.NET. Ejecutar código servidor genera un DataSet un control de servidor PlaceHolder se
utiliza para la isla de datos y devuelve el DataSet al cliente como una isla de datos XML. La
secuencia de comandos en cliente atraviesa los nodos en la isla de datos para crear matrices
para las categorías y los valores que se utilizan para crear el gráfico.
1. Visual Basic mediante ASP.NET crea un proyecto nuevo de aplicación Web denominado
ChartDemo2. Webform1.aspx se crea de forma predeterminada y vista Diseño
muestra.
2. Haga clic en WebForm1 y a continuación, haga clic en Ver código fuente HTML.
3. Reemplace el elemento siguiente
4.
Con siguiente:
Chart Data
Function Mybtn_OnClick

'Extract the contents of the XML Data island and insert it into two
'arrays: one array for the chart categories and one array for the
'chart values.
Dim nCount, nodes, i
Set nodes = dsXML.XMLDocument.childNodes.item(0).childNodes
nCount = nodes.length
Redim aNames(nCount)
Redim aTotals(nCount)
For i=1 to nCount
aNames(i) = nodes.item(i-1).ChildNodes.item(0).text
aTotals(i) = nodes.item(i-1).ChildNodes.item(1).text
Next
'Create a chart from the array data.
'Bind the chart to the recordset.
Dim c
Set c = CSpace.Constants
Dim oChart, oSer
CSpace.Clear
Set oChart = CSpace.Charts.Add
Set oSer = oChart.SeriesCollection.Add
oSer.SetData c.chDimCategories, c.chDataLiteral, aNames
oSer.SetData c.chDimValues, c.chDataLiteral, aTotals
End Function
5. En el menú Ver, haga clic en Diseño para volver a vista Diseño.

6. En el menú Ver, haga clic en Código para ver el código situado detrás del formulario
Web Forms (Webform1.aspx.vb).
7. Agregue el código siguiente al principio de Webform1.aspx.vb:
8. Imports System.Data.SqlClient
9. Imports System.Xml
Imports System.Xml.Xsl
10. Agregue el código siguiente a la función Page Load en Webform1.aspx.vb.
Nota Debe cambiar Id. de usuario y contraseña = a los valores correctos antes de ejecutar este código. Asegúrese de que Id. de
usuario tiene los permisos apropiados realizar esta operación en la base de datos.
11. Dim sConn As String = "User ID=;Password=;Initial Catalog=Northwind;Data Source=YourSQLServer;"
12. Dim sSQL As String = _
13. "SELECT LastName, Sum([UnitPrice]*[Quantity]*(1-[Discount])) AS
OrderTotal " & _
14. "FROM Employees INNER JOIN (Orders INNER JOIN [Order Details] ON
" & _
15. "Orders.OrderID = [Order Details].OrderID) ON Employees.EmployeeID =
" & _
16. "Orders.EmployeeID GROUP BY LastName"
17.
18. 'Connect to the data source.
19. Dim nwindConn As SqlConnection = New SqlConnection(sConn)
20. nwindConn.Open()
21.
22. 'Build a DataSet for Employee Sales.
23. Dim ds As DataSet
24. ds = New DataSet("MyDataset")
25. Dim da As SqlDataAdapter = New SqlDataAdapter(sSQL, nwindConn)
26. da.Fill(ds)
27.
28. 'Add the DataSet as XML to a data island in the PlaceHolder control.

29. Dim sw As System.IO.StringWriter = New System.IO.StringWriter()
30. ds.WriteXml(sw)
31. Dim lc As LiteralControl = New LiteralControl( _
32. "" & sw.ToString & "")
PlaceHolder1.Controls.Add(lc)
NOTA: En el código, se cambia la cadena de conexión en sConn a una cadena de
conexión válida de un equipo que ejecuta SQL Server y que contiene la base de datos
de ejemplo Neptuno.
33. Siga estos pasos para probar la aplicación Web:
1. Presione F5 para generar y ejecutar la aplicación. Aplicación Web se carga en
Internet Explorer.
2. En el menú Ver en Internet Explorer, haga clic en Ver código fuente. Nota un
dato XML isla con el identificador "dsXML" existe en el código fuente HTML; la
isla de datos fue generada por el código en el evento Page Load del formulario
Web Forms.
3. Haga clic en el formulario de Web en Chart Data para que genere el gráfico a
partir de los datos en la isla de datos XML.
Consideraciones
Puede crear y utiliza objetos Recordset de ADO en el .NET Framework a través de la capa de
interoperabilidad de COM. Es si utiliza objetos Recordset de ADO o DataSets de ADO.NET
para su solución una opción de diseño. Si tiene código existente que crea DataSets y si desea
agregar funcionalidad que se representa, puede utilizar una de las soluciones que se tratan en
este artículo. Sin embargo, si tiene acceso a datos en sólo para crearlos en gráficos, Microsoft
recomienda utilizar ADO a través de interoperabilidad COM para poder enlazar directamente a
los datos sin conversión.