Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Передача Short Date в ADODB.Command / 1 сообщений из 1, страница 1 из 1
15.01.2003, 11:17
    #32090944
Denis Fadejev
Denis Fadejev
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Передача Short Date в ADODB.Command
Вот такой код
Таблица Contract существует,
данные подходящие под условие тоже,
пробовал Type менять- не помогло,
возвращает 0 записей (rs.RecordCount=-1)
я неправильно дату вставляю?
или что я неправильно делаю?

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
Dim rs As New ADODB.Recordset
Dim cn As ADODB.Connection
Dim cmd As New ADODB.Command
Dim strSql As String
Set cn = CurrentProject.Connection
Set cmd.ActiveConnection = cn
strSql =  "select id from Contract where (start_date between  @DFROM and @DTO );" 
cmd.CommandText = strSql
cmd.Parameters( "@DFROM" ).Type = adDate
cmd.Parameters( "@DFROM" ) = CDate(# 1 / 1 / 1000 #)
cmd.Parameters( "@DTO" ).Type = adDate
cmd.Parameters( "@DTO" ) = CDate(# 1 / 1 / 3000 #)
rs.Open cmd
Debug.Print rs.RecordCount
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Передача Short Date в ADODB.Command / 1 сообщений из 1, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 316ms
Закрыть
start [/forum/topic.php?fid=45&tablet=1&tid=1682552]:
 0ms
get settings:
 7ms
get forum list:
 20ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 36ms
get topic data:
 10ms
get forum data:
 2ms
get page messages:
 23ms
get tp. blocked users:
 1ms
others: 211ms
total:  316ms
x
x
Закрыть


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