Гость
Целевая тема:
Создать новую тему:
Автор:
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Как с помощью SQL запроса в модуле... / 8 сообщений из 8, страница 1 из 1
31.10.2003, 10:23
    #32311331
Hall9000
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как с помощью SQL запроса в модуле...
Как с помощью SQL запроса в модуле выбрать записи по нужным мне датам, когда пишешь:
Dim ДатаНач As Variant
Dim ДатаКон As Variant

Начальная дата например Начальная - 01.10.03, конечная - 14.10.03

ДатаНач = Format(Дата, "dd\/mm\/yyyy")
ДатаКон = Format(Дата, "dd\/mm\/yyyy")

после преобразования выдает Начальная 10/01/03, Конечная 10/14/03

Далее SQL запрос

SQLText="Select ... From .... Where Таблица.DATA>=#" & ДатаНач & "# and Таблица.DATA<=#" & ДатаКон & "#;"

Все прекрасно, данные выбрал, но после мне к начальной дате нужно прибавить месяц и к конечной дате прибавить месяц, вот тут и.... приехали...

Помогите с примером.
...
Рейтинг: 0 / 0
31.10.2003, 10:30
    #32311343
Alexus12
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как с помощью SQL запроса в модуле...
После того
как изменишь свои переменные
запрос от этого не поменяется
нужно снова
составить строку SQL
и снова открыть рекордсет

сохраненный же не меняет результата
пока не перезапустишь его
правда?
...
Рейтинг: 0 / 0
31.10.2003, 10:33
    #32311349
Hall9000
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как с помощью SQL запроса в модуле...
Неее, вы непоняли, вопрос такой....
Как прибавить месяц вот к такой дате 14/10/03, где 14 - это день, 10 - месяц, 03 - год.

Я делаю DateAdd("m", 1, "14/10/03") он мне выдает 15/10/03, а хотя месяц это октябрь, значит должно ббыть типа 14/11/03
...
Рейтинг: 0 / 0
31.10.2003, 10:36
    #32311353
Alexus12
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как с помощью SQL запроса в модуле...
А видел
что после преобразования получаешь
10/14/03

???

Вот ЕЕ и тыкай в dateadd - и получишь верный результат
...
Рейтинг: 0 / 0
31.10.2003, 10:41
    #32311365
Hall9000
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как с помощью SQL запроса в модуле...
Нееее... неполучается, вообщем вот так...

Есть дата допустим 01.10.03, нужно по ней выбрать данные с помощью SQL запроса, потом прибавить к ней месяц, заново выбрать данные и т.д.


Помогите.

При этом при переводе в SQL запрос дата должна быть перевернута и вот в таком виде #10/01/03#, следующая #11/01/03# и т.д.
...
Рейтинг: 0 / 0
31.10.2003, 10:51
    #32311378
Polev
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как с помощью SQL запроса в модуле...
Дата = DateAdd("m",1,Дата)

ДатаНач = Format(Дата, "dd\/mm\/yyyy")
ДатаКон = Format(Дата, "dd\/mm\/yyyy")

после преобразования выдает Начальная 10/01/03, Конечная 10/14/03

Далее SQL запрос

SQLText="Select ... From .... Where Таблица.DATA>=#" & ДатаНач & "# and Таблица.DATA<=#" & ДатаКон & "#;"
...
Рейтинг: 0 / 0
31.10.2003, 11:20
    #32311445
assa
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как с помощью SQL запроса в модуле...
Из справки:
При указании аргумента условиеОтбора литералы даты символы дат должны вводиться в американском формате, даже если используется неамериканская версия ядра базы данных Jet. Например, дата 10 мая 1996 года записывается в России как 10.05.94, а в США как 5/10/94...

Из отладчика:
?Format(#10/01/2003#,"dd.mm.yyyy")
01.10.2003

т.е. Вам нужно:
?Format(#10/01/2003#,"\#mm\/dd\/yyyy\#")
#10/01/2003#
...
Рейтинг: 0 / 0
31.10.2003, 11:24
    #32311458
assa
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как с помощью SQL запроса в модуле...
, да, па по поводу ДейтЕдд вы соврали:

?DateAdd("m", 1, "14/10/03")
14.11.2003
?DateAdd("m", 1, #14/10/03#)
03.11.2014 (!!!! 14+1=12+2+1)
?DateAdd("m", 1, #10/14/03#)
14.11.2003
...
Рейтинг: 0 / 0
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Как с помощью SQL запроса в модуле... / 8 сообщений из 8, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]