Модераторы: Akina
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Проблема с дробными числами... 
:(
    Опции темы
Baa
Дата 11.10.2002, 08:31 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Экс. модератор
Сообщений: 2639
Регистрация: 12.4.2002
Где: Москва

Репутация: нет
Всего: 12



Есть у нас два дробных числа...
А далее, нам надо составить запрос сикульный на внесение этого числа в табличку... но тут возникает проблема, сикул ругается на зяпятую в числе... Точку он хочет... че делать?


--------------------
"Duty is everything; the greatest of joys, the deepest of sorrows" Aribeth de Tylmarande
PM ICQ   Вверх
Vit
Дата 11.10.2002, 08:54 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Vitaly Nevzorov
****


Профиль
Группа: Экс. модератор
Сообщений: 10964
Регистрация: 25.3.2002
Где: Chicago

Репутация: нет
Всего: 207



1) Пишем кверю с параметрами
2) Передаём все числа в крерю через параметры

Суть вот в чём. Если ты посылаешь кверю на сервер, то вовсе не факт, что национальные кодировки на сервере те же что и в программе, а если через параметры, то сервер сам преобразует их к нужному виду.


--------------------
With the best wishes, Vit
I have done so much with so little for so long that I am now qualified to do anything with nothing
Самый большой Delphi FAQ на русском языке здесь: www.drkb.ru
PM MAIL WWW ICQ   Вверх
Baa
Дата 11.10.2002, 09:38 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Экс. модератор
Сообщений: 2639
Регистрация: 12.4.2002
Где: Москва

Репутация: нет
Всего: 12



Дык дело в том, что такой же код, токо на яваскрипте отлично работает... ну нужен именно вбс...
Вот как тут чего передать?
з.ы. я басик жутко фигово знаю :)
strDSN = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=Billing1;Data Source=SERVER"

Set objConn = WScript.CreateObject("ADODB.Connection")
Set objRs1 =  WScript.CreateObject("ADODB.RecordSet")


objConn.Open strDSN
strSQL = "SELECT * FROM tblUsers"
objRs1.Open strSQL, strDSN
objRs1.MoveFirst()

do while not (objRs1.EOF)

ID = objRs1.Fields("ID").Value
US = objRs1.Fields("UserSumm").Value
UserSummNew = US - 0.75
strSQL = "UPDATE tblUsers SET UserSumm = " & UserSummNew & " WHERE ID = "  & ID
WScript.echo (strSQL)
objConn.Execute (strSQL)
objRs1.MoveNext()
Loop
objRs1.Close()
objConn.Close()


--------------------
"Duty is everything; the greatest of joys, the deepest of sorrows" Aribeth de Tylmarande
PM ICQ   Вверх
Vit
Дата 11.10.2002, 11:08 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Vitaly Nevzorov
****


Профиль
Группа: Экс. модератор
Сообщений: 10964
Регистрация: 25.3.2002
Где: Chicago

Репутация: нет
Всего: 207



А если точку на запятую заменить? Разница может быть в том что одни языки могут точку считать всегда десятичным разделителем, а другие брать значение десятичного разделителя из текущих установок винды...


--------------------
With the best wishes, Vit
I have done so much with so little for so long that I am now qualified to do anything with nothing
Самый большой Delphi FAQ на русском языке здесь: www.drkb.ru
PM MAIL WWW ICQ   Вверх
Baa
Дата 11.10.2002, 19:33 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Экс. модератор
Сообщений: 2639
Регистрация: 12.4.2002
Где: Москва

Репутация: нет
Всего: 12



О! Пасибо те! :) Поменял в винде и его перестало клинить... вообще, это маразм, что он так делает...


--------------------
"Duty is everything; the greatest of joys, the deepest of sorrows" Aribeth de Tylmarande
PM ICQ   Вверх
Vit
Дата 11.10.2002, 23:49 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Vitaly Nevzorov
****


Профиль
Группа: Экс. модератор
Сообщений: 10964
Регистрация: 25.3.2002
Где: Chicago

Репутация: нет
Всего: 207



Просто Java - многоплатформенная, поэтому десятичный разделитель найти не в состоянии и использует только точку, а VB - только под винду, там национальные форматы чётко определены, вот и берёт формат винды...


--------------------
With the best wishes, Vit
I have done so much with so little for so long that I am now qualified to do anything with nothing
Самый большой Delphi FAQ на русском языке здесь: www.drkb.ru
PM MAIL WWW ICQ   Вверх
  
Ответ в темуСоздание новой темы Создание опроса
Правила форума "VB6"
Akina

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по VB обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • Используйте теги [code=vb][/code] для подсветки кода. Используйтe чекбокс "транслит" (возле кнопок кодов) если у Вас нет русских шрифтов.


Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Akina.

 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | VB6 | Следующая тема »


 




[ Время генерации скрипта: 0.0634 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.