Exécuter une procédure stockée Sql Via VBA

**Daniel MOREAU** · 04/03/2009, 16h06

bonjour,

Je souhaite éxécuter une procédure stockée Sql via VBA.

Lorsque je la lance à partir de l'analyseur de requête, la procédure s'éxécute normalement, mais elle plante avec Vba.

Je pense que c'est un problème de format de date, car je ne vois pas d'autre explications, mais je n'arrive pas à résoudre l'anomalie.

Pouvez-vous m'aider ?

Voici la syntaxe que j'utilise :

Code :

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

1
2
3
4
5
6
7
8
9
datedeb = InputBoxdate("Veuillez saisir la date de début de la promotion", "SAISIR DATE", "Début Flyer")
datefin = InputBoxdate("Veuillez saisir la date de fin de la promotion", "SAISIR DATE", "Fin Flyer")
 
            datedeb = Format(datedeb, "mm/dd/yyyy")
            datedeb = Format(datefin, "mm/dd/yyyy")
 
       Set rcd = ConnectODBC.OpenRecordset("EXEC Buro_Tarifs_Promo_1 @Fichier_Origine = 'CatSpicers.txt'")
       Set rcd = ConnectODBC.OpenRecordset("SET LANGUAGE US_ENGLISH " & _
                "EXEC Buro_Tarifs_Promo_2 @Date1 = 'datedeb', @Date2 = 'datefin'")

Merci d'avance pour votre aide.

Daniel

**Kloun** · 04/03/2009, 16h14

Bonjour

Code :

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

1
2
Set rcd = ConnectODBC.OpenRecordset("SET LANGUAGE US_ENGLISH " & _
                "EXEC Buro_Tarifs_Promo_2 @Date1 = '" & datedeb & "', @Date2 = '" & datefin & "'")

**Daniel MOREAU** · 05/03/2009, 17h59

Bonjour,

Merci pour ta réponse kloun, mais le problème persite.

J'ai le message suivant :

L'appel ODBC à échoué...

Je ne comprend ce qui se passe !!

Que veut dire ce message.

Je ne pense pas que ce soit un problème de connexion ODBC, puisque je l'utilise déjà dans mon code.

Merci pour aide.

Daniel

**micniv** · 05/03/2009, 19h02

Bonsoir ,
vois aussi du coté du code de LedZep
http://www.developpez.net/forums/d67...a/#post3984711

**Daniel MOREAU** · 06/03/2009, 18h21

Bonsoir,

Merci Micniv pour ton post.

Je viens d'effectuer de nouveaux test, et j'ai pu m'assurer que c'est bien un problème de format de date.

En effet, quand ma plage de date est la suivante :

Datedeb : 02/03/2009
Datefin : 10/03/2009

La procédure stockée est bien exécutée, en revanche si ma plage de date est :
Datedeb : 02/03/2009
Datefin : 21/03/2009

le message suivant s'affiche :

L'appel ODBC à échoué...

J'ai essayé en changeant le format de date :

Code :

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

1
2
3
 
datedeb = Format(datedeb, "mm/dd/yyyy")
datefin = Format(datefin, "mm/dd/yyyy")

sans succès.

Existe t-il une syntaxe particulière pour modifier le format de date ?

Merci pour votre aide.

Daniel

**micniv** · 06/03/2009, 19h31

Hello,

Comment sont déclarés tes paramètres sur Sql Server : en datetime ?

sinon j'ai vu ce tuto qui passe des dates à une ps :
http://barlatier.developpez.com/csha...stockee/cours/

**Daniel MOREAU** · 07/03/2009, 09h18

Salut micniv,

Effectivement les paramètres sont bien déclarés en datetime.

Je poursuis mes recherches et je reste impatient de trouver la réponse.

@+

Daniel

**Domi2** · 07/03/2009, 09h42

Bonjour,

Et avec :

Code :

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

datedeb = Format(datedeb, "mm\/dd\/yyyy")

Cela change quelque chose ?

Domi2

**micniv** · 07/03/2009, 18h22

re_hello,

voici une syntaxe qui fonctionne (chez moi) :
qui consiste à déclarer un type adDBdate et à passer une valeur de ce type

Code :

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

1
2
3
4
 
 
.Parameters.Append .CreateParameter("@dt1", adDBDate, adParamInput, 10, CDate("02/02/2009"))
.Parameters.Append .CreateParameter("@dt2", adDBDate, adParamInput, 10, CDate("21/02/2009"))

A+

**Kloun** · 08/03/2009, 11h42

Code :

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

1
2
3
4
5
6
7
8
Dim iDat_Deb as date
Dim iDat_Fin as date 
    iDat_Deb = InputBoxdate("Veuillez saisir la date de début de la promotion", "SAISIR DATE", "Début Flyer")
    iDat_Fin= InputBoxdate("Veuillez saisir la date de fin de la promotion", "SAISIR DATE", "Fin Flyer")
 
    Set rcd = ConnectODBC.OpenRecordset("EXEC Buro_Tarifs_Promo_1 @Fichier_Origine = 'CatSpicers.txt'")
    Set rcd = ConnectODBC.OpenRecordset("SET LANGUAGE US_ENGLISH " & _
                                        "EXEC Buro_Tarifs_Promo_2 @Date1 = '" & format(iDat_Deb, "MM\/DD\/YYYY") & "', @Date2 = '" & format(iDat_Deb, "MM\/DD\/YYYY") &"'")