graphes?

**zorba49** · 01/03/2006, 11h50

Bonjour,

Je voudrais créer des graphes via des données de ma bdd access et asp
J'ai essayé de télécharger owc10 et 11 sans succées!
comment faire pour savoir si ses composants sont installés sur ma machine?

merci

**Immobilis** · 01/03/2006, 14h58

Si Office est installé dessus il y sont.
Sinon, c'est là : C:\Program Files\Common Files\Microsoft Shared\Web Components
A+

**zorba49** · 01/03/2006, 15h14

alors j'ai office mais aucune trace des com
j'ai cherché de la doc en vain, as-tu une idée d'ou je pourrais en trouver?

merci encore

**Immobilis** · 01/03/2006, 17h35

Il faut Office XP ou 2003.
Sinon, c'est sur le CD d'install. C'est un fichier msi. C'est dispo sur le net.
http://www.google.fr/search?hl=fr&q=...chercher&meta=

**zorba49** · 02/03/2006, 11h10

ca y est, j'ai réussi a télécharger owc10

par contre, impossible de trouver de la doc dessus pour savoir comment faire des graphiques pour un site via un bdd access!
la je galere grave, une idée qq'un?

**Immobilis** · 02/03/2006, 12h28

Il faut l'installer et la doc est créée dans le repertoire je crois

**zorba49** · 02/03/2006, 14h13

vraiment désolé mais c'est la misere
j'ai bien installer owc10 mais je vois rien de plus

ni doc dans program files ...
une fois télécharger et lancer j'ai rien de plus qu'avant cad microsoft office avec des boutons "nouvelles taches, nouveau contact..." ??
je sais vraiment pas ou chercher

help!!

**os_rasta** · 02/03/2006, 16h42

Bonjour,

Je sais pas si ça peut t'aider mais j'ai trouver ça:

Effectuer une connexion à la base de données.
Ouvrir un Recordset contenant les données.
Transformer le Recordset en tableau, avec la fonction GetRows().
Paramétrer éventuellement la taille de l'image, le style de graphique, la couleur,...). Il existe une valeur par défaut pour tous les paramètres
Appeler la fonction ChartAffichage
Voir ci-dessous un exemple d'utilisation.

Propriétés paramétrables

Propriétés Description valeur
par défaut
ChartHauteur Hauteur de l'image 300
ChartLargeur Largeur de l'image
La valeur maximale est de 596 500
ChartStyleBarre Style de barre pour les histogrammes :
0 : rectangle simple
1 : pyramide
2 : pyramide inversée
3 : cylindre
4 : ellipse
5 : flèche vers le haut
6 : rectangle dégradé 0
ChartDispositionHistogramme Disposition des barres d'un histogramme généré à partir d'un tableau à trois colonnes :
0 : aucune
1 : barres côte à côte
2 : barres empilées 0
ChartDegradeFond Mise en place d'un dégradé sur le fond du graphique valeur : true/false false
ChartDirectionDegradeFond Direction du dégradé :
0 : du haut vers le bas
1 : du bas vers le haut
2 : de la gauche vers la droite
3 : de la droite vers la gauche 0
ChartCouleurDebutDegradeFond Couleur de début pour le dégradé vbWhite
ChartCouleurFinDegradeFond Couleur de fin pour le dégradé vbWhite
ChartLegende Booléen permettant d'afficher ou non la légende, valeur true ou false true
ChartPositionLegende Position de la légende par rapport au graphique :
0 : à gauche
1 : à droite
2 : au dessus
3 : au dessous 1
ChartTexteLegende Style du texte de la légende :
0 : Labels uniquement
1 : Valeurs et labels
2 : Labels et valeurs
3 : Pourcentage et label
4 : Label et pourcentage 0
ChartCouleurTextLegende Couleur du texte contenu dans la légende vbBlack
ChartAxeHorizPoliceNom
ChartAxeVertPoliceNom Nom de la police pour le texte des axes. Arial
ChartAxeHorizPoliceTaille
ChartAxeVertPoliceTaille Taille de la police pour les axes. 8
ChartAxeHorizPoliceGras
ChartAxeVertPoliceGras Mettre en gras la police d'un ou des deux axes. valeur true ou false true
ChartAxeHorizPoliceCouleur
ChartAxeVertPoliceCouleur Couleur de la police des axes. vbBlack
ChartAxeHorizMin
ChartAxeHorizMax
ChartAxeVertMin
ChartAxeVertMax Coordonnées minimale et maximale du graphique pour les deux axes
(Si pas de valeur : automatique) Auto
ChartBordure Mise en place d'une bordure autour du graphique. valeur true ou false false
Chart3D Graphique en 3 dimensions
valeur true ou false true
ChartTitreGraphique Titre du graphique. ""
ChartTitreGraphiquePoliceTaille Taille de la police d'écriture pour le titre du graphique 12
ChartTitreGraphiquePoliceNom Nom de la police utilisé pour le titre du graphique Arial
ChartTitreGraphiquePoliceGras Mise en place d'un titre en gras ou non true
ChartTitreGraphiquePoliceCouleur Couleur d'écriture du titre du graphique rgb(0,102,102)

Utilisation de la fonction ChartAffichage:

Pour utiliser ce composant, il faut copier/coller le code ASP ci-dessous dans la page HTML à l'emplacement où devra se trouver le graphique. Les paramètres doivent être définis avant l'appel à la fonction ChartAffichage.
Lors de l'appel, à la fonction trois paramètres doivent lui être passé, ChartAffichage <tableau>, <type de graphique>, <type de tableau> :

tableau : tableau ou se trouve les données nécessaire à la génération du graphique. Il s'agira d'un tableau à deux ou trois colonnes, suivant le type de graphique.
type de graphique : entier permettant de connaitre le type de graphique souhaité.
type de tableau : valeur 0 ou 1 :
0 si le tableau est construit à l'aide d'une requête.
1 si le tableau est construit manuellement

<%
set rs = server.createobject("adodb.recordset")

'Définition de la requête
SQL = "SELECT appLibelle, COUNT([date]) AS Expr1 FROM dbo.QuoiDeNeuf2, dbo.I_APPLI where dbo.QuoiDeNeuf2.idappli = dbo.I_APPLI.APPID GROUP BY appLibelle ORDER BY appLibelle"

rs.open SQL,db

'Conversion du résultat de la requête en tableau
tempArray = rs.GetRows()

'Changement de la taille de l'image
ChartHauteur = 115
ChartLargeur = 250

'On n'affiche pas la légende
ChartLegende = false

'On mets le titre du graphique
ChartTitreGraphique = "Mon graphique"

'Appel à la fonction AfficherGraphique en passant en paramètre le tableau contenant les données ainsi que le type de graphique
ChartAffichage tempArray, 2, 0

'Fermeture du RecordSet
rs.Close

%>

**zorba49** · 03/03/2006, 14h46

Salut
j'ai essayé ton code mais ChartAffichage n'est pas reconnu
peux-tu me dire ou tu as trouvé de la doc dessus?
merci bcp

**Fiquet** · 03/03/2006, 15h23

Microsoft fait toujours des jolies docs CHM. Chez moi ça se trouve ici :

C:\Program Files\Fichiers communs\Microsoft Shared\Web Components\11\1036\OWCDCH11.CHM

Peut-être que le nom de ton dossier est Common Files au lieu de Fichiers communs et le 11 dépend de la version peut-être que tu as que la 10, à voir.

Ensuite tu as dans l'aide une section "Informations sur la programmation" et la tu as tout : objets, méthodes, exemples, etc.

Bonne chance

**Immobilis** · 03/03/2006, 21h50

Fais un copié collé de ceci simplement

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
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
 
<%
Response.ContentType = "image/gif" 
%>
<%
	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)
%>

Si ça marche pas c'est que OWC n'est pas bien installé.
A+

**zorba49** · 06/03/2006, 12h29

salut

j'ai réussi a trouver de la doc sur owc10!!!
j'ai aussi réussi a coder un histogramme grace au code suivant

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
<script language="vbscript">
Sub test()
Dim categories(3)
    Dim values(3)
    Dim chConstants
 
    categories(0) = "Savoir1"
    categories(1) = "Savoir2"
    categories(2) = "Savoir3"
    categories(3) = "Savoir4"
 
    ChartSpace1.Clear
    ChartSpace1.Charts.Add
    Set chConstants = ChartSpace1.Constants
 
    ChartSpace1.Charts(0).SeriesCollection.Add
    ChartSpace1.Charts(0).SeriesCollection.Add
 
    ChartSpace1.Charts(0).SeriesCollection(0).Caption = "evaluation"
 
    ChartSpace1.Charts(0).SeriesCollection(0).SetData chConstants.chDimCategories, chConstants.chDataLiteral, categories
 
    values(0) = 3
    values(1) = 3
    values(2) = 3
    values(3) = 3
 
    ChartSpace1.Charts(0).SeriesCollection(0).Caption = "evaluation2"
    ChartSpace1.Charts(0).SeriesCollection(0).SetData chConstants.chDimCategories, chConstants.chDataLiteral, categories
    ChartSpace1.Charts(0).SeriesCollection(0).SetData chConstants.chDimValues, chConstants.chDataLiteral, values
 
    values(0) = 2
    values(1) = 2
    values(2) = 2
    values(3) = 2
 
 
 
    ChartSpace1.Charts(0).HasLegend = True
    ChartSpace1.Charts(0).Axes(chConstants.chAxisPositionLeft).NumberFormat = "0"
    ChartSpace1.Charts(0).Axes(chConstants.chAxisPositionLeft).MajorUnit = 1
End Sub
</script>

ca marche nickel !!!

mais maintenant mon probleme c'est que je n'arrive pas a affecter une valeur issue d'une fonction a values
exp:

Code :

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

values(0)=Left((AfficheNotesconRMS(session("annee"))(11)/11),4)

Quand je l'affiche via response.write avant la fonction test(), j'ai bien ma valeur 2.81 qui s'affiche mais dans la fonction test() impossible

Savez-vous ou est mon erreur?

encore merci pour toute votre aide

**Immobilis** · 06/03/2006, 13h54

Plutot que de faire ton graph coté client, tu peux le faire côté serveur avec mon exemple.

**zorba49** · 06/03/2006, 15h19

j'ai encore une question, (décidement!)
je suis allé voir sur un autre poste de mon réseau les graphes et ceuxci ne s'affichent pas (croix rouge) donc cela veut certainement dire que owc10 n'est pas installé (?) et si oui, comment faire alors pour que les postes n'ayant pas owc10 affichent qd meme mes graphes?
faut-il faire télécharger automatiquement quelque chose?

merci bcp!!!

**Immobilis** · 06/03/2006, 15h27

Envoyé par Immobilis

Plutot que de faire ton graph coté client, tu peux le faire côté serveur avec mon exemple.

graphes?

ASP

Vue hybride

Discussions similaires

Partager

Partager