how to use mschart in my program

[deepaangle]

hi can anyone help me, i'm having problem with mschart. i want to draw graph according to value in the Graph_Details table.i dont know where to start writing code and how. i have 0% knowledge on mschart and the coding. can someone help me.


My code:

Private Sub Timer2_Timer()
Dim myvari As Integer
Dim StartTime As Integer
Dim StopTime As Integer
Dim Store As Integer
Dim timeGap As Integer
Dim TimeEnd As String
Dim avgSpeed As Long
Dim NoOfCars As Integer
 
    Counter = Counter + 1
    If Counter = 300 Then
        Timer2.Enabled = False
 
        TimeEnd = Format(Now, "hh:mm:ss")
 
        strSql = "SELECT MAX(TimeGap) FROM Graph_Details"
 
        DataRs.Open strSql, DE.Conn, adOpenForwardOnly, adLockReadOnly
 
        If DataRs.RecordCount > 0 Then
            If Not IsNull(DataRs(0)) Then
                timeGap = DataRs(0) + 1
            Else
                timeGap = 1
            End If
        Else
            timeGap = 1
        End If
 
        DataRs.Close
 
        strSql = "SELECT TOP 150 TimeOut, Speed FROM Car_INFO ORDER BY ID DESC"
 
        'MsgBox strSql
 
        DataRs.Open strSql, DE.Conn, adOpenForwardOnly, adLockReadOnly
 
        If DataRs.RecordCount > 0 Then
 
        NoOfCars = 0
        avgSpeed = 0
 
        For i = 0 To DataRs.RecordCount - 1
            If Not DataRs(0) = "" Then
                NoOfCars = NoOfCars + 1
                avgSpeed = avgSpeed + DataRs(1)
            End If
            DataRs.MoveNext
 
        Next i
 
        avgSpeed = avgSpeed / NoOfCars
 
        End If
 
        DataRs.Close
 
        strSql = "INSERT INTO Graph_Details (TimeStart, TimeEnd, AverageSpeed, NoOfCars, TimeGap) " & _
                    " VALUES ('" & lblTimeStart.Caption & "','" & TimeEnd & "','" & avgSpeed & "'," & _
                    " '" & NoOfCars & "'," & timeGap & ")"
 
                    MsgBox strSql
 
                    DE.Conn.Execute strSql
        Timer2.Enabled = True
        Counter = 0
        lblTimeStart.Caption = Format(Now, "hh:mm:ss")
    End If
 
End Sub

[debasisdas]

please find a related discussion here for reference.