Tady si můžeš stáhnout přílohu
http://wall.cz/index.php?m=topic&id=23792
V ukázkové třídě najdeš jak na ADO - např. ověření zda je recordset prázdný atd.citovat
Takhle chtel bych to do listboxu. Bohuzel nazvy sloupcu se mi tam nezadarilo vlozit. Proto si rikam vytvorim si dve pole hlavicku a data a nejakym jednoduchym zpusobem bych je sloucil problem ze nevim jak?citovat
Do hlavičky ListBoxu dostaneš názvy sloupců jedině přes list a vlastnost (ListBoxu) RowSource. Jinak budeš mít sloupce v prvním řádku ListBoxu - prostě se jakoby zamíchají mezi data.
Budˇ to tedy naimportuj do listu (pole na názvy sloupců a CopyFromRecordset pro data) a pak použij RowSource pro naplněni ListBoxu...
nebo
si nad ListBoxem vytvoř Labely a dopiš růčo názvy sloupců a naplň recordset rovnou do ListBoxu
právě přes list jsem to nechtěl...proto to chci řešit přes dvě pole, ale žádný jednoduchý způsob na sloučení jsem nenašel...
s těmi labely je to dobrý nápad, ale mě se počet sloupců bude měnit...
ještě mě napadlo vytvořit si třetí pole,které by bylo větší o jeden řádek než ADORecordset.Recordcount do tohoto polebych vložil ADORecordset.GetRows a pak pole na polední řádek pole , pole hlavička...ovšem hlavicku mam na konci novevytvoreneho pole:O(citovat
No pak bude platit, že názvy sloupců budou zamíchané mezi daty. To pak může při dalším práci s ListBoxem znamenat problém, hlavně když to bude používat někdo jiný, případně další kód VBA. Taky se ti schovají až budeš používat posuvník.
Jestli tě nenapadne jak dostat názvy sloupců nahoru (seřazení apod) budeš muset asi přelít pole získané pomocí GetRows.