Bonjour à tous,

A partir d'un bouton de formulaire, j'éxécute une procédure stockée SQL.
Voici le script

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
    Dim WrkSpaceODBC As Workspace
    Dim ConnectODBC As Connection
    Dim rcd As Recordset
Set db = CurrentDb
   Set WrkSpaceODBC = DBEngine.CreateWorkspace("ODBC", "Admin", "", dbUseODBC)
   Set ConnectODBC = WrkSpaceODBC.OpenConnection("", dbDriverNoPrompt, False, "ODBC;DRIVER={SQL Server};Server=XXX;Database=ZZZZZZ;UID=ss;Pwd=zzzzz")
 
   Set rcd = ConnectODBC.OpenRecordset("EXEC Buro_Articles_1 @Fichier_Origine = 'CatSp.txt'")
   Set rcd = ConnectODBC.OpenRecordset("SET LANGUAGE US_ENGLISH " & _
                "EXEC Buro_Articles_2 @NiveauRem = 1")
 
 
rcd.Close
ConnectODBC.Close
WrkSpaceODBC.Close
le premier recordset fonctionne correctement, mais le second s'arrête en cours d'éxécution pour une raison inconnue.

J'ai testé à partir de l'analyseur de requêtes SQL, et là tout se passe correctement (donc j'ai pu écarter une erreur dans le fichier traité).

Avez-vous une idée sur le problème que je rencontre.

Merci d'avance pour vos réponses.

Daniel