Discussion :

[Poussy-Puce]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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...

[Poussy-Puce]

Voilà, je l'ai!!!

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

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
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