Гость
Целевая тема:
Создать новую тему:
Автор:
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Почему Recordset не понимает формат даты ??? / 9 сообщений из 9, страница 1 из 1
22.09.2003, 12:25
    #32271546
23a77
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Почему Recordset не понимает формат даты ???
Пишу следущее предложение

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
22.09.2003, 12:42
    #32271573
tpg
tpg
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Почему Recordset не понимает формат даты ???
А так?

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

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

Как быть ???
...
Рейтинг: 0 / 0
22.09.2003, 15:06
    #32271816
Nrisimha
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Почему Recordset не понимает формат даты ???
Делаю в своих прогах примертно так:
Код: 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
22.09.2003, 16:02
    #32271913
Shkurenko Alexander
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Почему Recordset не понимает формат даты ???
Ууу.. нет на вас ЛОХА ПОЗОРНОГО. Он бы ввернул пару крепких.\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
22.09.2003, 18:17
    #32272110
23a77
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Почему Recordset не понимает формат даты ???
to Shkurenko Alexander

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

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

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


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