heypcguy

Never mind... I figured out what was wrong. Mostly user error, shouldn't be working on this stuff when I'm half asleep.

Hi all, I'm having issues with Multi Series Charts when pulling data from a database, I've been through the examples and have stepped through this code a 1000 times since yesterday, but I can't figure out why I'm not getting any data. The chart displays, buts it has not data. No errors, just no data. This is what I'm trying to use, if anybody has any ideas it would be greatly appreciated. Public Function ComputerInventory() As String Dim xmlData As New StringBuilder() Dim categories As New StringBuilder() Dim peopleTotal As New StringBuilder() Dim computerTotal As New StringBuilder() xmlData.Append("<chart caption='Computer Inventory' showLabes='1' >") categories.Append("<categories>") computerTotal.Append("<dataset seriesName='Computer Total'>") peopleTotal.Append("<dataset seriesName='People Total'>") Dim conn As SqlConnection Dim comm As SqlCommand Dim rdr As SqlDataReader Dim connString As String = ConfigurationManager.ConnectionStrings("DPS").ConnectionString conn = New SqlConnection(connString) comm = New SqlCommand("test", conn) conn.Open() Dim ArraySize As Integer = 11 Dim arrData(ArraySize, 2) As String rdr = comm.ExecuteReader() Dim u As Integer = 0 While (rdr.Read And u < ArraySize) arrData(u, 0) = rdr("period") arrData(u, 1) = rdr("comp") arrData(u, 2) = rdr("fte") u += 1 End While rdr.Close() conn.Close() Dim i As Integer = 0 For i = arrData.GetLowerBound(0) To arrData.GetUpperBound(0) categories.Append("<category name= '" & arrData(u, 0) & "' />") computerTotal.Append("<set value='" & arrData(u, 1) & "' />") peopleTotal.Append("<set value='" & arrData(u, 2) & "' />") Next categories.Append("</categories>") computerTotal.Append("</dataset>") peopleTotal.Append("</dataset>") xmlData.Append(categories.ToString() & computerTotal.ToString() & peopleTotal.ToString()) xmlData.Append("</chart>") Return FusionCharts.RenderChart("FusionCharts/MSColumn3D.swf", "", xmlData.ToString(), "computerinventory", "600", "300", False, False) End Function