Howdy, Stranger!

It looks like you're new here. If you want to get involved, click one of these buttons!

Categories

MS Chart

Hello
Ive been beating my head against the wall trying to get this MS Chart control to work with my VB 6 and Access 2k and ADO. It just shows the chart but with default values not what I have in my Access db. And, the recordset and connection object is not being created. I suppose that's the real problem

I have my db in Access set up like...
Year MS Sun Oracle Linux
2000 100 200 300 450
2001 200 250 325 500
2002 150 350 425 375
2003 225 400 325 500
2004 275 500 425 475

and code
bas module
Option Explicit
Public cn As New ADODB.Connection
Public rs As New ADODB.Recordset

'Make Database Connection
Public Sub main()
Dim path As String
path = App.path & "myChart.mdb"
cn.ConnectionString = "provider=Microsoft.Jet.OLEDB.4.00;data source=" & path & ";"
cn.Open
If cn.State = adStateClosed Then
MsgBox "Connection Error", vbCritical, "Error!"
End
Else
Debug.Print "Connection Object Created"
cn.CursorLocation = adUseClient
End If

'Setting Initial data for recordset
rs.Open "Select * from tblCategory", cn, adOpenDynamic, adLockOptimistic
Debug.Print "Recordset Object Created"

Call Form1.Show
End Sub

standard form
Private Sub Form_Load()
MSChart1.ShowLegend = True
MSChart1.Title = "Companies Past Years Results"
Set MSChart1.DataSource = rs
MSChart1.Refresh
End Sub

kudos to anyone solving this

Hal

Comments

  • JomacJomac Member Posts: 231
    Try removing the extra 0 from the provider string:

    You have:
    [code]Microsoft.Jet.OLEDB.4.00[/code]
    Should be:
    [code]Microsoft.Jet.OLEDB.4.0[/code]
    ______
    [size=2][b][blue]J[/blue]omac.[/b][/size]

Sign In or Register to comment.