This example creates a chart using data from an ADO recordset. A tab-delimited string is created from the returned recordset data, and then this string is used with the SetCategoriesFromString and SetSeriesValuesFromString methods to set the chart data.

To run this example, copy the remainder of the text in this topic into an ASP page.

 <%@Language = VBScript %>
 <%' use this meta tag instead of adovbs.inc%>
 <!--METADATA TYPE="typelib" uuid="00000205-0000-0010-8000-00AA006D2EA4" -->

 <% 
    Response.Expires= 0

    Dim categories, values
    Dim Cnxn, strCnxn
    Dim rs, strSQL

    ' This example connects to a sample database named db1.mdb
    ' and charts the table named Info. ADO is used to open a
    ' connection to the database and return the entire recordset. The query
    ' contains two columns: Name and Sales.
    ' The records are then extracted into strings.

    ' Open connection to the "db1.mdb" Access Data Base
    strCnxn= "C:\db1.mdb"
    strCnxn= "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & strCnxn
    Set Cnxn= Server.CreateObject("ADODB.Connection")

    Cnxn.Open strCnxn
 
    Set Cmd= Server.CreateObject("ADODB.Command")
    Cmd.ActiveConnection= Cnxn

    strSQL = "SELECT * From Info"

    Cmd.CommandText = strSQL
    Set rs= Cmd.Execute

    categories = ""
    values = ""

    ' Start at the first record and move through the entire recordset.
    ' Field 0 is the category name, Field 1 is the sales value.
    ' Create a semicolon-delimited string for the names and one for the values.
    rs.MoveFirst
    While Not rs.EOF
       categories = categories & rs.Fields(0).Value & ";"
       values = values & rs.Fields(1).Value & ";"
       rs.MoveNext
    Wend

    ' Close and release the DB resources
    Cnxn.Close

    Set Cmd = Nothing
    Set rs = Nothing
    Set Cnxn = Nothing

    ' Remove the leftover Semicolon character at the end of the strings.
    categories = Left(categories, Len(categories) - 1)
    values = Left(values, Len(values) - 1)

    ' Create a new Swiff Chart object.
    Dim chart
    Set chart= Server.CreateObject("SwiffChartObject.ChartObj.1")

    ' Create a chart with one series (called "Sales").
    chart.AddSeries
    chart.SetSeriesCaption 0, "Sales"

    ' Set the series categories and values using the strings created from the recordset.
    chart.SetSeparators ";", true
    chart.SetCategoriesFromString categories
    chart.SetSeriesValuesFromString 0, values
    
    ' Set the chart title to "Sales for 2002".
    chart.SetTitle "Sales for 2002"

    ' Set the chart graphical layout with a Swiff Chart style file.
    ' "C:\myStyle.scs" is a dummy filename, it must be replaced by a correct filename.
    chart.LoadStyle "C:\myStyle.scs"

    ' Now the chart is complete, let's generate the Flash animation
    ' into the Response object.
    chart.ExportAsResponse
 
    'The chart is no more usefull, release it
    Set chart= Nothing

    Response.End
%>

See Also

Creating a Chart Using Data Specified in Arrays
Creating a Chart Using Data Specified in Strings
Creating a Chart Using Data From a Text File
Creating a Chart Using Data Specified in URLs