Discussion :

[Kastejon]

Bonjour

C'est mon premier e.mail et mon français un peu terrible.
Ci joint interaction access - xml pour afficher graphique html.

Le fichier contient le dossier de "Recursos" où est le fichier xml et html,
la base de données access ne fonctionne pas sans le dossier.

Le graphique est visualiser grâce à un contrôle Web Browser.

Le module vba pour générer le xml;

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
Dim Rst As DAO.Recordset, cadena As String
Dim stsql As String, Status As String, total As String
Dim uno As Integer, rutaarchivo As String
 
rutaarchivo = CurrentProject.Path & "\Recursos\charts\ampie\ampie3\ampie_data.xml"
uno = FreeFile
 
Open rutaarchivo For Output As #uno
cadena = "<?xml version='1.0' encoding='UTF-8'?>"
Print #uno, cadena
cadena = "<pie>"
Print #uno, cadena
stsql = "select * from sql_calendarStatusCount Order By title"
Set Rst = CurrentDb.OpenRecordset(stsql)
If Rst.EOF = False Then 'Si el recordset devuelve registros ==>
Rst.MoveLast
Rst.MoveFirst
Do Until Rst.EOF 
 
   Status = Rst!title
   total = Rst!total
   cadena = "<slice title=""" & Status & """" & " " & "pull_out=""true"">" & total & "</slice>"
   Print #uno, cadena
              Rst.MoveNext
              Loop
 
End If
Rst.Close
Set Rst = Nothing
cadena = "</pie>"
Print #uno, cadena
Close #uno

L'idée est de mettre à jour la table "documentation" et d'afficher le champ "Status" sur le graphique.

J'espère que c'esT une amélioration de vos conceptions.
Cdte

[naphta]

Ola Senior ,

Je trouve l'idée excellente, un controle flash + du XML + le web browser





hasta la vista

[naphta]

Ola Kastejon,

Attention ampie est théoriquement payant sinon faut un lien sur leur site.

Ceci dit cela n'a rien à voir avec msgraph ... mais pour la re-distribution le prix demandé refroidit un peu.

Évidement, si je ne me trompe pas l'éditeur est amcharts.

à bientôt