powered by simpleCommunicator - 2.0.53     © 2025 Programmizd 02
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Запрос в базу по дате с листа Excel
8 сообщений из 8, страница 1 из 1
Запрос в базу по дате с листа Excel
    #39595300
anton6
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Всем привет!

Вопрос такой... на листе Excel в Cells(1, 1) есть цифра. Например, 4.
Код: vbnet
1.
m = Sheets("Лист1").Cells(1, 1).Value



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

Как написать запрос, чтобы вытянуть условные значения r по номеру 4?

Код: vbnet
1.
SQLr = "SELECT r FROM RRR where date = m"



не могу понять, как "приравнять" 4 к xx.04.xxxx и на основании этого написать запрос.

Подскажите, пожалуйста.
...
Рейтинг: 0 / 0
Запрос в базу по дате с листа Excel
    #39595303
Фотография Панург
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
...
Рейтинг: 0 / 0
Запрос в базу по дате с листа Excel
    #39595543
anton6
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Спасибо, взял дополнительную инфу)
Взял оттуда форму запроса...но ... все равно... с самим запросом не могу понять....

Есть база Access rrr
Там есть два столбца
Первый date в формате 01.02.2018
Второй r с текстом

Хочу понять, как вытаскивать текст по дате

Код: sql
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
Sub ter()

Dim tbl As Recordset
Dim dbs As DAO.Database
Set dbs = OpenDatabase("G:\3\A.accdb")
m = Sheets("Лист2").Cells(1, 2).Value 'Обычное цифровое значение, типа, 1,2,3... условно кратное месяцу
SQLr1 = "SELECT * FROM rrr WHERE (((rrr.Date)=#" & Format(m, "mm\/dd\/yy hh\:mm\:ss") & "#));" ' 
Set tbl = dbs.OpenRecordset(SQLr1)
Sheets("Лист1").Select
Cells(8, 1).CopyFromRecordset tbl
tbl.Close
Set tbl = Nothing
dbs.Close
Set dbs = Nothing

End Sub
...
Рейтинг: 0 / 0
Запрос в базу по дате с листа Excel
    #39595618
Если вас не интересует год (что вряд ли), то:
...WHERE Month(rrr.[Date]) = 2
Но правильнее и быстрее, если поле с датой индексированное:
...WHERE rrr.[Date] Between #02/01/2018# And #02/28/2018#

ЗЫ. Заметьте, что имя поля "Date" взято в кв. скобки. Не лучшее имя для поля, т.к. это зарезервированное слово.
ЗЗЫ. Вы засорили форум множеством веток с однотипными вопросами. Это зря. Надо было весь диспут вести в одной ветке.
...
Рейтинг: 0 / 0
Запрос в базу по дате с листа Excel
    #39595847
anton6
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Спасибо большое!
То, что нужно, даже в двух вариантах
Немного перемутировал свой запрос
Спасибо!)

А где же мне еще спрашивать...
Лучше с живыми людьми общаться
...
Рейтинг: 0 / 0
Запрос в базу по дате с листа Excel
    #39595860
Фотография Лапух
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
anton6,
Живее всех живых, общаться лучше на кибере.
Тут очень часто общение вживую отшибають почём зря.многие злюки и возомнившие., Оторвавшиеся в небеса .
Типа просто теоретики.
Хотя и - ещё и живые не боги встречаются.
...
Рейтинг: 0 / 0
Запрос в базу по дате с листа Excel
    #39595869
Фотография Панург
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Лапухобщаться лучше
...
Рейтинг: 0 / 0
Запрос в базу по дате с листа Excel
    #39595902
Фотография Лапух
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Панург,
Так дык, же разве не так?смешивают в основном и с грязью
даже разве не так?
На себе неоднократно просвященные.
...
Рейтинг: 0 / 0
8 сообщений из 8, страница 1 из 1
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Запрос в базу по дате с листа Excel
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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