Question : Aider avec appeler le procédé stocké de SQL de l'accès

Salut tout, ceci est ma première tentative à appeler un procédé stocké de SQL de l'accès à faire probablement quelque chose vraiment stupide.  Été essayant de lire vers le haut sur la façon dont appeler des procédures stockées et obtenant l'information contradictoire ainsi ceci est le meilleur que je pourrais monter avec : le

obscurcissent le DB comme faible sqlExpr de Database
comme faibles rs de String
pendant que le
de Recordset
réglé DB = sqlExpr de
de CurrentDb () = « getWastePrice de PROCÉDÉ «  » et formes ! [frmOutgoing] ! [ShipDate]. Value et «  », « et les rs du
de HazWasteID
MsgBox (sqlExpr) = le message réglés d'erreur du

The de db.OpenRecordset (sqlExpr, dbOpenSnapshot, dbSQLPassThrough) que je reçois est « erreur de syntaxe

Now dans de PARAMÈTRE clause le " j'ai inséré le MsgBox dedans là ainsi je peux voir que ce qu'est la valeur de sqlExpr et elle revient getWastePrice de l'as

PROCEDURE « 02/02/2010 », est 118

Which ce que je compterais.  Ainsi quel est le problème avec ma syntaxe ?

Open à autre, de meilleures manières d'appeler des procédures stockées avec les paramètres que values.

Thanks. class= de

Réponse : Aider avec appeler le procédé stocké de SQL de l'accès

Bien, si vous collez le code ci-dessous dans un nouveau module et puis vous être libre pour l'appeler à la volonté.
Par exemple utilisation :

   Faible qdf comme DAO.QueryDef
   Faible rst comme DAO.Recordset
   Faible strSQL comme corde

   strSQL = « getWastePrice d'EXEC «  » et formes ! [frmOutgoing] ! [ShipDate]. Valeur et «  », « et HazWasteID
   Placer le qdf = le fCreatePassThrough ("", strSQL, « YourDBName », « YourServerName », vrais)
   Placer le rst = le qdf.OpenRecordset
   
   Le rst de Debug.Print (0) 'font de celui que vous ayez besoin ici

   rst. Fin
   Placer le rst = rien
   Placer le qdf = rien

Voir si cela a du sens pour vous.

À la votre.

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 :

fCreatePassThrough de fonction (strName comme corde, strSQL comme corde, strDBname comme corde, _ strServer comme corde, blnIntegratedSecurity facultatif comme booléen, _ strUserName facultatif comme corde, strPassword facultatif comme corde, _ blnReturnsRecords facultatifs comme booléens = strDriver vrai et facultatif comme corde = « {serveur de SQL} ") comme DAO.QueryDef Faible DB comme base de données Faible qdf comme QueryDef Faible strConnect comme corde strConnect = « ODBC ; Driver= » et strDriver et » ; Server= " et strServer et « ; Database= » et strDBname Si blnIntegratedSecurity alors strConnect = strConnect et « ; Trusted_Connection=Yes » Autrement Si Len (strUserName) > 0 et Len (strPassword) > 0 puis strConnect = strConnect et « ; UID= » et strUserName et » ; PWD= " et strPassword Finir si Finir si Placer DB = CurrentDb Placer le qdf = le db.CreateQueryDef (le strName) Avec le qdf .ReturnsRecords = blnReturnsRecords . Relier = strConnect .sql = strSQL .ODBCTimeout = 60 Extrémité avec Placer le fCreatePassThrough = le qdf Placer le qdf = rien Placer DB = rien Finir la fonction