Гость
Войти | Профиль | Очистить
Действия ...
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / VB<=BD.access (поле as boolean отвечает на одном ПК Истина, на другом True) / 4 сообщений из 4, страница 1 из 1
12.11.2013, 13:21
    #38461730
Андрей159
Андрей159
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VB<=BD.access (поле as boolean отвечает на одном ПК Истина, на другом True)
VB<=BD.access (поле as boolean отвечает на одном ПК Истина, на другом True)


Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
Public Function TBLRecordRead(ByVal Vhid As String) As String
  On Error GoTo er
  TBLRecordRead = RemTbl.Fields(Vhid).value & ""
dali:
  Exit Function
er:
  TBLRecordRead = "Read failed!"
  Resume dali
End Function



?RemTbl.Fields(Vhid).value
Правильно

Как-то непривычно! 0 или -1 или 1 накрайняк легко отслеживать. А тут фигня какая-то получается. Как вытащить логическое значения с поля ?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
12.11.2013, 13:25
    #38461738
Андрей159
Андрей159
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VB<=BD.access (поле as boolean отвечает на одном ПК Истина, на другом True)
или это русификатор такое вытворил уродство с VB...
?RemTbl.Fields(Vhid).value = "Истина"
ответ: Правильно
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
12.11.2013, 13:28
    #38461743
Андрей159
Андрей159
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VB<=BD.access (поле as boolean отвечает на одном ПК Истина, на другом True)
я бы мог сделать через iif(.....= True,1,0).
наверное так и сделаю, так как Правильно это уродище на образ True. Только надо будет проверять Тип поля так как у меня эта функция универсальная.
Ок. Наверное тема закрыта.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
12.11.2013, 13:32
    #38461751
Андрей159
Андрей159
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VB<=BD.access (поле as boolean отвечает на одном ПК Истина, на другом True)
Заработало.
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
Public Function TBLRecordRead(ByVal Vhid As String) As String
  On Error GoTo er
  If RemTbl.Fields(Vhid).Type = 1 Then
    TBLRecordRead = IIf(RemTbl.Fields(Vhid).value = True, "True", "False")
  Else
    TBLRecordRead = RemTbl.Fields(Vhid).value & ""
  End If
dali:
  Exit Function
er:
  TBLRecordRead = "Read failed!"
  Resume dali
End Function


Я просто по сети бросаюсь данными и отлавливаю на слово "True". Просто такого не ждал. Нюанс.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / VB<=BD.access (поле as boolean отвечает на одном ПК Истина, на другом True) / 4 сообщений из 4, страница 1 из 1
Целевая тема:
Создать новую тему:
Автор:
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
созд. / загр.: 420ms
Закрыть
start [/forum/topic.php?fid=60&mobile=1&tid=2156704]:
 0ms
get settings:
 9ms
get forum list:
 14ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 47ms
get topic data:
 13ms
get forum data:
 3ms
get page messages:
 48ms
get tp. blocked users:
 2ms
others: 276ms
total:  420ms
x
x
Закрыть


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