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
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
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 )
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 ...".
Avant de poser une question, merci de chercher dans les rubriques suivantes:
FAQ VB
Tutoriaux VB
Recherche avancée sur le forum
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??
Avant de poser une question, merci de chercher dans les rubriques suivantes:
FAQ VB
Tutoriaux VB
Recherche avancée sur le forum
DTS = Data Transformation Service
Systeme permettant d'importer ou d'exporter des données sous SQL Serveur vers une base de données!
Il faut ajouter une référence : Microsoft DTSPackage Object Library
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
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
Voila et ça marche
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
Vous avez un bloqueur de publicités installé.
Le Club Developpez.com n'affiche que des publicités IT, discrètes et non intrusives.
Afin que nous puissions continuer à vous fournir gratuitement du contenu de qualité, merci de nous soutenir en désactivant votre bloqueur de publicités sur Developpez.com.
Partager