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

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:

---

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

Bonjour

Code:

---

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

---

Bonjour,

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

J'ai le message suivant :

Citation:

---

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

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

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 :

Citation:

---

L'appel ODBC à échoué...

---

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

Code:

---

1 2 3

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

---

sans succès.:evilred:

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

Merci pour votre aide.

Daniel

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/

:)

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

Bonjour,

Et avec :

Code:

---

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

---

Cela change quelque chose ?

Domi2

re_hello,

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

Code:

---

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+
:)

Code:

---

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") &"'")

---

Bonjour,

Je viens de teste la solution de Kloun et BONNE NOUVELLE, ça fonctionne.:king:

Mon souci provenait bien de la date.

En effet l'expression suivante

Citation:

---

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

---

ne transformait pas la date dans le format désiré.

Enfin c'est réglé, encore merci pour votre aide.


Daniel