Книга: VBA для чайников

Использование параметров команды

Использование параметров команды

Если для выполнения команды требуются входные параметры (значения, передаваемые команде при выполнении, например диапазон данных или критерий поиска), вы должны определить индивидуальные объекты Parameter, добавляя их к коллекции Parameters объекта Command. Пример, приведенный ниже, иллюстрирует, как это все работает, и как можно использовать объект Command для выполнения хранимой процедуры, а не инструкции SQL:

Dim consecrate As Connection

Dim cmdVBA As Command

Dim prmDate

( Connection...)

Set cmdVBA = New Command

With cmdV3A

.ActiveConnection = consecrate

.CommandText = "qryDeleteOldRecords"

.CommandType = adCmdStoredProc ' in Jet, _

adCmdTable

End With

Set prmDate - New Parameter

With prmDate

.Name = "Date"

.Value = InputBox "Enter the cut-off date."

.Type = adDate

.Direction = adParamlnput

End With

With cmdVBA

.iarameters.Append prrnDate ' Добавление параметра

.Execute ‘ Выполнение команды

End With

Если вы выполняете запрос, сохраненный в базе данных Jet/Access, используйте значение adCmdTable свойства CommandType объекта Command, а не adCmdStoredProc, относящееся к SQL Server и многим другим серверам баз данных.

Оглавление книги