Jump to content
Software FX Community

CD_DATA and CD_PERSERIESATTRIBUTES


Software FX
 Share

Recommended Posts

Hello, 

Your code probably needs to include: DC_DATA or CD_PERSERIESATTRIBUTES

Even though you are clearing all the data, some of the series attributes may remain causing your chart created from the next recordset to fail.

-----Original Message-----

From: Adam Furgal [ mailto:afurgal@online-can.com]

Posted At: Thursday, July 13, 2000 2:57 PM

Posted To: General

Conversation: Run-time error '-2147417948' (80010180)': Method

'CloseData' of object 'IChartFX' failed

Subject: Run-time error '-2147417948' (80010180)': Method 'CloseData' of

object 'IChartFX' failed

Hi,

I have a chartFX 98 object on a form in VB 6.0 SP3. I am using it to make a

bunch of charts, then export them to graphic files.

I have my one object and every time I need a new chart, I just do a

cleardata, then set all of the points on the chart to the points in my new

recordset. The problem I have been having lately, is the following error:

Run-time error '-2147417948' (80010180)':

Method 'CloseData' of object 'IChartFX' failed

This error seems to be almost random, but there are certain recordsets that

seem to give the error more often. I am not binding the recordset to the

chart, but manually setting hte points:

.OpenDataEx COD_VALUES, 3, rsData.RecordCount

While Not rsData.EOF

'Set the high value

If IsEmptyString(rsData.Fields("daily_high")) Or

(rsData.Fields("daily_high") = 0) Then

.ValueEx(HLC_HIGH, iLcv) =

rsData.Fields("settlement_price")

Else

.ValueEx(HLC_HIGH, iLcv) = rsData.Fields("daily_high")

End If

'Set the low value

If IsEmptyString(rsData.Fields("daily_low")) Or

(rsData.Fields("daily_low") = 0) Then

.ValueEx(HLC_LOW, iLcv) =

rsData.Fields("settlement_price")

Else

.ValueEx(HLC_LOW, iLcv) = rsData.Fields("daily_low")

End If

'Set the close value

.ValueEx(HLC_CLOSE, iLcv) =

rsData.Fields("settlement_price")

'Label the Y axis

.Axis(AXIS_X).Label(iLcv) =

Format(rsData.Fields("Eff_Date"), "mmm d yyyy")

iLcv = iLcv + 1

ProgressBarChart.Value = iLcv / rsData.RecordCount * 100

sLastDate = Format(rsData.Fields("Eff_Date"), "mmm d yyyy")

rsData.MoveNext

Wend

.CloseData COD_VALUES

I someone can help!

Link to comment
Share on other sites

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.

Guest
Reply to this topic...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

 Share

×
×
  • Create New...