Executer un DTS a partir du code VB

Version imprimable

26/05/2004, 15h26
Total

Executer un DTS a partir du code VB

Bonjour,
Est il possible de lancer un DTS a partir du code VB ou par le biai d'une procédure stokée?
Si oui, Comment?

Merci

:cry:
26/05/2004, 18h53
mat.M

Bonjour ,
à partir de VB on ne peut que :
*exécuter des requêtes SQL
*lancer des procédures stockées en passant des paramêtres.
Tout ceci via différentes API ( ADO , ODBC.....)

Donc pour ce qui est des transactions BDD , c'est plutôt dans le script de procédure stockée ou au niveau du serveur de donnée que cela s'effectue ( SQL SERVER )
27/05/2004, 09h03
HPJ

Avec Entreprise Manager, tu peux enregistrer ton package DTS en "Visual Basic Source File": il suffit ensuite de l'inclure dans ton projet et d'ajouter la référence vers "Microsoft DTS ...".
27/05/2004, 09h11
Total

J ai bien la commande MSDOS qui permet d'executer un DTS :
Call Shell("dtsrun /S ServeurName /E /N ""Nom du DTS""", vbHide)

Mais maintenant je vboudrais attendre la fin de l'execution pour l'execution du code qui suit!!!

Et la je bloque encore!

Une idée?? :roll:
27/05/2004, 09h26
HPJ

:faq:
27/05/2004, 09h59
luta

excusez moi mais c quoi un DTS?
10/06/2004, 12h03
Total

DTS = Data Transformation Service
Systeme permettant d'importer ou d'exporter des données sous SQL Serveur vers une base de données!

:lol:

Une solution

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
32
33
 
' Procédure d'exécution d'un DTS
' Paramètres : nomDTS - le nom du DTS à exécuter
 
Public Function LancerDTS(nomDTS As String) As String
 
    On Error Resume Next
 
    Dim oPackage As New DTS.Package
    Dim oStep As DTS.Step
    Dim lErrNum     As Long
    Dim sDescr      As String
    Dim sSource     As String
 
    LancerDTS = ""
 
    oPackage.LoadFromSQLServer "Serveur SQL", "Identifiant SQL", "Mot de Passe SQL", DTSSQLStgFlag_UseTrustedConnection, , , , nomDTS
    oPackage.Execute
 
    For Each oStep In oPackage.Steps
        If oStep.ExecutionStatus = DTSStepExecStat_Completed Then
            If oStep.ExecutionResult = DTSStepExecResult_Failure Then
                oStep.GetExecutionErrorInfo lErrNum, sSource, sDescr
                LancerDTS = LancerDTS & vbCrLf & "L'étape '" & oStep.Name & "' a provoqué une erreur :  " & lErrNum & vbCrLf & sDescr & vbCrLf
            End If
        End If
    Next
 
    Set oStep = Nothing
    Set oPackage = Nothing
 
 
End Function

Il faut ajouter une référence : Microsoft DTSPackage Object Library

Voila et ça marche

17/11/2005, 15h23
MetaGolgot

merci antalares,
en me basant sur ton code je fais un appel avec un variable global. j'ai fait un nouveau post pour cela...
Meta