Bonjour à toutes et tous.
J'ai une table Access que je voudrais exporter en XML.
La voici:
Le problème, c'est que le format de l'export n'est pas correcte pour moi.
Je voudrais lorsque j'exporte, avoir sur le fichier XML avoir un "mot" (GRDHOTE) et que la colonne E sous ce format:
GRDHOTE 3642,3643,3644,3645,3646,4309, 6704,58,6705,36....
Pouvez-vous m'aider car je ne comprend pas comment faire sous Access.
Merci d'avance
En regardant bien, il devrait avoir cette tête:
Mais je ne sais pas comment faire.Code:<?xml version="1.0" standalone="true"?> -<appSettings> <key>GRDHOTE</key> <value>3642,3643,3644,3645,3646,4309, 6704,58,6705</value> </appSettings>
Bonjour
Aucune idée, mais déjà vous semblez vouloir faire un pivot; vous êtes sur que Access 97 peut faire cela ? (sans même parler d'exportation).
Sur l'utilisation du pivot sur access : https://codes-sources.commentcamarch...liser-un-pivot
Et on peut aussi se demander si Access 97 supporte bien le XML vu que celui ci n'a été défini comme norme qu'en 1998.
Bonjour,
Juste pour une petite remarque, si les données ne sont pas fictives et qu'elle semblent concerner un système de contrôle d'accès, il vaudrait sûrement mieux les anonymiser !
J'ai glissé Chef !
Demander à un modérateur de déplacer vers le forum "Archéologie" peut être ?Envoyé par pm42
Si tu une solution avec un protocole plus jeune, ce suis preneur. Je chercherai à faire évoluer je chimilibilique!
C'est pour le prochain film de Jurassic Futura-Sciences!
On ne sait pas ce que tu veux faire donc c'est compliqué. Ni pourquoi tu utilises un logiciel qui a 23 ans, si tu peux avoir une version plus récente, etc.
Ce que veut dire PM42, c'est plutôt le contraire : Access 97 est tellement antique, il n'est pas sur du tout qu'il puisse exporter en XML.
Accessoirement XML n'est pas un protocole mais une spécification générique de balisage.
Dernière modification par Fustigator ; 28/01/2021 à 16h24.
Bon, il est vrai que je travail avec un dinosaure mais il connait le xml:
C'est une base déjà existante, qui fonctionne très bien grâce "vous" pour certaine chose . Vous m'avez bien aidé.
Mais là le XML j'ai beau chercher sur le net , je ne percute plus rien.
Je suis obliger de transformer cette table pour pouvoir l'importer dans un logiciel et le format m'es imposé.
si je fais un export, là, j’obtiens cela.
ça ne resemble pas au post #2Code:<?xml version="1.0" encoding="UTF-8"?> <dataroot xmlns:od="urn:schemas-microsoft-com:officedata" generated="2021-01-28T20:48:21"> <GRDHOTE> <GRDHOTE>3642</GRDHOTE> </GRDHOTE> <GRDHOTE> <GRDHOTE>3643</GRDHOTE> </GRDHOTE> <GRDHOTE> <GRDHOTE>3644</GRDHOTE> </GRDHOTE> <GRDHOTE> <GRDHOTE>3645</GRDHOTE> </GRDHOTE> <GRDHOTE> <GRDHOTE>3646</GRDHOTE> </GRDHOTE> <GRDHOTE> <GRDHOTE>4309</GRDHOTE> </GRDHOTE> <GRDHOTE> <GRDHOTE>6704</GRDHOTE> </GRDHOTE> <GRDHOTE> <GRDHOTE>58</GRDHOTE> </GRDHOTE> <GRDHOTE> <GRDHOTE>6705</GRDHOTE> </GRDHOTE> <GRDHOTE> <GRDHOTE>3653</GRDHOTE> </GRDHOTE> <GRDHOTE> <GRDHOTE>4400</GRDHOTE> </GRDHOTE> <GRDHOTE> <GRDHOTE>3655</GRDHOTE> </GRDHOTE> <GRDHOTE> <GRDHOTE>3656</GRDHOTE> </GRDHOTE> </dataroot>
Dernière modification par anthonydu62 ; 28/01/2021 à 19h54.
Le pivot ne serait pas plus pour des tableau croisé?
Du peux que j'ai lu, il n'est pas possible de choisir le format d'export XML sauf à passer par de la programmation en Visual Basic.
Le pivot n'est pas prévu pour les tableaux croisés?
Et cela donnerai quoi?
tu interroges ta base sur la colonne et tu formates toi-même le fichier
Il n'y a pas un moyen de le faire en "automatique" (bouton)
Le "pivot" est une opération standard (c'est à dire non spécifique à un type de plateforme) sur les base données visant à transformer une colonne en lignes. Ce que tu souhaites faire, si j'en juge par l'exemple donné.
Ce que cela veut dire sur ACCESS (qui est trèèèèèès éloigné des standards en la matière), je n'en ai en revanche pas la moindre idée.
Apparemment non. C'est peut-être possible avec des versions plus récentes d'Access mais en définissant son xsd (schéma XML) ce qui n'est pas forcément plus simple qu'un peu de code VB ou autre.
C'est ce que j'ai compris des articles lus sur le sujet. Il est possible que je me trompe ceci dit.
Umfred, tu connais mets connaissance!
Là tu viens de me faire mal au bulbe.
HELP
depuis access, créer un module VBA, et mettre le code (en remplaçant la table et la colonne par leur nom ) pour avoir avoir dans chaine, la forme des données que tu veux.
Restes ensuite à un créer ton fichier xml à la main comme si c'était un fichier texte
Code:Sub test() Dim rs As Recordset Dim chaine As String Set rs = CurrentDb.OpenRecordset("SELECT colonne FROM Table1") Do While Not rs.EOF Debug.Print rs!colonne chaine = chaine & rs!colonne & "," rs.MoveNext Loop rs.Close Debug.Print chaine chaine = Left(chaine, Len(chaine) - 1) Debug.Print chaine End Sub
Merci Umfred c'est nickel.
Donc avec ce que tu m'as fait, voici la solution final:
Code:Private Sub Commande2_Click() Dim rs As Recordset Dim chaine As String Dim GestionFichier As New Scripting.FileSystemObject Dim FichierTexte As Scripting.TextStream Set rs = CurrentDb.OpenRecordset("SELECT GRDHOTE FROM GRDHOTE_tbl") Do While Not rs.EOF Debug.Print rs!GRDHOTE chaine = chaine & rs!GRDHOTE & "," rs.MoveNext Loop rs.Close Debug.Print chaine chaine = Left(chaine, Len(chaine) - 1) Debug.Print chaine Set FichierTexte = GestionFichier.CreateTextFile("C:\Users\33621\Documents\zzz.xml") 'Ecriture FichierTexte.WriteLine ("<?xlm version=""1.0"" standalone=""true""?>") FichierTexte.WriteLine ("-<appSettings>") FichierTexte.WriteLine ("<key>GRDHOTE</key>") FichierTexte.WriteLine ("<value>") & (chaine) & ("</value>") FichierTexte.WriteLine ("</appSettings>") FichierTexte.Close End Sub
Dernière modification par JPL ; 02/02/2021 à 13h38. Motif: Remplacement des balises Quote par Code
Et on obtient exactement ce qui est noté en post #2
J'ai mis la solution, cela peut toujours servir.
tu peux enlever ou mettre en commentaire les lignes Debug.print (c'est pour un affichage dans la fenêtre exécution de VBA pour faire du debogage)
