powered by simpleCommunicator - 2.0.56     © 2025 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Почему Recordset не понимает формат даты ???
9 сообщений из 9, страница 1 из 1
Почему Recordset не понимает формат даты ???
    #32271546
23a77
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Пишу следущее предложение

Rec_fr.Open ("SELECT * FROM XXX where DATE_DOC = {d '2003-06-06'}")

Выдается сообщение об ошибке

Run-Time Error '-2147217900 (80040e14)'
Неверно сформированный код GUID. в выражении запроса 'DATE_DOC = {d '2003-06-06'}'
...
Рейтинг: 0 / 0
Почему Recordset не понимает формат даты ???
    #32271573
Фотография tpg
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
А так?

Rec_fr.Open ("SELECT * FROM XXX where DATE_DOC = '2003-06-06'")
...
Рейтинг: 0 / 0
Почему Recordset не понимает формат даты ???
    #32271575
Фотография tpg
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Пардон! Я имел в виду

Rec_fr.Open ("SELECT * FROM XXX where DATE_DOC = '20030606'")
...
Рейтинг: 0 / 0
Почему Recordset не понимает формат даты ???
    #32271607
23a77
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
А так выдает ошибку вида
Run-time error '-2147217913 (80040e07)'
Несоответствие типов данных в выражении условия отбора.

Как быть ???
...
Рейтинг: 0 / 0
Почему Recordset не понимает формат даты ???
    #32271816
Фотография Nrisimha
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Делаю в своих прогах примертно так:
Код: plaintext
1.
2.
3.
4.
5.
strFilter =  "([Min-DateChet]>=#"  & _
            strSqlDate(Me.txtFrom) &  "# and "  & _
             "[Max-DateChet]<=#"  & _
            strSqlDate(Me.txtTo) &  "#) " 
clsS.rsRecset.Filter = strFilter


В твоей сделал бы так
Код: plaintext
1.
Rec_fr.Open ( "SELECT * FROM XXX where DATE_DOC = #"  & strSqlDate(TvoiaData) &  "#"  )


А эта примочка делает совместимость русских-английйских параметров дат:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
Public Function strSqlDate(ByVal ddDate As Date) As String
Dim dday As Integer
Dim dMonth As Integer
Dim dYear As Integer
dday = Day(ddDate)
dMonth = Month(ddDate)
dYear = Year(ddDate)
strSqlDate = dday &  "/"  & dMonth &  "/"  & dYear
strSqlDate = dMonth &  "/"  & dday &  "/"  & dYear
strSqlDate = dYear &  "/"  & dMonth &  "/"  & dday
End Function
...
Рейтинг: 0 / 0
Почему Recordset не понимает формат даты ???
    #32271913
Shkurenko Alexander
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Ууу.. нет на вас ЛОХА ПОЗОРНОГО. Он бы ввернул пару крепких.\r
\r
см здесь, VBA v2: \r
\r
to Nrisimha \r
твой вариант тоже имеет место быть, только фунция твоя настолько коряво написана, что и говорить даже не хочется. Писать нужно проще, тогда и код красивый и понятный получится.\r
Код: plaintext
1.
2.
Function strDateSQL(ByVal d As Date) As String\r
    strDateSQL = Month(d) &  "/"  & Day(d) &  "/"  & Year(d)\r
End Function
...
Рейтинг: 0 / 0
Почему Recordset не понимает формат даты ???
    #32272110
23a77
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
to Shkurenko Alexander

Большое ВАМ ЧЕЛОВЕЧЕСКОЕ СПАСИБО!!!

даже не смотря на обзывания ((((
...
Рейтинг: 0 / 0
Почему Recordset не понимает формат даты ???
    #32272123
Shkurenko Alexander
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
> даже не смотря на обзывания ((((

В своем посте я никого не обзывал. ЛОХ ПОЗОРНЫЙ - ник реально существующего человека, который любит приложить крепким словцом. Если кого-нибудь обидел прошу меня извенить.
...
Рейтинг: 0 / 0
Почему Recordset не понимает формат даты ???
    #32272157
Фотография ulis
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
а запрос то к какой базе? К mssql ?
...
Рейтинг: 0 / 0
9 сообщений из 9, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Почему Recordset не понимает формат даты ???
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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