[VB6] MsChart

[nikeddy]

Salve a tutti ho un dilemma...

io faccio alcune select, per tirare fuori dei dati da un db, soltanto che :

1) devo creare un grafico dalla somma dei valori ricercati

 Set gRsAffitti = New ADODB.Recordset
    gsSQL = "SELECT * FROM sys_tbl "
         gRsAffitti.Open gsSQL, gCnDatabase
 
                Do While gRsAffitti.EOF = False

                scerca = gRsAffitti("data")
                
  icontailtutto = 0
                     Set gRscalcoliamo = New ADODB.Recordset
                     gsSQL = "SELECT * FROM " & scerca & " WHERE dvd= " & idvd & ""
                gRscalcoliamo.Open gsSQL, gCnDatabase
 
                 Do While gRscalcoliamo.EOF = False


 iconta = iconta + 1
  
  
         gRscalcoliamo.MoveNext
    
    Loop

    ipercentuale = (Val(icontadvd) / 100) * iconta

icontailtutto = ipercentuale + icontailtutto

 
 ipercentuale = 0
         gRscalcoliamo.Close
         
gRsAffitti.MoveNext
  
Loop
gRsAffitti.Close

End Sub

praticamente, io conto quanti valori ci sono nel db,in un determinato mese, e li metto in una variabile, dopo cambio il mese e ricerco quanti valori ci sono in un altro determinato mese, e li metto in una variabile.

io vorrei capire, come faccio a creare un grafico per ogni valore che tiro fuori (icontailtutto) rapportato (asse X) con i mesi , cosi da tirare fuori ogni mese, quanti valori ci sono.

e devo crearci il grafico...

come posso fare?

[Grumpy]

Per contare i record in SQL esiste la funzione Count().

[nikeddy]

ho capito, quindi potrei contarli con un


grscalcoliamo.recordcount?

ottimo!

e ora come faccio a crearci un grafico?

sopra alla prima select , filtro una tabella con le tabelle da analizzare, sotto poi ricerco quella tabella cercata con il select prima, e raccolgo il totale di dati presenti.

praticamente nella prima tabella che cerco trovo 100 record
nella seconda per esempio ne trovo altri 100

nella terza trovo 200 record.

come faccio a creare un grafico cosi :

1) nome tabella - Tot Record
2) nome tabella - Tot Record

grazie

[nikeddy]

Praticamente il mio problema e' che non capisco come creare una matrice per dare poi i dati al grafico.

se io dopo la select sopra dove scorro le tabelle , devo per ogni giro che fa' , quindi per ogni tabella che calcola, tirare fuori il dato , e inserirlo in una matrice che va ad alimentare il grafico.
Con questo code, come faccio a mettere la matrice?

   
Dim arrData(12, 0 To 12)
    'Imposta le etichette della prima serie.
    arrData(0, 1) = "Gen"  (o ancora meglio il primo valore che trova in grsaffitti)
    arrData(1, 1) = "Feb"
    arrData(2, 1) = "Mar"
arrData(3, 1) = "Apr"
arrData(4, 1) = "Mag"
arrData(5, 1) = "Giu"
arrData(6, 1) = "Lug"
arrData(7, 1) = "Ago"
arrData(8, 1) = "Set"
arrData(9, 1) = "Ott"
arrData(10, 1) = "Nov"
arrData(11, 1) = "Dic"

arrData(0, 2) = icontailtutto (relativo alla 1° tabella)
arrData(1, 2) = icontailtutto  (relativo alla 2° tabella)
arrData(2, 2) = icontailtutto (relativo alla 3° tabella)
arrData(3, 2) = icontailtutto (relativo alla 4° tabella)
arrData(4, 2) = icontailtutto(relativo alla 5° tabella)
arrData(5, 2) = icontailtutto(relativo alla 6° tabella)
arrData(6, 2) = icontailtutto(relativo alla 7° tabella)
arrData(7, 2) = icontailtutto(relativo alla 8° tabella)
arrData(8, 2) = icontailtutto(relativo alla 9° tabella)
arrData(9, 2) = icontailtutto(relativo alla 10° tabella)
arrData(10, 2) = icontailtutto(relativo alla 11° tabella)
arrData(11, 2) = icontailtutto(relativo alla 12° tabella)


MSChart1.ChartData = arrData

[Grumpy]

Originariamente inviato da nikeddy
ho capito, quindi potrei contarli con un

grscalcoliamo.recordcount?

Veramente io avevo parlato della funzione Sql Count, non della proprietà RecordCount.

[nikeddy]

ok.. puoi spiegarmela?

[nikeddy]

e cmq il principale problema e' la creazione del grafico!

come lo creo?

come genero la matrice per mettere dentro quelle due estrazioni dal db?

[nikeddy]

nulla?

[nikeddy]

up!

[alka]

Non fare troppi up, o almeno aggiungi qualche dettaglio riguardo il problema, poiché se non ricevi risposta è molto probabile che ciò sia dovuto al fatto che hai delegato troppo al forum o che ci sono delle imprecisioni.

Posta il codice aggiornato e riporta altri dettagli.