Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
1722 connectés 

  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  Récupérer des données d'un fichier xml

 



 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

Récupérer des données d'un fichier xml

n°2210201
cosettesm
Posté le 13-11-2013 à 18:09:58  profilanswer
 

Bonjour,
 
j'ai une application en vb6 qui fait un certain traitement liée à la base SQL, toutes les bases doivent être liées à ce traitement là.
Alors, pour que mon application soit capable de se connecter aux plusieurs bases : la chaines de connexion doit être paramétrable(Nom du serveur, Nom de la base, login et password)
là j'ai crée avec un code vb un fichier xml contenant toutes les chaines de connexion. Mais j'ai pas pu récupérer les données de ce fichier xml.
 
j'ai procédé comme suit :  
mon code vb:

Private Sub cmdLoadXML_Click()
Dim sXmlFile As String
sXmlFile = "C:\dataP.xml"
 
Dim oXML As New DOMDocument
oXML.Load sXmlFile
 
If oXML.parseError.reason <> "" Then
MsgBox oXML.parseError.reason
Exit Sub
End If
 
Dim oNode As IXMLDOMNode
Dim oAttr As IXMLDOMAttribute
 
For Each oNode In oXML.documentElement.childNodes
Set oAttr = oNode.Attributes.getNamedItem("vconfirm" )
MsgBox oNode.nodeName & ": " & _
oNode.Text
Next oNode
 
    Set oNode = oXML.selectSingleNode("//database//servername" )
    If Not oNode Is Nothing Then
    Me.txtServerName.Text = oNode.Text
    End If
 
    Set oNode = oXML.selectSingleNode("//database//databasename" )
    If Not oNode Is Nothing Then
    Me.txtDataBaseName.Text = oNode.Text
    End If
 
    Set oNode = oXML.selectSingleNode("//database//login" )
    If Not oNode Is Nothing Then
    Me.txtLogin.Text = oNode.Text
    End If
 
    Set oNode = oXML.selectSingleNode("//database//pwd" )
    If Not oNode Is Nothing Then
    Me.txtPwd.Text = oNode.Text
    End If
 
End Sub

 
à l'éxecution il m'empêche de lire tout le fichier un message s'affiche : "Un seul élément de niveau supérieur est autorisé dans un document XML"
 
Comme j'ai compris il ne récupère qu'un seul niveau dans un fichier xml!!!
 
SVP j'ai besoin d'aide .
 
Après cette étape et lors de la récupération de la chaine de connexion l'application doit se connecter sur une base, puis faire le traitement dont j'ai parlé.
Merci d'avance.

mood
Publicité
Posté le 13-11-2013 à 18:09:58  profilanswer
 

n°2210234
lasnoufle
La seule et unique!
Posté le 14-11-2013 à 04:31:59  profilanswer
 

Salut, je vais faire mon chieur, mais vu que tu dis avoir cree le fichier toi-meme, pourquoi XML?  
Utilises un fichier CSV (ou equivalent si un de tes parametres peut contenir des virgules, fais toi juste un separateur maison au lieu de la virgule): tu recuperes les lignes une par une, tu splittes sur le separateur et hop t'as fini.
Je parie egalement que ca serait beaucoup plus simple a faire pour generer le fichier.
 
Maintenant pour ton probleme j'en sais rien donc je vais me taire.


---------------
C'était vraiment très intéressant.

Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  Récupérer des données d'un fichier xml

 

Sujets relatifs
[PERL] Récupérer des données dans un fichier txtProblèmes - Logiciel d'acquisition de temps
recuperer données d'un fichier excelVBA: obligé d'ouvrir un fichier pour en récupérer des données?
récupérer les donnees d'un fichier ds 1 tableau pythoncomment recuperer les donnees d'un fichier php dans flash?
Recuperer données d'un fichier html et les stocker dans un .txtRecuperer données SQL en fichier Excel
récupérer les données d'un fichier[fichier batch] récupérer les données d'un fichier texte
Plus de sujets relatifs à : Récupérer des données d'un fichier xml


Copyright © 1997-2018 Hardware.fr SARL (Signaler un contenu illicite / Données personnelles) / Groupe LDLC / Shop HFR