Récupérer des données d'un fichier xml - VB/VBA/VBS - Programmation
Marsh Posté le 14-11-2013 à 04:31:59
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.
Marsh Posté le 13-11-2013 à 18:09:58
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.