Модераторы: Akina
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Нужно выбрать в запросе из base.mbd значения меньш 
V
    Опции темы
Avalon12x
Дата 26.2.2009, 10:53 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 26
Регистрация: 12.2.2009

Репутация: нет
Всего: нет
Нужно выбрать в запросе из base.mbd значения меньше текущей даты и времени
В базе значения записаны в формате "dd.mm.yyyy hh:nn:ss"  
даный код:

Код
Adodc1.RecordSource = "SELECT * FROM Контакты WHERE [Дата] < " & Now


не рабодтает

Если делаю CLng(Now) то отбрасывает время
Если делаю CDbl(Now) то ошибка: [запятая в строке запроса]

как решить даную задачу?
PM MAIL   Вверх
Akina
Дата 26.2.2009, 11:01 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Советчик
****


Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 34
Всего: 454
Цитата(Avalon12x @  26.2.2009,  11:53 Найти цитируемый пост)
В базе значения записаны в формате "dd.mm.yyyy hh:nn:ss"

Строковое? ну тогда 
Код

Adodc1.RecordSource = "SELECT * FROM Контакты WHERE CDate([Дата]) < " & Now



--------------------
 О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.
PM MAIL WWW ICQ Jabber   Вверх
Avalon12x
Дата 26.2.2009, 11:21 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 26
Регистрация: 12.2.2009

Репутация: нет
Всего: нет
Цитата(Akina @  26.2.2009,  11:01 Найти цитируемый пост)
код Visual Basic1:Adodc1.RecordSource = "SELECT * FROM Контакты WHERE CDate([Дата]) < " & Now


Тоже не кушает 
Может как-то по другому можно выбрать значения меньше текущей даты и ВРЕМЕНИ

Или как в строке запроса задать условие чтобы выбрать записи с десятичними значениями
например:
Код
Adodc1.RecordSource = "SELECT * FROM Контакты WHERE Число < 3,5"


Но такая строка выдает ошибку:
"Ошибка синтаксиса(запятая) в строке запроса"


Это сообщение отредактировал(а) Avalon12x - 26.2.2009, 11:43
PM MAIL   Вверх
Akina
Дата 26.2.2009, 13:53 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Советчик
****


Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 34
Всего: 454
Правильно. Замени запятую на точку.


--------------------
 О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.
PM MAIL WWW ICQ Jabber   Вверх
Avalon12x
Дата 26.2.2009, 14:36 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 26
Регистрация: 12.2.2009

Репутация: нет
Всего: нет
Цитата(Akina @  26.2.2009,  13:53 Найти цитируемый пост)
Правильно. Замени запятую на точку.


Спасибо.
Пришлось делать так:
Код
Dim StrDat As String
StrDat = Replace(CDbl(Now), ",", ".")

Adodc1.RecordSource = "Контакты WHERE [ДатаНапоминания] < " & StrDat




Это сообщение отредактировал(а) Avalon12x - 26.2.2009, 23:36
PM MAIL   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "VB6"
Akina

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по VB обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • Используйте теги [code=vb][/code] для подсветки кода. Используйтe чекбокс "транслит" (возле кнопок кодов) если у Вас нет русских шрифтов.

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Akina.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | VB6 | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0826 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.