Discussion :

[Daniel MOREAU]

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

[Daniel MOREAU]

Bonjour,

Je reviens vers vous suite à mon problème.

Après quelques tests supplémentaires, je pense que le souci provient du temps de connexion qui m'est accordé lorsque je fais ma mise à jour.

Pensez-vous que cela peut être le problème ?

J'ai complété mon code, mais je ne sais pas si la syntaxe est correcte.

[LOGINTIMEOUT=900;]

Code :

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

1
2
3
4
5
6
7
8
9
10
11
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";[LOGINTIMEOUT=900;])
 
   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

Merci d'avance pour votre aide,

Daniel