[VB6] Invalid use of null met ListView

[Slagroom]

Hallo,

Ik probeer een listview te vullen met een record set. Volgens mij werkt de code wel tot hij een lege cell tegen komt. Wanneer het programma bij een cell komt zonderwaarde zegt hij "Invalid use of null". Hier is de code:

code:

Private Sub Form_Load()
    Dim strSqlComuputers As String
    Dim rsComputers As ADODB.Recordset
    
    Dim lstItem As ListItem
    
    Dim i, j As Integer
    
    strSqlComuputers = "SELECT * From Computers"
    
    Set rsComputers = New ADODB.Recordset

    rsComputers.Open strSqlComuputers, frmMain.dbCIS, adOpenKeyset, adLockOptimistic
    
    For i = 1 To rsComputers.Fields.Count - 1
        If i = 1 Then
            lvwComputers.ColumnHeaders(i).Text = rsComputers.Fields(i).Name
        Else
            lvwComputers.ColumnHeaders.Add(i).Text = rsComputers.Fields(i).Name
        End If
        
    Next

    While Not rsComputers.EOF
        For i = 1 To rsComputers.Fields.Count - 1
            If i = 1 Then
                Set lstItem = lvwComputers.ListItems.Add(, , rsComputers(i))
            Else
                lstItem.SubItems(i) = rsComputers(i).Value
            End If
        Next
        rsComputers.MoveNext
    Wend
End Sub

Weet iemand hier iets op?

[Noordamski]

gebruik maken van iif() functie. Dus Iif(IsNull(rsComputers(i)), "", rsComputers(i).Value)

[Crazy D]

Bekijk eens op het moment dat je die error krijgt, of de value die je in de cell wilt stoppen, niet toevallig Null is... ( IsNull() functie van VB) ...

[edit]
Iif werkt bij mijn weten niet, omdat alle parameters eerst bekeken worden. Als value null is, krijg je nog steeds die error.. (dacht ik )

[ Voor 34% gewijzigd door Crazy D op 03-05-2003 11:28 ]

[Verwijderd]

Veel makkelijker is om
rsComputers(i).Value & ""
te gebruiken. Als er dan een Null value is, wordt die omgezet naar een lege string, en als er geen Null is, maakt het ook niet uit .
Dit houdt de code wat overzichtelijker dan IIf statements... (wat trouwens wel kan, want IsNull() geeft een boolean terug, pas als die false is, wordt de laatste parameter bekeken.)

[Slagroom]

Ik heb nu dit

lstItem.SubItems(i) = rsComputers(i).Value & ""

maar nu geeft hij invalid property value aan. Wat houdt dat dan in?

[Verwijderd]

Try:
lstItem.ListSubItems.Add ,,rsComputers(i).Value & ""

Dat zou moeten werken.

Maar dit gaat alleen als je rsComputers alleen maar strings bevat en niet bijv. nummers. Bij die kolommen kan je niet & "" gebruiken omdat dat alleen bij strings mag...

[Crazy D]

En daarom is het ook netter om gewoon een IsNull er omheen te ketsen (of in je query al een IsNull() zetten... select IsNull(veld1, '') As veld1, IsNull(numveld1, 0) as numveld1

[Slagroom]

Verwijderd schreef op 03 May 2003 @ 12:35:
Try:
lstItem.ListSubItems.Add ,,rsComputers(i).Value & ""

Dat zou moeten werken.

Maar dit gaat alleen als je rsComputers alleen maar strings bevat en niet bijv. nummers. Bij die kolommen kan je niet & "" gebruiken omdat dat alleen bij strings mag...

Hé! Deez werkt! Ook met getallen. Bedankt!