powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Вопрос по поводу типа данных adLongVarBinary, возвращаемому из базы
3 сообщений из 3, страница 1 из 1
Вопрос по поводу типа данных adLongVarBinary, возвращаемому из базы
    #33327485
Фотография Mix
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Всем привет!

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

Сталкивался кто с таким делом?

Спасибо!
...
Рейтинг: 0 / 0
Вопрос по поводу типа данных adLongVarBinary, возвращаемому из базы
    #33327812
Фотография Mix
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Вроде понял :)
For i = 1 To LenB(rsSQL(20))
currentByte = currentByte & Chr(AscB(MidB(rsSQL(20), i, 1)))
Next

На выходе currentByte содержит всю строку в нормальном виде.
Осталось разобраться, как перегнать эту строку в бинарный вид в шеснадцатиричном представлении...:)
...
Рейтинг: 0 / 0
Вопрос по поводу типа данных adLongVarBinary, возвращаемому из базы
    #33330033
Фотография Antonariy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Mix
Код: plaintext
1.
2.
For i =  1  To LenB(rsSQL( 20 ))
currentByte = currentByte & Chr(AscB(MidB(rsSQL( 20 ), i,  1 )))
Next

Жесть ))))
Лучше так:
Код: plaintext
1.
2.
3.
4.
5.
6.
Dim r() as Byte
Dim s as String
Dim x as Integer
r=rsSQL( 20 ).GetChunck(rsSQL( 20 ).ActualSize)
For x= 0  To Ubound(r)
    s = s & Hex(r(x))
Next x
...
Рейтинг: 0 / 0
3 сообщений из 3, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Вопрос по поводу типа данных adLongVarBinary, возвращаемому из базы
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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