Discussion :

[broise]

Bonjour à tous,

Je débute en vb...

J'ai une table avec une dizaine de colonnes.
L'objectif est de convertir la base en xml pour publication web.

1. Si le champs contient des caractères : "balise xml ouvrante" & "le contenu du champ" & "balise xml fermante"
2. Si le champ est vide, ne rien faire et passer au champ suivant.

Après cela, je voudrai exporter la concaténation de toutes les lignes de la base dans un fichier .xml

Il parait que c'est pas bien compliqué, mais...

Merci d'avance de votre aide.

[Jean-Philippe André]

Bonjour,
l'idée ici est de concaténer tout le contenu de ton fichier xml dans une chaine de caractères (type string).
1/ lire chacun des enregistrements de la table
2/ concaténer le contenu dans une variable string
3/ écrire le tout dans un fichier XML

ca donnerait un code de cet acabit :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Dim RS as RecordSet
Dim strSQL as String
Dim Result as String
Result= ""
strSQL = "SELECT * FROM MaTable;"
Set RS = CurrentDb.OpenrecordSet(strSQL)
Do Until RS.EOF '1.
    If Len(RS.Fields("MonChampTexteAveclesBalises").Value) > 0 Then 'on s'assure qu'il existe du texte dans le champ (petit 2 de ta question)
          Result = Result & RS.Fields("MonChampTexteAveclesBalises").Value '2.
    End If
Loop
FonctiondeTonChoixPourEcrireDansUnFichier (Result, NomduFichierXML) '3.

[broise]

Merci bien.

Cependant, je ne sais pas si j'ai bien tout compris.

Code :

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

MonChampTexteAveclesBalises

Correspond au nom de mes champs un par un, mais où dois-je rajouter les balises ?

Dans mes différents champs, je n'ai que le contenu texte. Les balises sont ajoutées dans le programme.

Code :

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

1
2
3
4
<titre>Mon champ 1</titre>
<soustitre>Mon champ 2</soustitre>
<para>Mon paragraphe</para>
...

Je ne sais pas si c'est très clair...
Merci encore

[Jean-Philippe André]

peux-tu nous indiquer le nom des champs qui contiennent les informations qui doivent figurer dans le fichier xml final stp ?
les balises y figurent-elles ou bien doit-on les rajouter par le code ?

[broise]

Bonjour jpcheck,

Merci d'avance pour le coup de main.

Voici les infos.
Nom de la table : GOLD_DICO

Champs :

1. RevStat
2. CC
3. FC
4. MA
5. Term
6. POS
7. AM
8. AOS
9. Notes
10. Examples

Les balises ne figurent pas dans les champs. Elles doivent donc être ajoutées par le code.

Par contre, tous les champs ne sont obligatoirement renseigner à chaque fois donc quand un champs est vide, il faudrait que les balises n'apparaissent pas dans le fichier xml de sortie.

Merci encore.

[Jean-Philippe André]

d'accord,
comme je suppose que le nom du champ correspond au nom qui doit apparaître dans les balises xml, je propose ceci :

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
Dim RS as RecordSet
Dim strSQL as String
Dim Result as String
Dim i as Integer
Result= ""
strSQL = "SELECT * FROM MaTable;"
Set RS = CurrentDb.OpenrecordSet(strSQL)
Do Until RS.EOF '1.
    For i = 1 To RS.Fields.Count
         If Len(RS.Fields(i).Value) > 0 Then 'on s'assure qu'il existe du texte dans le champ (petit 2 de ta question)
                Result = Result & "<" & RS.Fields(i).Name & ">" & RS.Fields(i).Value & "</" & RS.Fields(i).Name &">" '2.
        End If
   Next i
Loop
FonctiondeTonChoixPourEcrireDansUnFichier (Result, NomduFichierXML) '3.