IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Bases de données Delphi Discussion :

xml et delphi et interbase


Sujet :

Bases de données Delphi

  1. #1
    Candidat au Club
    Homme Profil pro
    Développeur informatique
    Inscrit en
    Mai 2012
    Messages
    3
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Moselle (Lorraine)

    Informations professionnelles :
    Activité : Développeur informatique
    Secteur : Enseignement

    Informations forums :
    Inscription : Mai 2012
    Messages : 3
    Points : 3
    Points
    3
    Par défaut xml et delphi et interbase
    Bonjour
    j'ai un fichier xml comme ceci
    Code XML : 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
    <?xml version="1.0"?>
    <ExportXml>
    	<Acheteurs>
    		<Acheteur>
    			<Nom>LOPEZ</Nom>
    			<Prenom>MAX</Prenom>
    			<Adresse/>
    			<Complement/>
    			<CodePostal/>
    			<Ville/>
    			<Pays/>
    			<DateInscription>2012-06-29 19:47:03</DateInscription>
    			<Type>Pour investissement</Type>
    			<TypeRecherche>Région</TypeRecherche>
    			<PaysRecherche>France</PaysRecherche>
    			<VilleRecherche/>
    			<DistanceRecherche/>
    			<Departements/>
    			<Regions>
    				<Region>Lorraine</Region>
    			</Regions>
    			<Type>Vente</Type>
    			<Categories>
    				<Categorie>Appartement</Categorie>
    			</Categories>
    			<BudgetMin/>
    			<BudgetMax/>
    			<SurfaceMin/>
    			<SurfaceMax/>
    			<Financement>1</Financement>
    		</Acheteur>

    Je n'arrive pas à remplir ma base de données surtout au niveau des régions

    Comment faire ?

    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
    NodeClass2 := XMLDocument1.DocumentElement.ChildNodes.getNode(k);
                          i:= DernierAcheteur;
                          For n:=0 to  NodeClass2.ChildNodes.Count -1 do
                           begin
                            NodeClass1 := NodeClass2.ChildNodes.getNode(n);
                            chpsNOMCONTACT := NodeClass1.ChildNodes.Nodes['Nom'].text + ' ' + NodeClass1.ChildNodes.Nodes['Prenom'].text;
                            chpsprenom     := NodeClass1.ChildNodes.Nodes['Prenom'].text;
                            chpsadrcontact := NodeClass1.ChildNodes.Nodes['Adresse'].Text;
                            chpsCPCONTACT  := NodeClass1.ChildNodes.Nodes['CodePostal'].text;
                            chpsvillecontact:= NodeClass1.ChildNodes.Nodes['Ville'].text;
                            chpspays        := NodeClass1.ChildNodes.Nodes['Pays'].text;
                            //chpsTELCONTACT := NodeClass1.ChildNodes.Nodes['Telephone'].text;
                            //chpsEmail      := NodeClass1.ChildNodes.Nodes['Email'].text;
                            chpsdateannonce :=  NodeClass1.ChildNodes.Nodes['DateInscription'].Text;
                            chpsdateannonce := Copy(chpsdateannonce,9,2)+'/'+Copy(chpsdateannonce,6,2)+'/'+Copy(chpsdateannonce,0,4);
                            chpstypetransaction := NodeClass1.ChildNodes.Nodes['Type'].Text;
                            chpstypebien        := StringCorrect(NodeClass1.ChildNodes.Nodes['TypeRecherche'].text);
                            chpspaysrech        := StringCorrect(NodeClass1.ChildNodes.Nodes['PaysRecherche'].text);
                            chpsvillerech       := StringCorrect(NodeClass1.ChildNodes.Nodes['VilleRecherche'].text);
                            chpsdept            := StringCorrect(NodeClass1.ChildNodes.Nodes['Departement'].text);
    Merci d'avance

  2. #2
    Rédacteur/Modérateur
    Avatar de Andnotor
    Inscrit en
    Septembre 2008
    Messages
    5 691
    Détails du profil
    Informations personnelles :
    Localisation : Autre

    Informations forums :
    Inscription : Septembre 2008
    Messages : 5 691
    Points : 13 121
    Points
    13 121
    Par défaut
    La même chose que pour les <Acheteurs>, tu dois faire une boucle sur les <Regions>.

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    var
      Regions :TStringList;
    ...
    for ix := NodeClass1.ChildNodes['Regions'].ChildNodes.Count -1 do
      Regions.Add(NodeClass1.ChildNodes['Regions'].ChildNodes[ix].Text);

Discussions similaires

  1. Réponses: 4
    Dernier message: 23/02/2010, 11h00
  2. [Delphi 2005][INTERBASE] isEmpty toujours faux
    Par Vulcanos dans le forum Bases de données
    Réponses: 2
    Dernier message: 26/03/2005, 20h43
  3. [Delphi 6] Interbase OpenSource 6
    Par dudux dans le forum InterBase
    Réponses: 4
    Dernier message: 18/01/2005, 08h32
  4. Delphi et InterBase : EIBInterBaseError
    Par grincheuse dans le forum InterBase
    Réponses: 6
    Dernier message: 06/12/2004, 15h51
  5. SVP prob Delphi avec interbase
    Par Riri394 dans le forum Bases de données
    Réponses: 6
    Dernier message: 14/06/2004, 16h35

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo