Вопрос : Помогите с вызывать процедуру по SQL, котор хранят от доступа

Hi все, это будет моя первая попытка на вызывать процедуру по SQL, котор хранят от доступа к вероятно делать что-то реально тупоумно.  Пытаясь прочитать вверх на как вызвать, котор хранят процедуры и получая conflicting информацию поэтому это самое лучшее, котор я smog прийти вверх с:

затемняет db как sqlExpr Database
тусклое как rs String
тусклые по мере того как
Recordset
установленное db =
CurrentDb () sqlExpr = «getWastePrice ПРОЦЕДУРЫ «» & формы! [frmOutgoing]! [ShipDate]. Value & «», «&
HazWasteID
MsgBox (sqlExpr) rs установленные = сообщение ошибки

The db.OpenRecordset, котор (sqlExpr, dbOpenSnapshot, dbSQLPassThrough) я получаю будет «ошибка синтаксиса в

Now клаузуле ПАРАМЕТРА " я вводил MsgBox внутри там поэтому я могу увидеть значение sqlExpr и оно приходит назад getWastePrice as

PROCEDURE «02/02/2010», 118

Which я надеялся бы.  Так неправильно с моим синтаксисом?

Open к другому, более лучшие дороги вызывать, котор хранят процедуры с параметрами которыми возвращенное values.

Thanks. class=

Ответ : Помогите с вызывать процедуру по SQL, котор хранят от доступа

Наилучшим образом, если вы наклеиваете Кодего ниже в новый модуль и после этого, то вы будьте свободно вызвать его по воле.
Например использовать:

   Тусклое qdf как DAO.QueryDef
   Тусклое rst как DAO.Recordset
   Тусклое strSQL как шнур

   strSQL = «getWastePrice EXEC «» & формы! [frmOutgoing]! [ShipDate]. Значение & «», «& HazWasteID
   Установите qdf = fCreatePassThrough ("", strSQL, «YourDBName», «YourServerName», поистине)
   Установите rst = qdf.OpenRecordset
   
   Rst Debug.Print (0) 'делает вам нужно здесь

   rst. Конец
   Установите rst = ничего
   Установите qdf = ничего

См. если то делает чувство к вам.

Приветственные восклицания.

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 функции (strName как шнур, strSQL как шнур, strDBname как шнур, _ strServer как шнур, опционное blnIntegratedSecurity как булевско, _ Опционное strUserName как шнур, опционное strPassword как шнур, _ Опционные blnReturnsRecords как булевско = поистине, опционное strDriver как шнур = «{сервер SQL} ") как DAO.QueryDef Тусклый db как база данных Тусклое qdf как QueryDef Тусклое strConnect как шнур strConnect = «ODBC; Driver=» & strDriver &»; Server= " & strServer & «; Database=» & strDBname Если blnIntegratedSecurity после этого strConnect = strConnect & «; Trusted_Connection=Yes» Еще Если Len (strUserName) > 0 и Len (strPassword) > 0 после этого strConnect = strConnect & «; UID=» & strUserName &»; PWD= " & strPassword Закончитесь если Закончитесь если Установите db = CurrentDb Установите qdf = db.CreateQueryDef (strName) С qdf .ReturnsRecords = blnReturnsRecords . Соединитесь = strConnect .sql = strSQL .ODBCTimeout = 60 Конец с Установите fCreatePassThrough = qdf Установите qdf = ничего Установите db = ничего Закончите функцию