Použití Data Environment Designeru ve VB 6.0
Pro zobrazení dat lze ve formuláři použít buď datově navázané komponenty (Data Bound Controls) nebo klasické komponenty a zobrazení dat si vytvořit programově. Osobně dávám přednost druhé možnosti, protože jako každý správný programátor mám rád nad vším kontrolu (ne že bych nevěřil Microsoftu, VB je skvělý produkt, ale už jsem jim pár chyb načapal a většinou to bylo právě v datovém stroji).
Takže pro zobrazení dat použijeme prvek ListView z Microsoft Common Controls 6.0 (SP3). Prvku nastavíme sloupce Příjmení, Jméno a Telefon, zobrazení na lvwReport, LabelEdit na Manual, zaškrtneme FullRowSelect a GridLines a jméno ListView na Seznam.
Nyní k zobrazení dat. První krok, který je třeba udělat, je spustit příkaz pro výběr dat.
1. If
De.rssSeznam.State = 0 Then
2. De.sSeznam
3. Else
4. De.rssSeznam.Close
5. De.rssSeznam.Open
6. End If
Vlastnost State (řádek 1) určuje, zda je již objekt otevřený či nikoliv. To se hodí obzvláště v rozsáhlejší aplikaci, kdy se okno může otevírat a zavírat víckrát. Takže pokud ještě objekt otevřený, zaktivujeme ho (řádek 2). Pokud byl ale již objekt otevřený nebo aktivovaný , je třeba vybraná dat občerstvit (řádky 4 a 5). Asi se divíte, proč nepoužiji místo dvou příkazů metodu Requery. PROTOŽE JE V NÍ CHYBA (nebo alespoň byla). Po použití této metody se recordset stává nepřístupným pro aktualizaci dat.
A načteme data. Nadeklarujte si ještě proměnou pro přidávání záznamů do ListView:
Dim IndX As ListItem
A nyní cyklus a načtení dat.
If Not De.rssSeznam.RecordCount = 0 Then
De.rssSeznam.MoveFirst
Do While Not De.rssSeznam.EOF
Set IndX = Seznam.ListItems.Add( , , ,De.rssSeznam!Prijmeni)
IndX.SubItems(1) = De.rssSeznam!Jmeno
IndX.SubItems(2) = De.rssSeznam!Cislo
De.rssSeznam.MoveNext
Loop
End If
Pokud je RecordCount=0, pak v tabulce nejsou žádná data a není co načítat. Pokud ne, přesuneme ukazatel na první záznam a dokud není konec recordsetu (EOF) přidávám položky do ListView. Výsledek by měl vypadat náledovně:
Samozřejmě se předpokládá, že máte v tabulce nějaká data.