[SQL2K] [DTS] Executer un lot DTS à partir d'un script ActiveX
C'est surement con mais je ne trouve pas la syntaxe exacte.
J'ai un lot A qui execute une requete et pour chaque ligne de ma requete appelle un autre lot B en lui passant les valeurs de la ligne en cours en paramètres.
Je suis parti de l'exemple RSSimpleLoop (http://www.sqldts.com/?298)
Il manque le bout de code dans le script Active pour ouvrir et executer le lot B.
A priori je pensai utiliser LoadFromSQLServer, mais le code ci-dessous plante à la ligne LoadFromSQLServer :
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
| Function Main()
dim RS, countr
set RS = CreateObject("ADODB.Recordset")
set RS = DTSGlobalVariables("DSN").value
Dim objPackage
set objPackage = CreateObject("DTS.Package")
for countr = 1 to RS.RecordCount
MsgBox "La source de données en cours est " & RS.Fields("DS_NAME").value
' Ouvre le lot "Test"
objPackage.LoadFromSqlServer "monserveur", "user", "pwd", , , , , "LotTest"
objPackage.Execute
RS.MoveNext
Next
Main = DTSTaskExecResult_Success
End Function |
Si quelqu'un a une idée ...
Emmanuel
