Enregistrer une table Access dans un fichier "XML"

Version imprimable

25/03/2007, 14h19
kmaniche

Enregistrer une table Access dans un fichier "XML"

Bonjour

Bonjour,

Je cherche à enregistrer une table access dans un fichier "XML", et dans un autre programme je cherche à insérer le contenu du fichier "XML" dans une autre table access de même format.

Ya t'il quelqu'un qui a déjà tenter le coup ?

Merci d'avance
25/03/2007, 15h55
kmaniche
Pour l'enregistrement, j'ai utiliser la methode :
Code:

1 2 MaTable -> SaveToFile("c:\\test.xml") ;
Pour la lecture, j'ai utiliser la methode :
Code:

1 2 MaTable2 -> LoadFromFile("c:\\test.xml") ;
Je retrouve bien les enregistrements dans ma table, mais quand je quitte l'application et je relance l'execution, ma table est vide ???:aie:

Ya t'il une explication !?!?
25/03/2007, 19h29
blondelle

Sur le Site un lien sur un tuto qui comporte plusieurs liens, une tres longue lecture :mouarf:

Citation:

http://cafeine.developpez.com/access/tutoriel/excel/
27/03/2007, 11h18
kmaniche

Citation:

Envoyé par kmaniche

Je retrouve bien les enregistrements dans ma table, mais quand je quitte l'application et je relance l'execution, ma table est vide ???:aie:

Ya t'il une explication :aie:
27/03/2007, 13h49
Neilos

Citation:

Envoyé par kmaniche

Ya t'il une explication :aie:

Il y a quoi dans ton fichier XML ? Ca m'étonnerais franchement que le contenu de ton fichier soit du XML...(même si dans ton cas ça ne devrait rien avoir à voir avec le fait que ta table soit vide).

Citation:

Envoyé par Neilos

Il y a quoi dans ton fichier XML ? Ca m'étonnerais franchement que le contenu de ton fichier soit du XML...(même si dans ton cas ça ne devrait rien avoir à voir avec le fait que ta table soit vide).

tu m'étonnes!!!:mouarf: si le savetofile s'organise pr mettre en xml comme un grand, je me suis fait chier pour rien...:pleure:

allez, suis sympa ;)

Code:

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
void __fastcall ThreadExport::XMLExport(TDataSet * source,AnsiString dest)
{
SetMax(source->RecordCount);
 TXpObjModel* DOM = new TXpObjModel(NULL);
 TXpElement* elm;
 TXpElement* subelm;
 
 //Création de la balise XML
 DOM->FormattedOutput = true;
 DOM->Document->AppendChild(DOM->Document->CreateProcessingInstruction("xml","version =\"1.0\""));
 
 //Création de la balise root
 elm = DOM->Document->CreateElement("RootDocument");//ExtractFileName(dest));
 //DOM->Document->AppendChild(elm);
 
 //Ajout des enregistrements
 source->First();
 for (int t = 0; t < source->RecordCount; t++)       // nb d'enregistrements de la requête
    {
       subelm = elm->CreateChildElement("Entry");
       for (int i = 0; i < source->FieldCount; i++)     // ... et son nb de champs
           subelm->CreateChildElement(source->Fields->Fields[i]->DisplayName)
                        ->CreateChildText(source->Fields->Fields[i]->AsString);
       source->Next();
       Synchronize(Progress);
    }
 DOM->Document->AppendChild(elm);
 //Sauvegarde de l'arbre
 DOM->SaveToFile((dest.Pos(ExtractFileExt(".xml")) != 0
                        ?dest.SubString(0,dest.Pos(ExtractFileExt(".xml"))-1)
                        :dest)
                        +".xml");
 delete DOM;
}

A titre d'info, j'utilise XMLPartner

le format du fichier en sortie :
(pas hyper généric, je le conçois)

Code:

1
2
3
4
5
6
7
8
<RootDocument>
  <Entry>
    <nom_du_champ1>    </nom_du_champ1>
    <nom_du_champ2>    </nom_du_champ2>
    <nom_du_champ3>    </nom_du_champ3>
[...]
  </Entry>
</RootDocument>

27/03/2007, 19h53
Neilos

Pas mal, c'est bien XMLPartner je ne connais pas du tout ?
28/03/2007, 09h16
say

Honnetêment, on en est hyper content, il gère les instructions xpath ce qui n'est pas négligeable, relativement simple à utiliser. En fait, il faut surtout bien comprendre la logique XML et notamment le DOM.

En fait, c'est une boîte qui développait ça si je ne m'abuse et qui l'a livrait au monde du libre (on trouve XMLPartner sur sourceForge) lorsqu'elle a fermé.*

voilou...

P.S : désolé pour les posts successifs .:oops: :oops:
28/03/2007, 12h08
Neilos

Xpath ça m'intéresse pas mal...je suis assez familier avec tout ça et j'avoue que le TXMLDocument me gonfle un peu (manque le XPath).

C'est payant comme truc ?

P.S. Pas de pb pour le multipost, comme tu vois c'est rattrapé ;)
28/03/2007, 12h16
say

Ah, le Xpath c'est de la boulette :mouarf:
C'est exactement pour ça que je me suis lancé avec Xmlpartner

absolument pas payant, la socièté qui le commercialisait l'a donné à la communauté.
je m'en sers à tout bout de champ, j'adore (bon j'adore l'XML aussi alors forcèment).

En revanche, en ce qui concerne la maintenance, je pense que c'est assez calme...et j'ai bien peur qu'il soit pas compatible avec BDS
28/03/2007, 12h22
Neilos

J'aime beaucoup le XML moi aussi....
Bon je testerais ça ce week end sous BDS, ou alors va falloir partir à la chasse aux libs gratuites :D

Merci pour l'info !
28/03/2007, 19h09
Fbartolo
Pour répondre à la question posée, avec table cela ne fonctionne pas en lecture (import), mais avec un dataset cela marche bien:
Code:

1 2 ADODataSet1->SaveToFile("C:\\Table.xml",pfXML); ADODataSet1->LoadFromFile("C:\\Table.xml");
Je n'est pas réussi à réutiliser ce code généré en XML pour créer une table avec données, par contre pour remplir une table existante c'est parfait.

Attention quand même aux champsNumAuto indexé car on ne pourra pas les réintégrés!! (champs à banir donc dans cette démarche)
29/03/2007, 14h19
say

le savetofile génére du XML???
C'est quoi le format please?

Ci joint exemple de fichier généré:

Code:

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
45
46
<xml xmlns:s='uuid:BDC6E3F0-6DA3-11d1-A2A3-00AA00C14882'
	xmlns:dt='uuid:C2F41010-65B3-11d1-A29F-00AA00C14882'
	xmlns:rs='urn:schemas-microsoft-com:rowset'
	xmlns:z='#RowsetSchema'>
<s:Schema id='RowsetSchema'>
	<s:ElementType name='row' content='eltOnly' rs:updatable='true'>
		<s:AttributeType name='PS' rs:number='1' rs:nullable='true' rs:maydefer='true' rs:write='true' rs:basetable='TParcMateriel'
			 rs:basecolumn='PS'>
			<s:datatype dt:type='string' dt:maxLength='15'/>
		</s:AttributeType>
		<s:AttributeType name='c1' rs:name='DateCréationSAP' rs:number='2' rs:nullable='true' rs:maydefer='true' rs:write='true'
			 rs:basetable='TParcMateriel' rs:basecolumn='DateCréationSAP'>
			<s:datatype dt:type='dateTime' rs:dbtype='variantdate' dt:maxLength='16' rs:fixedlength='true'/>
		</s:AttributeType>
		<s:AttributeType name='c2' rs:name='DateDernièreModifSAP' rs:number='3' rs:nullable='true' rs:maydefer='true'
			 rs:write='true' rs:basetable='TParcMateriel' rs:basecolumn='DateDernièreModifSAP'>
			<s:datatype dt:type='dateTime' rs:dbtype='variantdate' dt:maxLength='16' rs:fixedlength='true'/>
		</s:AttributeType>
		<s:AttributeType name='Implant' rs:number='4' rs:nullable='true' rs:maydefer='true' rs:write='true' rs:basetable='TParcMateriel'
			 rs:basecolumn='Implant'>
			<s:datatype dt:type='string' dt:maxLength='8'/>
		</s:AttributeType>
		<s:AttributeType name='TypeObjet' rs:number='5' rs:nullable='true' rs:maydefer='true' rs:write='true' rs:basetable='TParcMateriel'
			 rs:basecolumn='TypeObjet'>
			<s:datatype dt:type='string' dt:maxLength='5'/>
 
......................
 
</s:Schema>
<rs:data>
	<z:row Implant='NF007494' TypeObjet='4435' Equipement='10252032' c6='0' DateMiseService='2006-10-31T00:00:00'
		 NomConstructeur='TOKHEIM SOFITAM APPLICATIONS' c13='TPITK' c14='TPITK' EtatEquipement='0' SimpleOuDoubleFace='1'
		 NbLancesBD='0' c19='0' NombreLancesActives='0' AspirationOuRrefoulement='0' c24='0' c25='0' TypePistolet='0'
		 c29='0' PartenaireFacturationGPL='0' TypeEquipementGestion='0'/>
	<z:row Implant='NF007494' TypeObjet='4435' Equipement='10229984' c6='0' DateMiseService='2006-10-31T00:00:00'
		 NomConstructeur='TOKHEIM SOFITAM APPLICATIONS' c13='TPITK' c14='TPITK' EtatEquipement='0' SimpleOuDoubleFace='1'
		 NbLancesBD='0' c19='0' NombreLancesActives='0' AspirationOuRrefoulement='0' c24='0' c25='0' TypePistolet='0'
 
......................
 
		 AspirationOuRrefoulement='0' c24='0' c25='0' TypePistolet='0' c29='0' PartenaireFacturationGPL='0' TypeEquipementGestion='0'/>
	<z:row Implant='NF088627' TypeObjet='4424' Equipement='10347661' c6='0' NomConstructeur='TOKHEIM SOFITAM APPLICATIONS'
		 c13='TPITK' c14='TPITK' EtatEquipement='0' SimpleOuDoubleFace='2' NbLancesBD='0' c19='0' NombreLancesActives='0'
		 AspirationOuRrefoulement='0' c24='0' c25='0' TypePistolet='0' c29='0' PartenaireFacturationGPL='0' TypeEquipementGestion='0'/>
</rs:data>
</xml>

Citation:

Description
Appelez la méthode SaveToFile pour écrire les données d'un ensemble de données client dans un fichier externe afin de les utiliser ultérieurement dans cet ensemble de données ou un autre.
FileName spécifie le nom du fichier externe à utiliser. Si le fichier existe déjà, son contenu est remplacé. Si une chaîne vide est transmise dans le paramètre FileName (ou, dans Delphi, si ce paramètre est omis), les données sont enregistrées dans le fichier spécifié par la propriété FileName .

Format indique le format utilisé lors de l'enregistrement des données : binaire (dfBinary), XML (dfXML) ou XML UTF8 (dfXMLUTF8).

31/05/2007, 17h43
cfdev

Lut,

je suis interessé par la solution d'import avec le Dataset si ca fonctionne...
mais je ne l'ai jamais utilisé, comment faut-il le parametrer ?

merci
31/05/2007, 17h55
Fbartolo

En import tu n'as rien à paramétrer, il suffit que tes champs correspondent:

Code:

ADODataSet1->LoadFromFile("C:\\Table.xml");
31/05/2007, 19h07
say

Citation:

Envoyé par Neilos

J'aime beaucoup le XML moi aussi....
Bon je testerais ça ce week end sous BDS, ou alors va falloir partir à la chasse aux libs gratuites :D

Merci pour l'info !

petit retour tardif, as tu pu tester avec BDS?

tch'o
31/05/2007, 19h20
cfdev

re je suis sous BDS en passant et le simple :

Code:

ADODataSet1->LoadFromFile("C:\\Table.xml");

ne fonctionne pas dans le sens ou je n'ai rien dans ma table sans aucune erreur ?
j'ai ajouté juste un ADODataSet1 sans rien toucher au proprieté

PS: dmg que le Load de ADOtable ne fonctionne pas en ecriture :( ?
31/05/2007, 19h31
Fbartolo

tu met un simple

Code:

SELECT * FROM matable

dans la commandtext de ton adodataset.
et tu active ton dataset
31/05/2007, 19h38
cfdev

Apprement ca fait pareil!

par contre j'ai exporté ma table en xml avec le ADOTable ?! mais je ne pense pas que ca vienne de la...

//--------
No apparement les fichiers xml de sortie sont identique... comprend po :(
31/05/2007, 20h39
cfdev

c'est qd meme bizzard que l'on ne puisse pas enregistrer les valeurs une fois qu'il sont charger dans la Table c fou ca!!

j'ai essayé en faisant un ->Edit() puis ->Post() entre le loadfromfile mais erreur de type NULL en String..!!

:(
31/05/2007, 22h19
say

en revanche ma question portait sur l'utilisation de XMLPartner sous BDS en fait...