La façon de traiter avec SqlDataReader des valeurs null dans VB.net

J'ai la forme suivante de code qui effectue une requête et retourne un résultat. Cependant, j'ai regardé autour et a trouvé quelques exemples à prendre soin de valeurs nulles mais j'obtiens une erreur: "Invalid tentative de lecture lorsque aucune donnée n'est présente." J'ai aussi eu l'erreur: "la Conversion de type DBNull de type "Virgule" n'est pas valide."

Quelqu'un peut-il m'aider à sortir de ce code afin de prévenir les valeurs null à partir de la plante de mon programme?

Private Sub EFFICIENCY_STACKRANK_YTD(ByVal EMPLOYEE As String)
Dim queryString As String = "SELECT " & _
" (SELECT CAST(SUM(TARGET_SECONDS) AS DECIMAL)/CAST(SUM(ROUTE_SECONDS) AS DECIMAL) FROM dbo.APE_BUSDRIVER_MAIN WITH(NOLOCK) WHERE APE_AREA_OBJID = " & lblAreaOBJID.Text & " AND EMPLOYEE_NAME = '" & EMPLOYEE & "' AND YEAR_TIME = '" & cbYear.Text & "' AND ACTIVE = 1) AS RESULT1" & _
" FROM dbo.APE_BUSDRIVER_MAIN "
Using connection As New SqlConnection(SQLConnectionStr)
Dim command As New SqlCommand(queryString, connection)
connection.Open()
Dim reader As SqlDataReader = command.ExecuteReader()
If reader.Read Then
RESULT1 = reader("RESULT1")
Else
RESULT1 = 0
End If
End Using
End Sub
Lire ma réponse à votre question. Le code permet de gérer efficacement cette déjà.

OriginalL'auteur Joseph.Scott.Garza | 2013-12-31