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.