Jump to content
Software FX Community

Run-time error '-2147417948' (80010180)': Method 'CloseData' of object 'IChartFX'failed


User (Legacy)
 Share

Recommended Posts

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...