Créer fichier XML avec un DTS

Bonjour, j'ai une jolie requête SQL qui me créer du XML :

Code:

---

1 2 3 4

Select * from table FOR XML Auto, ELEMENTS

---

Dans QueryAnalyzer ça me donne exactement ce que je veux! Maintenant, j'aimerais sauver le tout dans un fichier XML, et ce toutes les semaines avec un DTS. Est-ce que quelqu'un saurait me guider vers ce que je dois faire!

Merci d'avance...

Voilà, je l'ai!!! :yaisse2:

Créer un DTS
Ajouter un ActiveX Task Properties
Ajouter ce code:

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

'********************************************************************** ' Visual Basic ActiveX Script '************************************************************************   Function Main() Dim xmlDoc ' as DOMDocument Dim adoCmd ' as ADODB.Command   Set xmlDoc = CreateObject("Msxml2.DOMDocument.4.0") Set adoCmd = CreateObject("ADODB.Command")   adoCmd.ActiveConnection ="Provider=SQLOLEDB;Data Source = ServerName;Initial Catalog = DataBase; Integrated Security=SSPI;"   adoCmd.CommandText = "<ROOT xmlns:sql=""urn:schemas-microsoft-com:xml-sql""><audit><sql:query><![CDATA[Select * from votreTable for xml auto]]></sql:query></audit></ROOT>"   adoCmd.Dialect = "{5D531CB2-E6Ed-11D2-B252-00C04F681B71}"   adoCmd.Properties("Output Stream") = xmlDoc     adoCmd.Execute , , 1024   xmlDoc.Save "D:\FichierXML.xml"     set adoCmd=nothing set xmlDoc=nothing   Main = DTSTaskExecResult_Success   End Function

---

Sans oublier de downloader XML 4.0 http://www.microsoft.com/downloads/d...displaylang=en

Céduler une job

Et le tour est joué!!!


Merci quand même pour votre aide