Discussion :

[et.et-and-co]

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 :

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

[rudib]

Bonjour,

Testé ceci, fonctionne ok :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
Function Main()
	Dim objPackage 
	set objPackage = CreateObject("DTS.Package")
 
	objPackage.LoadFromSqlServer "monserveur", , ,DTSSQLStgFlag_UseTrustedConnection , ,, , "Test"
	objPackage.Execute
 
 
	Main = DTSTaskExecResult_Success
End Function

As-tu un message d'erreur plus détaillé ? Le parse du code est ok ?