05. maj 2003 - 14:13Der er
13 kommentarer og 1 løsning
Access-DB i en ListView
Jeg har opsat en listView (takket være god hjælp herinde fra :)), og forsøger nu at læsse en masse info ind i den fra en Access-DB. Det går også meget godt med første person fra min DB. Men hvordan får jeg den til at looppe indtil den er nået tilslutningen af min DB ?
Do do while not ditrecordset.EOF lswPersoner.ListItems.Add 1, , rsRecordSet!FirstName lswPersoner.ListItems(1).SubItems(1) = rsRecordSet!LastName lswPersoner.ListItems(1).SubItems(2) = rsRecordSet!Telephone ditrecordset.movenext Loop
Ahr, det var måske lidt for hurtigt... Normalt vil jeg have items i rækkefølge:
Do Until rsRecordSet.EOF With lswPersoner.ListItems.Add(, , rsRecordSet!FirstName) .SubItems(1) = rsRecordSet!LastName .SubItems(2) = rsRecordSet!Telephone End With rsRecordSet.MoveNext Loop
Det der med With er bare en personlig præference. Din egen kode kaldte ListItems.Add med 1 som parameteren Index. Det betyder at alle elementer sættes ind øverst i listen, hvilket igen betyder at listen bliver sorteret i omvendt orden. Det kan jo også være godt nok, hvis det er det man ønsker...
Har du en rimeligt ny Service Pack på din VB? Ellers prøv at opdatere til SP5.
Alternativt, prøv:
Do Until rsRecordSet.EOF With lswPersoner.ListItems.Add .Text = rsRecordSet!FirstName .SubItems(1) = rsRecordSet!LastName .SubItems(2) = rsRecordSet!Telephone End With rsRecordSet.MoveNext Loop
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.
