graph connect with micrsoft access

[siyoyok007]

Hye...
I want to draw a graph which connected to data in microsoft access. How to do it, and what component should i include.
thnx..

[Killer42]

Hye...
I want to draw a graph which connected to data in microsoft access. How to do it, and what component should i include.

That sounds like a job for the Microsoft Chart Control (which is what to look for in the component list).

[siyoyok007]

Thnx for the reply... and here i want to share the codes with others.... simple graph...i like it

component needed... mschart

Option Explicit
' Be sure to set a reference to the Microsoft ActiveX Data
' Objects 2.0 Library.
Private rsProducts As New ADODB.Recordset
Private cn As New ADODB.Connection
 
Private Sub Form_Load()
   Dim strQuery As String ' SQL query string.
   Dim a As Integer
   Dim b As String
 
   ' First change the path to a valid path for your machine.
   cn.ConnectionString = _
   "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=your database location;Persist Security Info=False"
 
   ' Open the connection.
   cn.Open
 
   ' Create a query that retrieves only four fields.
   strQuery = "SELECT Date, Sum from Query1"
   ' Open the recordset.
   rsProducts.Open strQuery, cn, adOpenKeyset
   ' Set the DataSource to the recordset.
   With MSChart1
     .ShowLegend = True
     Set .DataSource = rsProducts
 
     Dim X() As Variant
 
   End With
 
   If a > 0 Then
        ReDim X(1 To a, 1 To 2)
        Dim i As Integer
        i = 1
        While Not rsProducts.EOF
            X(i, 1) = rsProducts("Date") 'Date field in Query1 
            X(i, 2) = rsProducts("Sum") 'Sum field in Query1
            i = i + 1
            rsProducts.MoveNext
        Wend
        MSChart1.ChartData = X
    End If
 
End Sub