Charting - new to me - probably easy

[Chase Florell]

I am trying to get a very simple chart to show on my page, but since charting is so new to me, I don't know how to accomplish the simple stuff.

Here is my Stored Procedure

-- =============================================
-- Author:              Chase
-- Create date: 11/10/2008
-- Update date: 11/10/2008
-- Description: Get Admin Data
-- =============================================
ALTER PROCEDURE dbo.bt_BizBoth_AdminAdChart

AS
SET NOCOUNT ON
SET ANSI_NULLS ON
    /* SET NOCOUNT ON */


Select

    (Select Count([ID])
        As TotalBizForSale
        From bt_BizForSale
    ) AS TotalForSale,


    (Select Count([ID])
        As TotalBizWanted
        From bt_BizWanted
    ) As TotalWanted

And here is my page load

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Dim BizBothDC As New DAL.BizBothDataContext
        Dim results = BizBothDC.bt_BizBoth_AdminAdChart
        RadChart1.DataBind()
    End Sub

My problem is that I don't know how to wire it up to my Chart... Basically the chart needs to be a PIE CHART with TOTAL BUSINESSES FOR SALE and TOTAL BUSINESSES WANTED

Note I do not want to use a DataSource in my ASPX.. I think they are just UGLY.

Thanks in advance.

[Chase Florell]

I have gotten a little further... I have updated the Stored Procedure to display more data

-- =============================================
-- Author:              Chase Florell
-- Create date: 11/10/2008
-- Update date: 11/10/2008
-- Description: Get Admin Data
-- =============================================
ALTER PROCEDURE dbo.bt_BizBoth_AdminAdChart

AS
SET NOCOUNT ON
SET ANSI_NULLS ON
    /* SET NOCOUNT ON */


Select

    (Select Count([ID])
        As TotalBizForSale
        From bt_BizForSale
        Where DateExpires > GetDate()
        And isSold = 0
    ) AS [Total For Sale],

    (Select Count([ID])
        As TotalForSaleSold
        From bt_BizForSale
        Where isSold = 1
    ) As [Total Sold],

    (Select Count([ID])
        As TotalForSaleExpired
        From bt_BizForSale
        Where isSold = 0
        And DateExpires < GetDate()
    ) As [Total For Sale Expired],

    (Select Count([ID])
        As TotalBizWanted
        From bt_BizWanted
        Where DateExpires > GetDate()
        And isFound = 0
    ) As [Total Wanted],

    (Select Count([ID])
        As TotalWantedFound
        From bt_BizWanted
        Where isFound = 1
    ) As [Total Found],

    (Select Count([ID])
        As TotalWantedExpired
        From bt_BizWanted
        Where isFound = 0
        And DateExpires < GetDate()
    ) As [Total Wanted Expired]

and have a Screen Shot to display the results.
I am binding the Chart as follows

        Dim BizBothDC As New DAL.BizBothDataContext
        Dim results = BizBothDC.bt_BizBoth_AdminAdChart.ToList
        RadChart1.DataSource = results

        RadChart1.DataBind()

is there any way to get all of the records into a singe pie?

[Ves]

Hello Chase Florell,

Please, find the answer in the support thread you have started.

Best regards,
Ves
the Telerik team

Check out Telerik Trainer, the state of the art learning tool for Telerik products.

[Chase Florell]

Thank you for the reply.  For those looking for a similar answer... here is my answer from Support

        If Not Page.IsPostBack Then

            Dim ser As New ChartSeries
            Dim item As New ChartSeriesItem

            ser.Type = ChartSeriesType.Pie
            ser.Appearance.LegendDisplayMode = ChartSeriesLegendDisplayMode.ItemLabels
            ser.Appearance.Corners.RoundSize = 5

            Dim BizBothDC As New DAL.BizBothDataContext
            Dim results = BizBothDC.bt_BizBoth_AdminAdChart.First


            item.YValue = results.Total_For_Sale
            item.Name = "Total For Sale: " & results.Total_For_Sale
            ser.Items.Add(item)

            item = New ChartSeriesItem
            item.YValue = results.Total_Sold
            item.Name = "Total Sold: " & results.Total_Sold
            ser.Items.Add(item)

            item = New ChartSeriesItem
            item.YValue = results.Total_For_Sale_Expired
            item.Name = "Total For Sale Expired: " & results.Total_For_Sale_Expired
            ser.Items.Add(item)

            item = New ChartSeriesItem
            item.YValue = results.Total_Wanted
            item.Name = "Total Wanted: " & results.Total_Wanted
            ser.Items.Add(item)

            item = New ChartSeriesItem
            item.YValue = results.Total_Found
            item.Name = "Total Found: " & results.Total_Found
            ser.Items.Add(item)

            item = New ChartSeriesItem
            item.YValue = results.Total_Wanted_Expired
            item.Name = "Total Wanted Expired: " & results.Total_Wanted_Expired
            ser.Items.Add(item)

            RadChart1.Appearance.FillStyle.FillType = Styles.FillType.Image
            RadChart1.Appearance.FillStyle.FillSettings.BackgroundImage = "~/Images/Admin_Icons/Admin_Chart_BG.png"
            RadChart1.Appearance.Border.Color = Drawing.Color.Transparent

            RadChart1.Series.Add(ser)
            RadChart1.ChartTitle.TextBlock.Text = "Current Business-Trader Ad Postings"
            RadChart1.ChartTitle.TextBlock.Appearance.TextProperties.Color = Drawing.ColorTranslator.FromHtml("#5c7f50")
        End If