Access Results in a Chart

[penkomitev]

Hi!
I decided to try this Microsoft Charts Control. I couldn't decide what type of program to write and at last I started writting a program, where you put your jump results. This is the same exercise as in the classes of PE. Well, I wrote the part where I show the results through FlexGrid. But I have a problem... My chart's first row and my chart's last row are SAME! If there are 7 records in the database, the first row is R7 and the last row is also R7. My code is written below.

Data1.DatabaseName = App.Path & "\jumps.mdb"
Data1.RecordSource = "jumps"
Data1.Refresh
 
 Dim rs As New ADODB.Recordset, sql As String
   sConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\jumps.mdb;"
   sql = "SELECT COUNT(*) FROM jumps;"
   rs.CursorLocation = adUseClient
   rs.Open sql, sConn, adOpenKeyset, adLockPessimistic, adCmdText
   rs.MoveLast
 
   maxi = rs.Fields(0).Value
 
    rs.Close
 
   Set rs = Nothing
 
Text1.Text = maxi
 
 
MSChart1.RowCount = maxi
 
For I = 1 To maxi
 
 
MSChart1.RowLabel = "R" & I
 
 
MSChart1.Data = MSFlexGrid1.TextMatrix(I, 2)
MSFlexGrid1.TextMatrix(I, 0) = I
 
Next I
 

[penkomitev]

I can't agree that no one knows...