the conversion of a varchar data type to a datetime data type resulted in an out-of-rane v / Visual Basic

Мобильная версия Контакт Правила FAQ Помощь

Гость

Войти | Регистрация | Профиль | Очистить

Форумы | Пользователи | Статистика | Мод. лог | Поиск

Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр

Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / the conversion of a varchar data type to a datetime data type resulted in an out-of-rane v

15 сообщений из 15, страница 1 из 1

the conversion of a varchar data type to a datetime data type resulted in an out-of-rane v

#39116413

bibl2008

Гость

Привет!
Помогите, пожалуйста, новичку.
Куски кода, касающиеся проблемы:

Код: vbnet

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.

'Блок, рассчитывающий отчетный период
'Текущая дата
CurDate=Date
dd=mid(CurDate,1,2)
mm=mid(CurDate,4,2)
yy=mid(CurDate,7)

'Конец отчетного периода
LDate=Date()-1
ldd=mid(LDate,1,2)
lmm=mid(LDate,4,2)
lyy=mid(LDate,7)

'Формирование даты
LDate = ldd & "." & lmm & "." & lyy
LSQLDATE = lyy & "-" & lmm & "-" & ldd & " 12:00:00.000"

'Начало отчетного периода
FDate=Date()-7
fdd=mid(FDate,1,2)
fmm=mid(FDate,4,2)
fyy=mid(FDate,7)
	
'Формирование даты
FDate = fdd & "." & fmm & "." & fyy
FSQLDATE = fyy & "-" & fmm & "-" & fdd & " 12:00:00.000"
FLDate=dd & mm & yy
'Конец блока
Set rs = objConnection.Execute("select count (*) As N from dbo.events where EVENTID in ('624', '4720') and EVENT_DATE>='" & FSQLDATE & "' and EVENT_DATE<='" & LSQLDATE & "';")
	N = CStr(rs("N"))

Скриншот с ошибкой во вложении.

...

Рейтинг:

0 / 0

30.11.2015, 15:26

| Ответить | Цитировать | Написать

the conversion of a varchar data type to a datetime data type resulted in an out-of-rane v

#39116428

Akina

Участник

Откуда: Зеленоград, Москва, Россия

Сообщения: 20 644

Рейтинг: 0 / 0

bibl2008Куски кода, касающиеся проблемы:
Для отладки замените

Код: javascript

Set rs = objConnection.Execute("select count (*) As N from dbo.events where EVENTID in ('624', '4720') and EVENT_DATE>='" & FSQLDATE & "' and EVENT_DATE<='" & LSQLDATE & "';")

на

Код: javascript

1.
2.
3.

strSQL = "select count (*) As N from dbo.events where EVENTID in ('624', '4720') and EVENT_DATE>='" & FSQLDATE & "' and EVENT_DATE<='" & LSQLDATE & "';"
MsgBox "'" & strSQL & "'"
Set rs = objConnection.Execute(strSQL)

и покажите, что именно передаётся серверу.

...

Рейтинг:

0 / 0

30.11.2015, 15:35

| Ответить | Цитировать | Написать

the conversion of a varchar data type to a datetime data type resulted in an out-of-rane v

#39116446

bibl2008

Гость

вот,что вышло:

...

Рейтинг:

0 / 0

30.11.2015, 15:45

| Ответить | Цитировать | Написать

the conversion of a varchar data type to a datetime data type resulted in an out-of-rane v

#39116450

Shocker.Pro

Участник

Откуда: ->|<- :адуктО

Сообщения: 23 134

Рейтинг: 0 / 0

bibl2008,

Код: vbnet

dd=mid(CurDate,1,2)

с чего ты решил, что в dd попадет именно день? Это будет зависеть от региональных настроек в панели управления и день там совсем не гарантируется.

Код: vbnet

strSQL = "select count (*) As N from dbo.events where EVENTID in ('624', '4720') and EVENT_DATE BETWEEN '" & Format(Curdate, "yyyy-mm-dd") & "' and '" & Format(LDate, "yyyy-mm-dd") & "'"

...

Рейтинг:

0 / 0

30.11.2015, 15:46

| Ответить | Цитировать | Написать

the conversion of a varchar data type to a datetime data type resulted in an out-of-rane v

#39116451

Shocker.Pro

Участник

Откуда: ->|<- :адуктО

Сообщения: 23 134

Рейтинг: 0 / 0

bibl2008вот,что вышло:вот видишь. У тебя день вместо месяца

...

Рейтинг:

0 / 0

30.11.2015, 15:47

| Ответить | Цитировать | Написать

the conversion of a varchar data type to a datetime data type resulted in an out-of-rane v

#39116453

bibl2008

Гость

Да, уже понял в чем причина. Подскажите, как исправить - пока не могу сообразить?

...

Рейтинг:

0 / 0

30.11.2015, 15:50

| Ответить | Цитировать | Написать

the conversion of a varchar data type to a datetime data type resulted in an out-of-rane v

#39116461

Shocker.Pro

Участник

Откуда: ->|<- :адуктО

Сообщения: 23 134

Рейтинг: 0 / 0

есть функции Day, Month, Year
(format что-то не захотел, видимо нет в VBS)

...

Рейтинг:

0 / 0

30.11.2015, 15:51

| Ответить | Цитировать | Написать

the conversion of a varchar data type to a datetime data type resulted in an out-of-rane v

#39116534

Antonariy

Участник

Откуда: ☭

Сообщения: 80 221

Рейтинг: 0 / 0

Код: vbnet

2015-23-11Т12:00:00.000

...

Рейтинг:

0 / 0

30.11.2015, 16:40

| Ответить | Цитировать | Написать

the conversion of a varchar data type to a datetime data type resulted in an out-of-rane v

#39116561

Shocker.Pro

Участник

Откуда: ->|<- :адуктО

Сообщения: 23 134

Рейтинг: 0 / 0

Antonariy

Код: vbnet

2015-23-11Т12:00:00.000

необязательно

...

Рейтинг:

0 / 0

30.11.2015, 17:03

| Ответить | Цитировать | Написать

the conversion of a varchar data type to a datetime data type resulted in an out-of-rane v

#39116695

Akina

Участник

Откуда: Зеленоград, Москва, Россия

Сообщения: 20 644

Рейтинг: 0 / 0

bibl2008как исправить
Во-первых, используйте строгую типизацию. Иначе Ваше гениальное

Код: vbnet

dd=mid(CurDate,1,2)

проживёт до первого изменения региональных настроек.
Во-вторых, не делайте вручную то, для чего есть функция FormatDateTime.

...

Рейтинг:

0 / 0

30.11.2015, 18:52

| Ответить | Цитировать | Написать

the conversion of a varchar data type to a datetime data type resulted in an out-of-rane v

#39116926

скукотища

Гость

Akina,
у клиента VB S . Откуда строгая типизация...

...

Рейтинг:

0 / 0

01.12.2015, 06:31

| Ответить | Цитировать | Написать

the conversion of a varchar data type to a datetime data type resulted in an out-of-rane v

#39116929

скукотища

Гость

bibl2008,
если в системе, где выполняется скрипт, установлена русская локаль, то можно и так:

Код: vbnet

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.

'Блок, рассчитывающий отчетный период
dim prevLocale
prevLocale = SetLocale("ru-ru")

'Текущая дата
CurDate=Date
dd=mid(CurDate,1,2)
{ ... ваш код без изменений}

SetLocale(prevLocale)
'Конец блока

Но правильнее, как указал Shocker.Pro, использовать функции для работы с датами Year, Month, Day.

Код: vbnet

1.
2.
3.
4.
5.
6.

CurDate = Date()
dd = Right("0"& Day(CurDate), 2)
mm = Right("0"& Month(CurDate), 2)
yy = Year(CurDate)

Wscript.Echo "SQLTIMESTAMP: '"& yy &"-"& mm &"-"& dd &" 12:00:00.000"& "'"

...

Рейтинг:

0 / 0

01.12.2015, 06:56

| Ответить | Цитировать | Написать

the conversion of a varchar data type to a datetime data type resulted in an out-of-rane v

#39116970

Akina

Участник

Откуда: Зеленоград, Москва, Россия

Сообщения: 20 644

Рейтинг: 0 / 0

скукотищау клиента VB S . Откуда строгая типизация...
Вот именно. Её надо ввести в порядке самодисциплины. Чтобы избегать соблазнов на месте строкового аргумента отдавать дату и прочее - одним словом, избежать неявных преобразований типов, которые выполняются порой вовсе не так, как рассчитывает автор, а делать всё это явно. Дополнительный CStr() рук не оборвёт - он всё равно выполняется,- а однозначности добавит.

...

Рейтинг:

0 / 0

01.12.2015, 09:07

| Ответить | Цитировать | Написать

the conversion of a varchar data type to a datetime data type resulted in an out-of-rane v

#39117066

скукотища

Гость

Akina,

OFF... и перекроить код VBS наподобие VB/VBA ;-)

ИМХО, _лишние_ "преобразования типов" делают скрипт менее читабельным.
Да и производительность вроде как проседает:

Код: vbnet

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.

option explicit

dim CurDate, strCurYear, UpBound, t, z

CurDate = Date()
UpBound = 1000000


REM implicit "conversion"
t = timer()
for z = 1 to UpBound
    strCurYear = right( CurDate, 4 )
next
wscript.echo "implicit: "& timer() -t


REM explicit "conversion"
t = timer()
for z = 1 to UpBound
    strCurYear = right( CStr(CurDate), 4 )
next
wscript.echo "explicit: "& timer() -t


REM implicit: 2,296875
REM explicit: 2,515625

...

Рейтинг:

0 / 0

01.12.2015, 10:50

| Ответить | Цитировать | Написать

the conversion of a varchar data type to a datetime data type resulted in an out-of-rane v

#39118001

bibl2008

Гость

Всем спасибо за помощь! Вопрос решен.

...

Рейтинг:

0 / 0

02.12.2015, 08:57

| Ответить | Цитировать | Написать

15 сообщений из 15, страница 1 из 1

Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / the conversion of a varchar data type to a datetime data type resulted in an out-of-rane v

Цитировать

Написать

Автор*:

Ввести пароль для входа

Тема*:

Сообщение

Данное сообщение тематическое

Сообщение содержит картинки или видео 18+

Автор:

ВНИМАНИЕ! На данном подфоруме действуют строгие правила. Удостоверьтесь, что ваше сообщение соответствует им!

Форум или тема закрыты для гостей. Необходима авторизация!

Загрузить последнюю сохраненную версию

Вложение:

Вставить как галерею

Максимальный размер вложений: 4,0 МБ, аудио/видео: 8,0 МБ. Картинки большего размера ужимаются, если возможно.

Введите код, изображенный на картинке. Если код нечитаемый, кликните картинку, чтобы загрузить другой вариант.

Отправляя сообщение, я выражаю свое согласие с правилами форума и принимаю пользовательское соглашение.

Читали тему (0):

Читали форум (0):

Пользователи онлайн (0):

start [/forum/topic.php?fid=60&msg=39116453&tid=2155712]:	0ms
get settings:	9ms
get forum list:	12ms
check forum access:	4ms
check topic access:	4ms
track hit:	71ms
get topic data:	9ms
get forum data:	2ms
get page messages:	40ms
get tp. blocked users:	1ms
others:	305ms

total:	457ms