2017-06-01 8 views
0

Ich kann nicht überprüfen, ob ein importierter Wert von SQL nach Excel Null ist. Im Debug-Modus kann ich feststellen, dass der zugewiesene Wert Null ist, d. H. Nicht die Zeichenfolge "Null". Habe versucht ist nichts wie in meinem Codebeispiel, sondern auch isEmpty und = "Null".Überprüfen, ob das Objekt Null in Excel ist VBA

Es ist die Zeile Wenn dbList (2) Nichts ist dann in dem Code unten, dass ich Probleme mit habe.

Wie kann ich überprüfen, ob das Recordset Null ist?

... 
Dim CmdSP As New ADODB.Command 
CmdSP.CommandType = adCmdText 
CmdSP.CommandText = "SELECT FundName, FundId, SRL.Comment FROM XXX SRL ON XXX = XXX ORDER BY FundName ASC" 

CmdSP.ActiveConnection = dbConn 

Dim dbList As ADODB.Recordset 
Set dbList = CmdSP.Execute 

Dim row As Integer 
row = 1 
While Not dbList.EOF 
    DataStorage.Range("dsFundsTopLeft")(row, 2) = dbList(0) 
    DataStorage.Range("dsFundsTopLeft")(row, 3) = dbList(1) 
    If dbList(2) Is Nothing Then 
     DataStorage.Range("dsFundsTopLeft")(row, 4) = "No rating" 
    Else 
     DataStorage.Range("dsFundsTopLeft")(row, 4) = dbList(2) 
    End If 
    dbList.MoveNext 
    row = row + 1 
Wend 
... 
+0

Vor 'Wenn DBListe (2) Nichts ist ein' Debug.Print Type-Name (DBListe (2)) 'Then' zu setzen - was ist der Ausgang? –

Antwort

1

Try Funktion isNull

If isNull(dbList(2)) Then 
+0

Ich fühle mich jetzt dumm, aber die Funktion war nicht gültig, als ich es vorher versuchte. Muss es falsch geschrieben haben! – David

Verwandte Themen