Discussion :

[irenee]

Bonjour, je vous expose un souci, en espérant que vous pourrez me le résoudre. Voici mon code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Si je mets des tableaux, en revanche, aucun souci.

[Immobilis]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
set objChart = objChartSpace.charts.add

[irenee]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
set objChart = objChartSpace.charts.add

Une précision svp.
Si je commente cette ligne, une erreur est produite.
Et cela impliquerait d'enlever les lignes suivantes, mais elles sont nécessaires à la création du graphe.

[Immobilis]

En verifiant, je fais

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Set NewChart = Server.CreateObject("OWC10.ChartSpace")
NewChart.Charts.add
With NewChart.Charts(0)
 .HasLegend = True
 .Legend.Position = chConstants.chLegendPositionTop
end with

C'est un petit peu différent de

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

set objChart = objChartSpace.charts.add

Voici un exemple basique

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
<%
 Dim NewChart
 Dim chConstants
 Set NewChart = Server.CreateObject("OWC10.ChartSpace")
 Set chConstants = NewChart.Constants
 
 NewChart.Charts.add
 NewChart.Charts(0).SeriesCollection.Add.Name = "NR"
 NewChart.Charts(0).SeriesCollection("NR").Caption = "Margin"
 NewChart.Charts(0).SeriesCollection("NR").Type = chConstants.chChartTypeColumnClustered
 NewChart.Charts(0).SeriesCollection("NR").Marker.Style = chConstants.chMarkerStyleCircle 'chMarkerStyleStar chMarkerStyleSquare chMarkerStyleCircle
 NewChart.Charts(0).SeriesCollection("NR").Interior.Color = "green"
 NewChart.Charts(0).SeriesCollection("NR").line.Color = "green"
 NewChart.Charts(0).SeriesCollection.Add.Name = "CI"
 NewChart.Charts(0).SeriesCollection("CI").Ungroup True
 NewChart.Charts(0).SeriesCollection("CI").Type = chConstants.chChartTypeLineMarkers
 NewChart.Charts(0).SeriesCollection("CI").Marker.Style = chConstants.chMarkerStyleSquare 'chMarkerStyleStar chMarkerStyleSquare chMarkerStyleCircle
 NewChart.Charts(0).SeriesCollection("CI").Caption = "CI%"
 Dim oAxis2
 Set oAxis2 = NewChart.Charts(0).Axes.Add(NewChart.Charts(0).SeriesCollection("CI").Scalings(chConstants.chDimValues))
 oAxis2.Position = chConstants.chAxisPositionRight
 oAxis2.HasMajorGridlines = False
 oAxis2.NumberFormat = "* #,##0;(* #,##0);#-"
 oAxis2.HasTitle = True
 oAxis2.Title.Caption = "CI %"
 oAxis2.Title.Font.Bold = FALSE
 NewChart.Charts(0).SeriesCollection("NR").SetData chConstants.chDimValues, chConstants.chDataLiteral, "10,20,30,40,50"
 NewChart.Charts(0).SeriesCollection("CI").SetData chConstants.chDimValues, chConstants.chDataLiteral, "50,40,30,20,10"
 Response.BinaryWrite NewChart.GetPicture("GIF", 500, 300)
%>

A+