1 pièce(s) jointe(s)
[OWC] Deux graphes au lieu d'un seul
Bonjour, je vous expose un souci, en espérant que vous pourrez me le résoudre. Voici mon code :
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
|
dim sql
sql = _
" SELECT " &_
" LEFT (UPPER(tab1.user_opsys),3) as os, " &_
" MONTH (tab2.user_media_inscription_date_time) as mois," &_
" COUNT( DISTINCT tab2.user_media_user_id) as cpt " &_
" FROM tbl_user tab1 JOIN jnt_user_media tab2 ON tab1.user_id = tab2.user_media_user_id " &_
" WHERE DATEDIFF(""mm"", tab2.user_media_inscription_date_time, getdate() ) <= " & nbMois &_
" GROUP BY LEFT (UPPER(tab1.user_opsys),3), " &_
" MONTH (tab2.user_media_inscription_date_time)"
' Connection a la base de donnees
set conn = Server.CreateObject ("ADODB.Connection")
conn.ConnectionTimeout = 60
conn.Open stringConnexion
set rs = conn.execute(sql)
set objChartSpace = Server.CreateObject("OWC10.ChartSpace")
With objChartSpace
.DataSource = rs
.DisplayFieldButtons=false
.HasChartSpaceTitle=True
.ChartSpaceTitle.Caption = "Systeme d'exploitation des abonnes"
.ChartSpaceTitle.font.bold =true
.ChartSpaceTitle.font.size = 10
.ChartSpaceTitle.font.Name = "Tahoma"
.HasMultipleCharts = false
End With
set objChart = objChartSpace.charts.add
set c = objChartSpace.Constants
With objChart
.Type = c.chChartTypeLine
.HasLegend = True
.Legend.Position = c.chLegendPositionTop
.SetData c.chDimSeriesNames, 0, "os"
.SetData c.chDimCategories, 0, "mois"
.SetData c.chDimValues, 0, "cpt"
End With
ImagePath = server.mappath("systeme_exploitation_abonnes.gif")
objChartSpace.ExportPicture ImagePath,"gif", width, height |
L'export marche très bien, j'ai effectivement le graphe voulu, mais j'ai toujours lorsque j'utilise un resultSet une second graphe sur le coté , qui est vide. D'ou peut venir cette erreur ?
Voici l'image en pièces jointes : Pièce jointe 258
Si je mets des tableaux, en revanche, aucun souci.
