[VB6] Ricerca campi con valore NULL

[printlist]

Qualcuno sa dirmi per cortesia come Faccio a filtrare in una list View dei record che Hanno un valore NULL.Il codice Che ho Usato è Questo Grazie Anticipatamente.


Private Sub Form_Load()


Dim itmX As ListItem
Dim DB As Database
Dim sQL As String
ListView1.ListItems.Clear
sQL = "select * from Rubrica where Data Chiusura is null"

Set DB = OpenDatabase(App.Path & "\Agenda.mdb")
Set rs = DB.OpenRecordset(sQL)
Do Until rs.EOF
Set itmX = ListView1.ListItems.Add()

With rs
itmX.Text = .Fields("ID")
itmX.SubItems(1) = .Fields("O_F")
itmX.SubItems(2) = .Fields("Piano")
itmX.SubItems(3) = .Fields("Call_Center")
itmX.SubItems(4) = .Fields("Operatore_SIT")
itmX.SubItems(5) = .Fields("Data Apertura")
itmX.SubItems(6) = .Fields("Data Chiusura")

rs.MoveNext
End With
Loop

End Sub

[alka]

Ho corretto il titolo e spostato la discussione nel forum dedicato a Visual Basic.

Il linguaggio (e la versione) sono obbligatoriamente da indicare nel titolo, come da Regolamento.

Ciao!

[XWolverineX]

BHe per controllare il campo puoi fare

if isnull(espressione) then
'è null
else
'non è null
endif

[MdE2005]

Se poi vuoi filtrare tutto DOPO aver inserito i campi nella ListView fai così:

Private Sub Form_Load()
For i = 1 To ListView1.ListItems.Count
    If ListView1.ListItems(i) = Null Then
        'inserisci quello che vuoi fare
        For k = 1 To 6 'CONTROLLA I SUBITEMS
            If ListView1.ListItems(i).SubItems(k) = Null Then
            'inserisci quello che vuoi fare
            End If
        Next k
    End If
Next i
End Sub

facci sapere..

ciao

[printlist]

Purtoppo Ho bisogno che i Dati filtrati vengano caricati All'avvio Del Form.Quando eseguo il Debug Mi da Sempre L'errore "Errore di sintassi (Operatore Mancante) nell'espressione della Query "Data Chiusura Is Null".Grazie

[MdE2005]

Prova a mettere al posto di "is null"

= Null 
'o addirittura 
= ""

[TRC]

Posso rispolverare il topic per chiedere un chiarimento concettuale?
Perchè l'enunciato IF scritto così:

If IsNull(RS(0).Value) Then
    'Codice
End If

funziona, ovvero esegue "'Codice" ed invece così no:

If RS(0).Value = Null Then
    'Codice
End If

e nemmeno così:

If RS(0).Value = "" Then
    'Codice
End If

:master:

Esegubile su VB6; RS(0) è vuoto, anche se in precedenti sessioni del programma proprio quel campo di quel record lì è stato scritto.

Grazie