Datakilde til AxticeX, Microsoft Listveiw 6.0 (SP4)

NOSPAMeksperten@santhell.dkNOSPAM

remove NOSPAM

Hej Terry
Jeg har sendt db'en til dig

Anders.

OK, I'll take a look as soon as possible

Ok
Forsat god dag

Hi Anders,
I have placed a button on the form with this code

Private Sub cmdPopulate_Click()
Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim itmX As ListItem
   
    Set rs = New ADODB.Recordset
    With rs
       
        Set .ActiveConnection = CurrentProject.Connection
       
        .Open "Select * From lstPersoner", , , adLockOptimistic
   
        Do Until .EOF
     
            Set itmX = lstPersoner.ListItems.Add(, , rs!ID)
           
            itmX.SubItems(1) = rs!EfterNavn
            itmX.SubItems(2) = rs!Fornavn
            itmX.SubItems(3) = rs!Telefon
            itmX.SubItems(4) = rs!Mail
           
            .MoveNext
           
        Loop
       
    End With
    rs.Close

End Sub

The ListView control is actually a VB6 control so you may concider getting a vook on VB6

Hej Terry
Tak for indlægget, jeg vil teste det af senere i aften, hvis du vil må du gerne sende testdb,en til anj@bryggemail.dk

vi høres ved ved når jeg har testet.

mvh Anders.

OK, I'll send it now :o)

Hej Terry
Nu har jeg testet, og det virker jo fint, så point er på vej til dig, efter nytår vender jeg nok tilbage med et nyt spørgsmål som har relation til dette. Endnu en gang tak for hjælpen, det har hjulpet mig meget videre, jeg syntes det er sjovt st prøve noget nyt i stedet for altid at benytte en "alm." liste

God jul og godt nytår.

Anders.

Thanks Anders og god jul og godt nytår til dig også