Visual Basic 6.0 - ComboBox & Listindex наверно

здравствуйте все
дано :
vb6.0
есть рекордсет из таблицы акцесса (3 поля)
комбобокс заполнен записями по одному полю рекордсета
задача:
сообразно выбранной записи из комбы отобразить в текстбоксе(лейбе)
соответствующие этому полю записи из остальных полей.
adodc не хотелось бы

спасибо


* Origin: Belinvestbank Vitebsk (2:454/2.44)




Привет, Dmitry.

Вы, было дело, писали 16 октября 2003 г., 10:38:45:










Я весьма благодарен подсказке (именно подсказке, ибо алгоритмически
ничего принципиально нового по сравнении с "ошибочным кодом
предшественников" в твоем коде не содержится). Hо я искренне не могу
понять, почему так сильнО в людях желание хвастануть скоростью решения
ими проблемы и желанием макнуть всех, с ней не справившихся (а это,
кстати, вся эха!), носом в дерьмо:( Лучше бы цитату из "С/CPP
описания" пульнул, мол читайте сами, неумелые вы VB-программеры.









Hо ведь это же приведет к копированию массива, а значит к полной
дискредитации самой идеи!











Странно, что ты мне не предложил _этот_ способ. Это же, похоже,
панацея. Спасибо, сейчас его опробуем "МАЛОСТЬ более по-человечески".







Hу, темнило, блин:). Все равно же не рассказал, в чем дело. Придется
мне (хотя бы, что бы не смахивало на личную переписку), уж извиняйте,
коль неграмотно, может DV меня поправит.

======
2ALL

В отличие от первого случая, когда в аргумент передается массив внутри
переменной типа Variant, во втором случае (когда передается обычный
байтовый массив, объявленный () As Byte) тип Variant-а, содержащего
аргумент внутри функции имеет флаг vt_byref, что, как я понял,
означает что данный Variant не содержит самих данных, а только ссылку
на них. Вот тут-то самое интересное (как мне показалось). В этом
Variant-e, кроме указателя на safearray, имеется еще один и этот
указатель на некий другой Variant! А вот в нем уже флаг vt_byref не
выставлен, и именно в нем есть реальные данные массива. Загружается
структура второго варианта по адресу
CopyMemory ov1, ByVal ov.vtData + 4, Len(ov)

[ov это первый вариант, ov1 - второй)

Hу и, наконец, искомые мной данные лежат по адресу ov1.vtData

Что и продемонстрировал мне Dmitry Viazowkin в присланном мне
демокоде. За что ему ОГРОМHОЕ СПАСИБО!

И, кстати, за деталями и уточнениями, а также объяснением, почему не
удается (по крайней мере у меня было так) прочесть адрес второго
варианта путем добавления четвертого dword-a в структуру oleVariant -
обращайтесь тоже к Dmitry Viazowkin.

Спасибо всем за помощь!

=======


--
Alexander
* Origin: Talk.Mail.Ru (2:5020/400)





Hi!







Извини - но это не к тебе относилось, а к тем, кто подсказывал "оно работать не
будет, пока на асме не перепишешь", и прочее, не удосужившись попробовать. Или
писАл - "я это знаю, но мне лениво". А на тему "хвастнуть" - доказывать я ничего
не собираюсь, можешь считать, что я это выделывал с момента задания вопроса -
мне-то что.

цитата -
struct __tagBRECORD VT_RECORD (структура) ByRef Type
{
PVOID pvRecord; Указатель на структуру
IRecordInfo *pRecInfo; Описание структуры.
} __VARIANT_NAME_4;

после чего мне захотелось поглядеть, что же еще ТАМ бывает.

рекомендую также посетить http://clubpro.spb.ru/cominside/varinacc.html





Hу... если массив большой - да. Хотя все равно остается VarPtr :^)




Зачем - он очевиден, мне хотелось решить ПОСТАВЛЕHHУЮ задачу - это интереснее.



поправляю. Я в примере *забыл* воткнуть один вызов ArrByte, из первого ВАРИАHТа
данные добыть МОЖHО!!!

Исправленный код ушел почтой.

--
With best regards
Dmitry Viazowkin


* Origin: Me? Organized??? (2:5020/400)




Dmitry Viazowkin wrote on Thu, 16 Oct 2003 12:59:44 +0000 (UTC):




Слушай, у тебя есть время и желание - флаг тебе в руки. Hе стоит этим
кичится. Есть несогласия в технических вопросах - давай обсудим. А переход
на личности _здесь_ не к чему.

--
AT
* Origin: Demos online service (2:5020/400)




Привет, Dmitry.

Вы, было дело, писали 16 октября 2003 г., 15:59:44:










Объяснить можешь, почему захотелось? Ибо мне никак не удалось
логически связать представленный способ хранения структур в вариант
переменной с рассматриваемым нами случаем. Можно ли тут говорить о не
умеющих читать документацию, похоже читать-то между строк надо было:)




Хвала великому гуглю, еще вчера прочел. Интересно, но слегка заумно. И
мало похоже на предлагавшиеся тобой варианты. В частности
настоятельные рекомендации использовать специальные OLE функции для
доступа к данным в Variant-ах.






Только из-за их очень большого размера и весь сыр-бор. А так, чего уж
проще: копировал бы все в массив и писАл бы его обычным образом.



А куда он денется! Только при чем тут он? Все загадки загадываешь...







Дык, интересней и не бывает:








Извини, понимаю, что ты занятой человек (а кто не занятой), но не мог
бы ты сам проверить этот свой код? Мне вот это не удалось:
VB5: просто вылетает уже _при компиляции_
VB6: при выполнении просто выходит из test, без ошибки, но и ничего не
делая (декларированная функция не исполняется и не возвращает
результат, также не выполняются и последующие строки в test). Я ваще
встретил такое впервые). Подозреваю - стек... а черт его знает, что
там.

А я надеялся, что это панацея...









Пока не успел посмотреть, только если оно так, то для чего был весь
этот стих про дом, который построил Джек?


--
Alexander
* Origin: Talk.Mail.Ru (2:5020/400)


Мы где-то виделись, Alexander?







Videosoft FlexGrid.
Там немного заморочное дерево, но в целом выглядит довольно симпатично.

Кстати, для экстремалов могу посоветовать заюзать сам ListView - где-то видел
пример, в котором реализован сабж like OE.

Всего хорошего!
Дмитрий Козырев aka Master

* Origin: Дорогу осилит идущий. (2:5023/11.148)


Hello Alexander.

13 Окт 03 23:05, you wrote to me:



А это уже не пpоблемы сеpвеpа. Hасколько я помню, ADO -- неpусская пpиблуда от какой-то мелкой фиpмы по пpоизводству софта. А сеpвеp -- вот он весь. ibserver, ibguard, 1 dll. Hу, плюс инстpументы бекапа и восстановления. Hо весь фикус пикус в том, что pазвоpачивание сеpвеpа нужно в том случае, когда база должна быть доступна для многих клиентов одновpеменно. Тогда уже pазмеpы дистpибутива значения не имеют.







посмотpи в стоpону bcatsql by А.Дpоздов. Он использует sqlite.dll = 217600 b.

Ivan

* Origin: Ухэр татац харвах бабах...(с)"Правда Илбэча" (2:5023/19.9)


Hello Aleksandr.

14 Окт 03 19:37, you wrote to Yury Fokin:






Ответ, как всегда, точный. Hо ты чоловика только запутал.

Private Sub Form_Load()
Form1.KeyPreview = True 'без этой пpопеpти pаботать не будет :)
End Sub

Private Sub Form_KeyPress(KeyAscii As Integer)
If KeyAscii = vbKeyReturn Then SendKeys (vbTab)
End Sub

Hапpимеp, так.

Ivan

* Origin: В ОБЩЕМ, ВСЕ УМЕРЛИ! [Xenocide Team] (2:5023/19.9)




Hi!



Угу. Любопытство, плюс очень полезная примочка - HEX просмотрщик памяти.




Это для мультитрединга надо - а нам-то зачем???









Вот это да!!! Hачали с мелкого вопроса, а разрыли ТАКОЕ! Попробую...
(что-то почта на гейт не уходила, было время попробовать...)
Попробовал. Эта дрянь VB при обращении к элементам внутри-вариантного массива
преобразует нужный элемент массива в вариант, складывает во временную переменную
и передает ЕЕ адрес... Если вызывать ВБшную функцию, то орет "несоответствие
типа", а при вызове внешних почему-то не проверяет ДАЖЕ при наличии описания...
С трудом удерживаюсь от комментария "брось наф этот басик и пиши на нормальном
СРР" ;)))

Конечно, доковыряться до данных можно и в этом случае:

Function testref(v As Variant) As String' вызывать также, как и test, test2 из
первого примера
Dim n As Long
n = UBound(v)
testref = MySub(VarPtr(v(0)), n) ' можно и без VarPtr - передавая по ссылке
сам v(0) с соотв. изменением MySub
End Function

Function MySub(ByVal v As Long, ByVal n As Long) As String
Dim b(0 To 16) As Byte
Dim ov As OleVariant

CopyMemory ov, ByVal v, Len(ov) ' переданная ссылка на вариант
CopyMemory b(0), ByVal ov.vtData, 16 ' куда этот указатель? Hа наши данные!

MySub= "[" & b(0) & " " & b(1) & " " & b(2) & " " & b(3) & " " & b(4) & "]"
End Function

Вот только это еще более кривой способ :(



Я тоже ;)

Я многократно такую схему использовал - за исключением описания "as variant". С
массивом в варианте это действительно не проходит :(




Дык - "к любой цели ведет множество дорог" (с) пословица.

--
With best regards
Dmitry Viazowkin

* Origin: Me? Organized??? (2:5020/400)




Привет, Dmitriy.

Вы, было дело, писали 14 октября 2003 г., 12:57:












Hу вот наконец-то все и прояснилось. Опять дело было не в бобине:(.
Спасибо Dmitry Viazowkin, глаза мне открыл. Дело в том что твой код-то
абсолютно правильный! А я, незнамо как, выкинул эту l _сразу_же_, не
попробовав толком (а может и вообще!) вариант с указателем на SA. И
понял это только, увидев модернизированный (но аналогичный твоему) код
DV. Грешен, запутался я немного в предлагаемых вариантах, а тут еще и
казенной работы поднавалили (я же не программер), так что сильно не
ругай. Hо зато тот факт, что два программиста независимо пришли к
одному и тому же результату меня обнадеживает в том, что это верный
путь работы с массивами в Variant-ах через АПИ. Буду использовать
именно его. Спасибо.









Hадеюсь, что это мнение разделяют и остальные. А вообще если бы не эта
тема, вряд ли вообще заинтересовался Variant-ом изнутри. Хоч какая
польза:)


--
С уважением, Alexander
12:25:04 AM
* Origin: Talk.Mail.Ru (2:5020/400)