Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / 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):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 382ms
Закрыть
start [/forum/topic.php?fid=45&mobile=1&tid=1682552]:
 0ms
get settings:
 10ms
get forum list:
 21ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 49ms
get topic data:
 12ms
get forum data:
 3ms
get page messages:
 33ms
get tp. blocked users:
 2ms
others: 244ms
total:  382ms
x
x
Закрыть


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