User (Legacy) Posted April 24, 2001 Report Share Posted April 24, 2001 Karen, Hard to tell what you're using to make charts. Here's a routine to take data from an ADO recordset into a chart. Steve Private Sub Form_Load() 'Create variables for ADO Connection and Resultset Dim Conn As ADODB.Connection Dim rs As ADODB.Recordset Dim objChart As ChartfxLib.ChartFX Dim s As Integer Dim v As Integer Set objChart = Me.ChartFX1.Object 'Create variable to hold the Chart FX Default Data provider Dim CfxData As CfxDataAdo 'Create Ado object from the Chart FX ChartFX Data Provider Set CfxData = CreateObject("CfxData.Ado") 'Open the connection Set Conn = CurrentProject.Connection 'Open rs Set rs = New ADODB.Recordset rs.Open "SELECT BDate, Series1, Series2, Series3 FROM tblDATA;", Conn, adOpenKeyset 'Assign the ADO resultset to the ChartFX Data Provider CfxData.ResultSet = rs 'DataType Property: objChart.DataType(0) = CDT_LABEL objChart.DataType(1) = CDT_VALUE objChart.DataType(2) = CDT_VALUE objChart.DataType(3) = CDT_VALUE With objChart 'Let Chart FX take information from the data provider .GetExternalData CfxData .Chart3D = False .Gallery = LINES .Axis(AXIS_Y).ForceZero = False .Axis(AXIS_Y).Min = GetMin(rs, 1) * 0.97 .Axis(AXIS_Y).Max = GetMax(rs, 1) * 1.03 End With ProcExit: Set objChart = Nothing rs.Close Conn.Close Set Conn = Nothing Set rs = Nothing Set CfxData = Nothing End Sub Karen <klwhitlo@unity.ncsu.edu> wrote in message news:2u9PlZLzAHA.1808@sfxserver.softwarefx.com... > I have a record set with multiple groups of data. > > I would like each group represented by a series on the chart. > > Is it possible to assign each series in a chart to a recordset? > > KAren > > Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.
Note: Your post will require moderator approval before it will be visible.