| Вопрос: Date в SQL запросе | Добавлено: 28.01.05 17:05 |
Автор вопроса:  Боцман | Web-сайт: Rus-Skipper.narod.ru | ICQ: 295725312 |
|
Уважаемые, у меня такой вопрос. Есть записная книжка,
в которой есть столбец [даты] где стоят например(28.01.2005) и другие дни рождения близких мне людей. Как выполнить SQL запрос, чтобы при совпадении с системной датой (кроме года естественно) произошла бы выборка по дню и месяцу (Это чтобы никого не забыть) Заранее благодарен откликнувшимся Николай |
| Ответы | Всего ответов: 19 |
|
Номер ответа: 1 Автор ответа:  AlexF Вопросов: 20 Ответов: 113 |
Профиль | | #1 | Добавлено: 29.01.05 01:00 |
|
Vot naprimer :
SELECT fldIID, Format$([fldDate],"dd/mm"  AS DateResult
FROM tblDates WHERE (((Format$([fldDate],"dd/mm" )=Format$(Now(),"dd/mm"))
ili toze samoe . no otobrazenie vmeste s godom: SELECT fldIID, flddate FROM tblDates WHERE (((Format$([fldDate],"dd/mm" )=Format$(Now(),"dd/mm"))
|
||
|
Номер ответа: 2 Автор ответа: БоцманICQ: 295725312 Вопросов: 53 Ответов: 830 |
Web-сайт: Профиль | | #2 | Добавлено: 29.01.05 08:50 |
|
AlexF огромное спасибо за такую оперативность,
Но я ничего не понял даже кодов таких незнаю У меня VB-6 может в этом дело? В справке я твоих Format не нашел и "dd/mm" тоже. У меня такой код Private Sub Form_Load() Data1.DatabaseName = "db.mdb" Data1.RecordSource = "SELECT * FROM Адреса WHERE дата LIKE '2*'" Data1.Refresh Text10.Text = Date End Sub Вопрос как место (2) этот пример работает подставить (29.01 как сегодня) из текста 10 или напрямую еще раз извиняюсь за надоедливость. |
||
|
Номер ответа: 3 Автор ответа: Александр Разработчик Offline Client ICQ: 204034 Вопросов: 106 Ответов: 1919 |
Профиль | | #3 | Добавлено: 29.01.05 10:19 |
|
Может так:
Private Sub Form_Load() Data1.DatabaseName = "db.mdb" Data1.RecordSource = "SELECT * FROM Адреса WHERE #" & дата & "# LIKE '2*'" Data1.Refresh Text10.Text = Date End Sub |
||
|
Номер ответа: 4 Автор ответа: БоцманICQ: 295725312 Вопросов: 53 Ответов: 830 |
Web-сайт: Профиль | | #4 | Добавлено: 29.01.05 11:30 |
|
Нет, это не работает и главное еще раз в место
LIKE '2*'" должна вписаться текущая системная Дата и месяц при ручном наборе, и так все работает Но что это за программа, где нужно вводить вручную Ведь гораздо лучше, что при открытии формы В случае совпадения сразу бы открывался нужный лист Именинника (если он есть) С уважением к Александру. |
||
|
Номер ответа: 5 Автор ответа: sneРазработчик Offline Client ICQ: 233286456 Вопросов: 34 Ответов: 5445 |
Web-сайт: Профиль | | #5 | Добавлено: 29.01.05 11:44 |
|
... FROM Адреса WHERE дата LIKE " & VBA.Format$(VBA.Day(VBA.Date), "00" & "." & VBA.Format$(VBA.Month(VBA.Date), "00"
|
||
|
Номер ответа: 6 Автор ответа: БоцманICQ: 295725312 Вопросов: 53 Ответов: 830 |
Web-сайт: Профиль | | #6 | Добавлено: 29.01.05 12:34 |
|
Попробовал твой код VB-6 не ругается, ноничего
и наделает, привязал к кнопке при вызове сетка (DBGrid), очищается и вообще не видит столбцов только оглавление. С уважением к SNE |
||
|
Номер ответа: 7 Автор ответа: AlexFВопросов: 20 Ответов: 113 |
Профиль | | #7 | Добавлено: 29.01.05 13:42 |
|
Попробуй так :
Data1.RecordSource = "SELECT * FROM Адреса WHERE WHERE Format(дата,"dd.mm" )=Format(Now(),"dd.mm"
dd.mm - формат день.месяц. |
||
|
Номер ответа: 8 Автор ответа: AlexFВопросов: 20 Ответов: 113 |
Профиль | | #8 | Добавлено: 29.01.05 13:42 |
|
Попробуй так :
Data1.RecordSource = "SELECT * FROM Адреса WHERE Format(дата,"dd.mm" )=Format(Now(),"dd.mm"
dd.mm - формат день.месяц. |
||
|
Номер ответа: 9 Автор ответа: AlexFВопросов: 20 Ответов: 113 |
Профиль | | #9 | Добавлено: 29.01.05 14:43 |
|
Создай SQL запрос выборку в базе данных и считывай данные с него.
Только укажи тип поля- дата SELECT * FROM adres WHERE (((adres.flddate)=Format(Now(),"dd/mm" ))
|
||
|
Номер ответа: 10 Автор ответа: БоцманICQ: 295725312 Вопросов: 53 Ответов: 830 |
Web-сайт: Профиль | | #10 | Добавлено: 29.01.05 16:22 |
|
AlexF Добрый день, ну а судя по твоему первому ответу
У тебя возможно и утро. Спасибо за участие, но все красным VB ругается. Я на всякий случай другой проект создал Кинул DATA u DBGrid и мой код см. выше подключил базу Все работает, но любой другой запрос не срабатывает. Прежде чем сюда обратится, искал различные исходники и ничего!!! Хотя пример был бы очень многим нужен судя по заходам на страницу всего за сутки. С уважением спасибо за отзывчивость. ------------------------------------ strSQL = "SELECT* FROM Адреса WHERE Фамилия LIKE '" & "к*'" Data1.DatabaseName = "db.mdb" Data1.RecordSource = strSQL Data1.Refresh (это работает, а остальное?)Поле сделал дата! ----------------------------------------------- Очевидное где-то рядом, но невидимо. |
||
|
Номер ответа: 11 Автор ответа: AlexFВопросов: 20 Ответов: 113 |
Профиль | | #11 | Добавлено: 29.01.05 17:27 |
|
А обязательно использовать DAO? Почему не ADODB?
Как вариант, я имел ввиду в самой базе данных составить SQL zapros, и получать данные с него. Тогда дата корректно работает. |
||
|
Номер ответа: 12 Автор ответа: AlexFВопросов: 20 Ответов: 113 |
Профиль | | #12 | Добавлено: 29.01.05 17:28 |
| Буду дома- напишу это на ВБ. А не по памяти. | ||
|
Номер ответа: 13 Автор ответа: БоцманICQ: 295725312 Вопросов: 53 Ответов: 830 |
Web-сайт: Профиль | | #13 | Добавлено: 29.01.05 17:33 |
|
извиняюсь, но где у меня DAO
у меня именно ADODB |
||
|
Номер ответа: 14 Автор ответа: AlexFВопросов: 20 Ответов: 113 |
Профиль | | #14 | Добавлено: 29.01.05 17:35 |
| Sorry, ne tuda posmotrel. Budu skoro doma, pereshlyu primer. Ya takoe delal. | ||
|
Номер ответа: 15 Автор ответа: БоцманICQ: 295725312 Вопросов: 53 Ответов: 830 |
Web-сайт: Профиль | | #15 | Добавлено: 29.01.05 17:45 |
|
1000 извенений именно dao 3.6 librau
что-то прогнал |
||