Булево значение TRUE на других локалях другое, помогите!

[Pantalone]

Если попробовать в дебагере VB6 в отладочном окошке набрать ?CStr(True) то результатом будет True практически на любой машине где я это тестировал с разными языковыми настройками. Мою фриварную прогу использует туча народу в мире и по отзывам все работает прекрасно, но у некоторых довольно редких людей почему-то значение True выдается не в английской интерпретации, а в их собственном языке, например один бельгиец прислал мессагу что у него не работает прога, стали разбираться и тестить и тут я обнаружил что у него значение True, если его перевести в строку будет как Vrai. Я честно говоря в ступоре... как же так? Просил его выслать msvbvm60.dll, думал он виноват, но этот файл оказался моим, т.е. моя прога его установила. Как быть, помогите, прогу перелопачивать и корректировать очень муторно будет, нельзя ли как-то флаг в компиляторе где поставить чтобы True всегда было True, а не аналог на их языке. Причем подчеркиваю, это на очень редких компах такое, я при тестировании на куче машин такого трабла не видел.

[Хакер]

Бред какой то . У тебя что в проге сравнения, вида CStr(BoolVar)="True" ? Если так, то лучше бы такая прога и не работала...

А вообще True хранится в msvbvm60 - сам менял на "Истина" когда-то.

[Pantalone]

У меня прога работает в связке с Access и он отказывается например при апдейте строки принимать это Vrai, если сделать True, то нормально обновляется. Насчет CStr(True) это я как пример привел чтобы дать понять в чем кроется трабла, Т.е. булево значение выдается не на английском языке.

[Andrey Fedorov]

Вообще-то True это лишь представление числа -1. И как оно пишется - совершенно безразлично. Так что единственный вариант неправильной работы - это ты где-то хранишь его в виде строки ("True" или "False") и потом сравниваешь... Не в реестре, случаем? Храни там число.

[Pantalone]

Ну вот например (DAO):

strSQL = "UPDATE XTable SET IsSold = " & boolValue & " WHERE ID = 1"
где boolValue - булева переменная, а IsSold логическое поле в Access.

И получаем:
strSQL = "UPDATE XTable SET IsSold = Vrai WHERE ID = 1"
Вместо
strSQL = "UPDATE XTable SET IsSold = True WHERE ID = 1"

Далее при Call dbM.Execute(strSQL ) Access корчит рожу.

[Antonariy]

Пиши
strSQL = "UPDATE XTable SET IsSold = " & Iif(boolValue, "True", "False") & " WHERE ID = 1"
или
strSQL = "UPDATE XTable SET IsSold = " & Abs(Val(boolValue)) & " WHERE ID = 1"

[alibek]

IIf(BoolValue,"1","0")

[alibek]

strSQL = "UPDATE XTable SET IsSold = " & boolValue & " WHERE ID = 1"

Используй параметрические запросы и будет тебе щастье.

[Хакер]

alibek


"За кнопки Правка не-юзанье
не получает модератор наказанье
и дажа ..."

[Pantalone]

Вы предлагаете лопатить весь код чтоли? Как это сделать и на что подменить это даже ежику понятно, вариантов масса я и сам могу вам понаписать, я спросил нельзя ли как-то сделать чтобы True было True, настройка компилятора например или еще чего такое.

[Andrey Fedorov]

IIf(BoolValue,"1","0")

Или совсем просто:

Код: Выделить всё

-BoolValue

В итоге при

Код: Выделить всё

strSQL = "UPDATE XTable SET IsSold = " & -BoolValue & " WHERE ID = 1"

Получаем:

Код: Выделить всё

UPDATE XTable SET IsSold = 1 WHERE ID = 1

Что будет работать всегда правильно.

[Gloom]

[url=http://support.microsoft.com/kb/216379]FIX: Visual Basic 6.0 Booleans are Coerced to Localized Strings
[/url]

[alibek]

я спросил нельзя ли как-то сделать чтобы True было True, настройка компилятора например или еще чего такое.

Тогда надо патчи ставить. Service Pack 6.

[Pantalone]

Патч стоит. Gloom, почитаю, спасибо.

[Andrey Fedorov]

Тогда надо патчи ставить. Service Pack 6.

IMHO, хоть и не сталкивался с таким, но это не зависит от патчей.

Просто не надо в программе использовать строчное представление булевой переменной. Только число.

[tyomitch]

На крайний случай остаётся запасной вариант: SetThreadLocale(&H409)

[Pantalone]

Нет это не работает, попробовал на своем компе чтобы True выходило по другому, не получается. Значит SetThreadLocale тут не работает.

[Pantalone]

Вот нашел кое что:

CStr() behaves differently on international VB versions, preventing VB class generation on German OS.

Because the strings True and False are localized in German, CStr(True) results in Wahr and CStr(False) results in Falsch, causing problems with the code. (The code assumes that these strings are not localized.)

Workarounds: One alternative is to change the Regional Settings to English. The other alternative is to rename the vb6de.dll file in the windows/system32 folder. The vb6de.dll contains the localized string resources for the German Visual Basic run-time. By changing the name of the dll, the default English strings will be used and the code will function correctly.

Не понял только что это за vb6de.dll и как его переимновать, причем найти его не могу.
Подозреваю что у юзера на компе стоит французский бэйсик и у него есть файл vb6fr.dll, который и косячит мне все. Но как ни странно я у себя ни vb6ru.dll ни vb6en.dll не нашел.

[Pantalone]

Разобрался, все дело в vb6fr.dll, если этот файл есть в системе, то никакого True вы не получите.

[tyomitch]

Нет это не работает, попробовал на своем компе чтобы True выходило по другому, не получается. Значит SetThreadLocale тут не работает.

Когда пишут "One alternative is to change the Regional Settings to English.", то предлагают изменить именно эту локаль.
То, что у тебя от неё строки не зависят, ещё ни о чём не говорит.

[Pantalone]

Точно это оно, файл vb6fr.dll: Visual Basic Environment International Resources.
Вот как бы теперь отключить его влияние на конкретную программу, может кто сообразит быстрее меня?

[tyomitch]

Так а что, вызвать SetThreadLocale религия не позволяет?
Ну и ладно.

[Pantalone]

Не срабатывает твой SetThreadLocale, несколько раз проверял.

Код: Выделить всё

Private Declare Function SetThreadLocale Lib "kernel32" (ByVal Locale As Long) As Long

Private Sub Form_Load()

SetThreadLocale (&H409)

MsgBox CStr(True)

End Sub

Может чего не так написал?

[tyomitch]

И что, хочешь сказать, выдаёт "Vrai"?

[Pantalone]

Да, можешь сам попробовать, прилагаю этот vb6fr.dll, его нужно поместить в system32. И в региональных настройках поставь французский язык. Проверять только в скомпилированом виде.

[Antonariy]

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

[Pantalone]

Antonariy
Ты не понял ничего.

[Pantalone]

Вот блин! Еще и выборки рекордсетов с условием на этом и других логических полях тоже улетели нафиг...

[Andrey Fedorov]

Вот блин! Еще и выборки рекордсетов с условием на этом и других логических полях тоже улетели нафиг...

Кто же виноват что ты так пишешь. Причина та же.
Пиши правильно и будет счастье...

[Pantalone]

Я пишу правильно.
"Select * From XTable Where XBoolean = " & True
Работает в связке VB + Access всегда и везде.
Это просто очередной баг VB, которых при написании проги я выявил просто немерянно. Этож надо додуматься переводить значение True к установленной локали. Все функции и прочее на инглише как было так и осталось, а тут нате, сидите на французской локали да еще с установленным файлом vb6fr.dll, так вот вам Vrai, распишитесь и делайте че хотите.