if nothing

[Melly]

una cosetta veloce veloce

Come faccio in un if a chiedere se un oggetto sta a nothing

Grazie mille

[zaza2000]

Originariamente inviato da Melly
una cosetta veloce veloce

Come faccio in un if a chiedere se un oggetto sta a nothing

Grazie mille

If Is Nothing

[sebamix]

Bisogna comunque stare attenti a come si dichiara l'oggetto:
Prova:

Dim x As ADODB.Recordset
Dim y As New ADODB.Recordset

If x Is Nothing Then
    MsgBox "x is nothing"
Else
    MsgBox "x is NOT nothing"
End If

If y Is Nothing Then
    MsgBox "y is nothing"
Else
    MsgBox "y is NOT nothing"
End If

x sara' a nothing, y no...

[Melly]

Originariamente inviato da sebamix
Bisogna comunque stare attenti a come si dichiara l'oggetto:
Prova:

Dim x As ADODB.Recordset
Dim y As New ADODB.Recordset

If x Is Nothing Then
    MsgBox "x is nothing"
Else
    MsgBox "x is NOT nothing"
End If

If y Is Nothing Then
    MsgBox "y is nothing"
Else
    MsgBox "y is NOT nothing"
End If

x sara' a nothing, y no...

scusa ma non ho capito la differenza fra i due:master:



e per dire che non è nothing
if x is not nothing?

[zaza2000]

Originariamente inviato da Melly
scusa ma non ho capito la differenza fra i due:master:



e per dire che non è nothing
if x is not nothing?

uno è DICHIARATO: Dim x As ADODB.Recordset

l'altro è ISTANZIATO: Dim y As New ADODB.Recordset

[sebamix]

Originariamente inviato da Melly
scusa ma non ho capito la differenza fra i due:master:

per poter usare x lo devi istanziare dopo la dim

quindi
Dim x as ADODB.recordset
Set x = new ADODB.recordset

Se dichiari
Dim y As New ADODB.recordset e' quindi inutile cercare di capire se e' nothing o meno, tanto non lo sara' mai...

Dim x As ADODB.Recordset
Dim y As New ADODB.Recordset

Set x = New ADODB.Recordset

If x Is Nothing Then
    MsgBox "x is nothing"
Else
    MsgBox "x is NOT nothing"
End If
Set y = Nothing
If y Is Nothing Then
    MsgBox "y is nothing"
Else
    MsgBox "y is NOT nothing"
End If

Spero di essermi spiegato

[Melly]

Originariamente inviato da zaza2000
uno è DICHIARATO: Dim x As ADODB.Recordset

l'altro è ISTANZIATO: Dim y As New ADODB.Recordset

ah capito...

io non ho un recordset...

If LswElencoUI.SelectedItem Is Not Nothing Then



end if

mi da errore....

[Melly]

Originariamente inviato da sebamix
per poter usare x lo devi istanziare dopo la dim

quindi
Dim x as ADODB.recordset
Set x = new ADODB.recordset

Se dichiari
Dim y As New ADODB.recordset e' quindi inutile cercare di capire se e' nothing o meno, tanto non lo sara' mai...

Dim x As ADODB.Recordset
Dim y As New ADODB.Recordset

Set x = New ADODB.Recordset

If x Is Nothing Then
    MsgBox "x is nothing"
Else
    MsgBox "x is NOT nothing"
End If
Set y = Nothing
If y Is Nothing Then
    MsgBox "y is nothing"
Else
    MsgBox "y is NOT nothing"
End If

Spero di essermi spiegato

si grazie mille è che oggi sono un pò fagiana

[sebamix]

Originariamente inviato da Melly
ah capito...

io non ho un recordset...

If LswElencoUI.SelectedItem Is Not Nothing Then



end if

mi da errore....

Allora cambia... che errore ti da?

[zaza2000]

Originariamente inviato da sebamix
Allora cambia... che errore ti da?

Devi usare

If  NOT  X is nothing then
End If