OVH Cloud OVH Cloud

connection DB a distance(XML)

7 réponses
Avatar
HeLioZz
bonjour a tous !
j aurais voulu savoir comment faire pour recuperer les données d fichier XML
a distance....
est ce que quelqu un a une idée ???
comment je peux faire ??
merci d'avance

7 réponses

Avatar
AlexC
Bonjour,

Qu'entendez vous par "à distance" ? à travers un réseau local ou le web ?
Dans tous les cas j'emploirais la manière suivante:

téléchargement du fichier en local de facon temporaire.
et chargement du contenu du fichier grace à l'espace de nom "system.Xml" :

Private Function LoadFile(ByVal File As String) As XmlDocument
Dim XmlDoc As New XmlDocument
Dim sXPath As String
Dim oSR As StreamReader
Dim sXml As String
Dim oList As XmlNodeList

oSR = New StreamReader(File)
sXml = oSR.ReadToEnd()
oSR.Close()
XmlDoc.LoadXml(sXml)

Return XmlDoc

End Function
Avatar
HeLioZz
merci....
donc pour repondre a votre question c'est un fichier XML qui se trouve sur
un site web...
est ce la bonne procedure a suivre ??
ou dois je rentrer l'adresse du site en question..?
merci de m'aider c 'est sympa...


"AlexC" a écrit :

Bonjour,

Qu'entendez vous par "à distance" ? à travers un réseau local ou le web ?
Dans tous les cas j'emploirais la manière suivante:

téléchargement du fichier en local de facon temporaire.
et chargement du contenu du fichier grace à l'espace de nom "system.Xml" :

Private Function LoadFile(ByVal File As String) As XmlDocument
Dim XmlDoc As New XmlDocument
Dim sXPath As String
Dim oSR As StreamReader
Dim sXml As String
Dim oList As XmlNodeList

oSR = New StreamReader(File)
sXml = oSR.ReadToEnd()
oSR.Close()
XmlDoc.LoadXml(sXml)

Return XmlDoc

End Function





Avatar
AlexC
voici un exemple :

http://dotnet.developpez.com/sources/vbnet/?page=internet

il permet de télécharger un fichier situé n'importe ou et l'en,registre en
local sur votre PC.
Ensuite il suffit d'utiliser le bout de code que je vous ai donné tout à
l'heure pour "charger" tout le contenu Xml.

Il ne vous restera plus qu'à développer le bout de code pour traiter ce
fichier Xml chargé.

"HeLioZz" a écrit dans le message de
news:
merci....
donc pour repondre a votre question c'est un fichier XML qui se trouve sur
un site web...
est ce la bonne procedure a suivre ??
ou dois je rentrer l'adresse du site en question..?
merci de m'aider c 'est sympa...


"AlexC" a écrit :

Bonjour,

Qu'entendez vous par "à distance" ? à travers un réseau local ou le web ?
Dans tous les cas j'emploirais la manière suivante:

téléchargement du fichier en local de facon temporaire.
et chargement du contenu du fichier grace à l'espace de nom "system.Xml"
:

Private Function LoadFile(ByVal File As String) As XmlDocument
Dim XmlDoc As New XmlDocument
Dim sXPath As String
Dim oSR As StreamReader
Dim sXml As String
Dim oList As XmlNodeList

oSR = New StreamReader(File)
sXml = oSR.ReadToEnd()
oSR.Close()
XmlDoc.LoadXml(sXml)

Return XmlDoc

End Function







Avatar
HeLioZz
excusez moi j suis peut etre bete mais je ne sais pas ou je dois mettre l url
du site...
pourriez vous m éclairer??
"AlexC" a écrit :

voici un exemple :

http://dotnet.developpez.com/sources/vbnet/?page=internet

il permet de télécharger un fichier situé n'importe ou et l'en,registre en
local sur votre PC.
Ensuite il suffit d'utiliser le bout de code que je vous ai donné tout à
l'heure pour "charger" tout le contenu Xml.

Il ne vous restera plus qu'à développer le bout de code pour traiter ce
fichier Xml chargé.

"HeLioZz" a écrit dans le message de
news:
> merci....
> donc pour repondre a votre question c'est un fichier XML qui se trouve sur
> un site web...
> est ce la bonne procedure a suivre ??
> ou dois je rentrer l'adresse du site en question..?
> merci de m'aider c 'est sympa...
>
>
> "AlexC" a écrit :
>
>> Bonjour,
>>
>> Qu'entendez vous par "à distance" ? à travers un réseau local ou le web ?
>> Dans tous les cas j'emploirais la manière suivante:
>>
>> téléchargement du fichier en local de facon temporaire.
>> et chargement du contenu du fichier grace à l'espace de nom "system.Xml"
>> :
>>
>> Private Function LoadFile(ByVal File As String) As XmlDocument
>> Dim XmlDoc As New XmlDocument
>> Dim sXPath As String
>> Dim oSR As StreamReader
>> Dim sXml As String
>> Dim oList As XmlNodeList
>>
>> oSR = New StreamReader(File)
>> sXml = oSR.ReadToEnd()
>> oSR.Close()
>> XmlDoc.LoadXml(sXml)
>>
>> Return XmlDoc
>>
>> End Function
>>
>>
>>





Avatar
AlexC
Ceci est le gestionnaire d'évènement "click" du bouton télécharger de
l'exemple.

Private Sub btnTelecharger_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles BtnTelecharger.Click
If txtFile.Text.Length = 0 Then
MessageBox.Show("Erreur, vous devez rentrer une adresse Internet",
"Erreur")
Else
Dim i As Integer = txtFile.Text.LastIndexOf("/")
fichier = txtFile.Text.Substring(i + 1, txtFile.Text.Length -
i - 1)
Dim client As WebClient = New WebClient
client.DownloadFile(txtFile.Text.Trim, "C:" + fichier)
client.Dispose()
MessageBox.Show("Fichier C:" + fichier + " téléchargé avec
succès", "Succès")
End If
End Sub

Il suffit de remplacer ceci

client.DownloadFile(txtFile.Text.Trim, "C:" + fichier)

par ceci

client.DownloadFile("Http://www.monsite.com/monfichier.xml","c:fichier.xml")
Avatar
HeLioZz
merci bcp je vais essayer !

"AlexC" a écrit :

Ceci est le gestionnaire d'évènement "click" du bouton télécharger de
l'exemple.

Private Sub btnTelecharger_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles BtnTelecharger.Click
If txtFile.Text.Length = 0 Then
MessageBox.Show("Erreur, vous devez rentrer une adresse Internet",
"Erreur")
Else
Dim i As Integer = txtFile.Text.LastIndexOf("/")
fichier = txtFile.Text.Substring(i + 1, txtFile.Text.Length -
i - 1)
Dim client As WebClient = New WebClient
client.DownloadFile(txtFile.Text.Trim, "C:" + fichier)
client.Dispose()
MessageBox.Show("Fichier C:" + fichier + " téléchargé avec
succès", "Succès")
End If
End Sub

Il suffit de remplacer ceci

client.DownloadFile(txtFile.Text.Trim, "C:" + fichier)

par ceci

client.DownloadFile("Http://www.monsite.com/monfichier.xml","c:fichier.xml")






Avatar
HeLioZz
excusez moi de vous rederanger !

mais j ai une erreur dans votre code :


"type webclient non défini"

il me propose de remplacer WebClient par net.webclient

et quand je fais ca il me met une erreur dans l url

comment faire ?


"AlexC" a écrit :

Ceci est le gestionnaire d'évènement "click" du bouton télécharger de
l'exemple.

Private Sub btnTelecharger_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles BtnTelecharger.Click
If txtFile.Text.Length = 0 Then
MessageBox.Show("Erreur, vous devez rentrer une adresse Internet",
"Erreur")
Else
Dim i As Integer = txtFile.Text.LastIndexOf("/")
fichier = txtFile.Text.Substring(i + 1, txtFile.Text.Length -
i - 1)
Dim client As WebClient = New WebClient
client.DownloadFile(txtFile.Text.Trim, "C:" + fichier)
client.Dispose()
MessageBox.Show("Fichier C:" + fichier + " téléchargé avec
succès", "Succès")
End If
End Sub

Il suffit de remplacer ceci

client.DownloadFile(txtFile.Text.Trim, "C:" + fichier)

par ceci

client.DownloadFile("Http://www.monsite.com/monfichier.xml","c:fichier.xml")