Popolare MsChart tramite un array

[Petra]

Ho fatto delle ricerche nel forum ed in giro, ma vi giuro che quello che ho trovato sin'ora non l'ho proprio capito. In pratica vorrei popolare con degli array un MsChart.

In pratica ho questa query:

 SELECT * FROM NomeTabella WHERE Id = 23 Order By Data Asc

La query appena riportata interroga la seguente tabella:

Data           |  Id  |  TentativiEffettuati 
14/04/2005     23                 4
15/04/2005     23                 6
16/04/2005     23                 3
17/04/2005     23                 7
18/04/2005     23                 11
19/04/2005     23                 9

- Nell'asse delle X vorrei introdurre tutte le date che ritrovo nella query.
- Nell'asse delle Y vorrei introdurre un valore di minimo 0 e massimo 20.

Vi ringrazio anticipatamente per il vostro aiuto.

[LMondi]

Ciao Petra,
ora ho capito la problematica dell'altro post ... .
Ti posto un esempio per attivare il grafico lineare. Per quanto riguarda la scala delle Y la puoi impostare dalle proprietà del grafico, ma ti conviene lasciarla automatica.
Ho dovuto inserire un indice; poi vedi tu come agganciare le array con i valori del DB.

Option Base 1
Private Sub Command1_Click()

' Matrice di acquisizione degli anni:
    Dim VaAnni(1 To 6) As String
' Matrice di acquisizione dei Valori:
    Dim Vay(1 To 6) As Double
    
    Dim a As Single
    Dim sgnCountA As Single

    Form1.MSChart1.RowCount = 6
    Form1.MSChart1.ColumnCount = 1
    
    ' Tipo di Grafico:
    Form1.MSChart1.chartType = 3
    
    sgnCountA = 0
    For a = LBound(VaAnni) To UBound(VaAnni)
        sgnCountA = 1 + sgnCountA
        If sgnCountA = 1 Then
            VaAnni(a) = "14/04/2005"
            MSChart1.Row = 1
            MSChart1.RowLabel = VaAnni(a)
        End If
        If sgnCountA = 2 Then
            VaAnni(a) = "15/04/2005"
            MSChart1.Row = 2
            MSChart1.RowLabel = VaAnni(a)
        End If
        If sgnCountA = 3 Then
            VaAnni(a) = "16/04/2005"
            MSChart1.Row = 3
            MSChart1.RowLabel = VaAnni(a)
        End If
        If sgnCountA = 4 Then
            VaAnni(a) = "17/04/2005"
            MSChart1.Row = 4
            MSChart1.RowLabel = VaAnni(a)
        End If
        If sgnCountA = 5 Then
            VaAnni(a) = "18/04/2005"
            MSChart1.Row = 5
            MSChart1.RowLabel = VaAnni(a)
        End If
        If sgnCountA = 6 Then
            VaAnni(a) = "19/04/2005"
            MSChart1.Row = 6
            MSChart1.RowLabel = VaAnni(a)
        End If
    Next a
    
    sgnCountA = 0
    For a = LBound(Vay) To UBound(Vay)
        sgnCountA = 1 + sgnCountA
        With MSChart1
            .Column = 1
            If sgnCountA = 1 Then
                Vay(a) = 4
                MSChart1.Data = Vay(a)
            End If
            If sgnCountA = 2 Then
                Vay(a) = 6
                MSChart1.Data = Vay(a)
            End If
            If sgnCountA = 3 Then
                Vay(a) = 3
                MSChart1.Data = Vay(a)
            End If
        End With
    ' ... ... ...
    Next a
End Sub

[Petra]

Ti ringrazio per avermi risposto, ma sono riuscita a risolvere ancor prima che tu mi rispondessi...terrò il tuo codice ugualmente per confrontarlo col mio. Graziee!!!