Период с mdb в adp

[Gul'ka]

Здравстуйте уважаемые программисты, дело в том что я пишу проект (adp)все сделала, осталось сама мелочь,мне для вывода отчета нужно задать период в (VBA), дело в том что в mdb я знаю как написать, но с adp работаю не давно, поэтому прошу помощи.
Помогите перевести код в adp, вот код с mdb:

If Not IsNull(Me.tbBegin) Then
vSQL = ""
vSQL = "Dat>=#" & Format(Me.tbBegin, "mm-dd-yyyy") & "# And Dat<=#" & Format(Me.tbEnd, "mm-dd-yyyy") & "#"
strPeriod = "за период с " & Me.tbBegin & " по " & Me.tbEnd
End If

[Teslenko_EA]

Здравствуйте Gul'ka.
"..перевести код в adp.." - думаю подразумевается создание SQL конструкции.(?)
к сведению:
в ADP нет и не может быть никакого кода (кроме VBA)
проект ADP подключается к базе данных SQL сервера и потому во всех конструкциях его (сервера, не adp) синтаксис.
в большинстве случаев допускается использование подобной конструкции:

WHERE Dat BETWEEN '20010101' AND '20130101'

в Вашем случае это будет выглядеть так:

vSQL = "Dat BETWEEN '" +  Format(Me.tbBegin, "yyyymmdd") + "' And '" + Format(Me.tbEnd, "yyyymmdd") + "'"

Но формирование запроса на стороне клиента не самый лучший вариант обращения к серверу.
Гораздо удобнее в БД сервера создать хранимую процедуру, открыть её, передать ей параметры и запустить.
И она выполнит запланированное действие(или действия - их может быть много),
вернет результат или набор данных соответствующих условию,....
Всё это может быть выполнено на сервере, а ADP является связующим звеном между сервером и Вами.
Успехов Вам.
Евгений.

[Gul'ka]

Сообщение от Teslenko_EA

Здравствуйте Gul'ka.
"..перевести код в adp.." - думаю подразумевается создание SQL конструкции.(?)
к сведению:
в ADP нет и не может быть никакого кода (кроме VBA)
проект ADP подключается к базе данных SQL сервера и потому во всех конструкциях его (сервера, не adp) синтаксис.
в большинстве случаев допускается использование подобной конструкции:

WHERE Dat BETWEEN '20010101' AND '20130101'

в Вашем случае это будет выглядеть так:

vSQL = "Dat BETWEEN '" +  Format(Me.tbBegin, "yyyymmdd") + "' And '" + Format(Me.tbEnd, "yyyymmdd") + "'"

Но формирование запроса на стороне клиента не самый лучший вариант обращения к серверу.
Гораздо удобнее в БД сервера создать хранимую процедуру, открыть её, передать ей параметры и запустить.
И она выполнит запланированное действие(или действия - их может быть много),
вернет результат или набор данных соответствующих условию,....
Всё это может быть выполнено на сервере, а ADP является связующим звеном между сервером и Вами.
Успехов Вам.
Евгений.

Спасибо огромное) Прости, у меня еще один вопрос, мне нужно в запросе (adp) вывести день недели(понедельник, вторник и т.д.) в mdb- Это через Format([DAT];"dddd"), а как в adp?

[Teslenko_EA]

"..а как в adp?.." - никак.

..ADP является связующим звеном между сервером и Вами..

т.е. ADP это "оболочка", в ней могут располагаться формы, макросы, модули,...
таблицы и все SQL конструкции (представления, хранимые процедуры, функции)
находятся на сервере, в БД к которой подключен проект.
Евгений.