ASP pie-chart won't work with OWC

mikki · May 31, 2001

I've used the following code to create charts with Office Web Components, but pie-chart doesn't work. Stacked-pie works fine.

I got no errors or warnings, so what could be wrong with the following code?

I use MS SQL Server 7. This code is retrieving its charting data from Northwind -database.

Here's the code:

<% option explicit %>

<%
' Declaring variables

Dim objConn
Dim objResSet
Dim strConn
Dim owc
Dim owcChart
Dim rs
Dim strSQL
Dim strPath
Dim owcLabels

' Path to server (chart picture is stored here.)
strPath = server.mapPath("./testit&quot

' Opening connection
Set objConn = Server.CreateObject("ADODB.Connection&quot

strConn = "Driver={SQL Server};" & "Server=sqlserver;Uid=test;Pwd=test; Database=Northwind"

objConn.open strConn

' SQL sentence, which retrieves product names and prices which cost under 10 dollars
strSQL = "select productname, unitprice from products where unitprice < 10"

' Creating recordset
set rs = server.createObject("adodb.recordset&quot

' Defining OWC
set owc = createObject("owc.chart&quot

set owcChart = owc.charts.add

' Defining Chart-type

owcChart.type = owc.constants.chChartTypePie
owcChart.hasLegend = true
owcChart.hasTitle = true
owcChart.title.caption = "Testing"
owcChart.title.font.name = "tahoma"
owcChart.title.font.size = 10
owcChart.title.font.bold = true

rs.cursorLocation = 3 'adUseClient
rs.open strSQL, strConn, 3 'adOpenStatic - opening recordset statically

set owc.dataSource = rs

' Attempting to create chart

owcChart.seriesCollection.add.setData owc.constants.chDimCategories, 0, "productname"

owcChart.seriesCollection.add.setData owc.constants.chDimValues, 0, "unitprice"

set owcLabels = owcChart.seriesCollection.add.dataLabelsCollection.add
owcLabels.hasValue = false
owcLabels.hasPercentage = true
owcLabels.font.name = "tahoma"
owcLabels.font.size = 8

' Storing image to the server

owc.exportPicture strPath & "/" & session.sessionId _
& "b.gif", "gif", 800, 500
response.write "<img src=""testit/" & _
session.sessionId & "b.gif"">"

rs.close

set owcChart = nothing
set rs = nothing
set strSQL = nothing

%>

It shows the legend ok. Sector values are collected correctly, but it doesn't draw the pie.

Stacked pie is displayed ok, which amazes me, since there's no big difference between stacked-pie and pie.

I would appreciate your help!

snowdaze · Apr 8, 2002

I am having the same problem, except that my chart shows up at 1 full data series instead of the 3 series that are in my database. They show up fine in the legend, does anyone know what is wrong???

<% Option Explicit %>
<HTML>
<HEAD>
<TITLE>D/90 FY02 Total Burdened Direct Hours</TITLE>

<%
Function ExportChartToGIF(objCSpace, strAbsFilePath, strRelFilePath)
Dim strFileName
Randomize
strFileName = Timer & Rnd & ".gif"
objCSpace.ExportPicture strAbsFilePath & "\" & strFileName, "gif", 765, 400
ExportChartToGIF = strRelFilePath & "/" & strFileName
End Function

Sub CleanUpGIF(GIFpath)
Dim objFS
Dim objFolder
Dim gif
set objFS = Server.CreateObject("Scripting.FileSystemObject&quot

set objFolder = objFS.GetFolder(GIFpath)
for each gif in objFolder.Files
if instr(gif.Name, ".gif&quot

> 0 and DateDiff("n", gif.DateLastModified, now) > 10 then
objFS.DeleteFile GIFpath & "\" & gif.Name, True
end if
next
set objFolder = nothing
set objFS = nothing
End Sub

%>
</HEAD>
<BODY BGCOLOR="#FFFFFF">
<%
dim objChartSpace
dim objChart
dim objSeries
dim objConn
dim objRS
dim c
dim series
dim strChartAbsPath
dim strChartRelPath
dim strChartFile
strChartAbsPath = Server.MapPath("/metrics/chartimages&quot

strChartRelPath = ""

set objChartSpace = Server.CreateObject("OWC.Chart&quot

set objChart = objChartSpace.Charts.Add()
set c = objChartSpace.Constants

objChart.Type = c.chChartTypePie
objChart.HasLegend = True
objChart.Legend.Position = c.chLegendPositionBottom
objChart.PlotArea.Interior.Color = "White"

set objConn = Server.CreateObject("ADODB.Connection&quot

objConn.Open "pie"
set objRS = Server.CreateObject("ADODB.Recordset&quot

set objRS.ActiveConnection = objConn
objRS.CursorType = adOpenStatic
objRS.CursorLocation = adUseClient
objRS.Open "select * from pie"
set objChartSpace.DataSource = objRS
objChart.SetData c.chDimSeriesNames, 0, "NAME"
for each objSeries in objChart.SeriesCollection
objSeries.SetData c.chDimCategories, 0, "NAME"
objSeries.SetData c.chDimValues, 0, "DATA"
next

strChartFile = ExportChartToGIF(objChartSpace, strChartAbsPath, strChartRelPath)
Response.Write "<IMG SRC=""/metrics/chartimages" & strChartFile & """>" & "<P>"
CleanUpGIF strChartAbsPath

objRS.Close
set objRS = nothing
set objConn = nothing
set objSeries = nothing
set objChart = nothing
set objChartSpace = nothing
%>

Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

ASP pie-chart won't work with OWC

mikki

Programmer

snowdaze

Programmer

Similar threads

Part and Inventory Search

Sponsor