Un problema con DBNull en Visual Studio 2005

[alien51]

Amigos, por favor una ayuda:

Tengo el siguiente código:

Código vb:

Private Sub btnPendiente_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPendiente.Click
  vTotal = 0
  vMes = cmbMeses.SelectedItem
  vAno = cmbAno.SelectedItem
  Try
   Sql = "SELECT SUM(monto) As TOTAL from meses where status='ACTIVO' and mesactual= '" & vMes & "' and ano= " & vAno & ""
   cmd = New OleDbCommand(Sql, con)
   dread = cmd.ExecuteReader()
   While dread.Read
    vTotal = dread("TOTAL") 
    txtPendiente.Text = String.Format("{0:n2}", vTotal)
   End While
   dread.Close()
  Catch ex As Exception
   MessageBox.Show(ex.Message, "", MessageBoxButtons.OK)
  Finally
  End Try
 End Sub
 

El problema radica en que si hay registros válidos (al menos uno) funciona perfecto pero si no existen registros y el TOTAL es 0, da el siguiente error:

La conversión del tipo "DBNULL" en tipo INTEGER no es válida

Por favor, ¿como puedo prevenir que si TOTAL es Cero se salga de la rutina sin hacer nada?

He intentado varias cosas pero ninguna me funciona.

Gracias por su ayuda. Es muy urgente para mi.

[Libras]

Sql = "SELECT isnull(SUM(monto),0) As TOTAL from meses where status='ACTIVO' and mesactual= '" & vMes & "' and ano= " & vAno & ""

Con esto si tu consulta no te regresa nada "dbnull" en vez de tener el null tendrias un 0 y ahora si podrias condicionar tu codigo, si es 0 haz esto si no haz lo otro.

Saludos!

[CcarlosSnow]

Iniciado por Libras

Sql = "SELECT isnull(SUM(monto),0) As TOTAL from meses where status='ACTIVO' and mesactual= '" & vMes & "' and ano= " & vAno & ""

Con esto si tu consulta no te regresa nada "dbnull" en vez de tener el null tendrias un 0 y ahora si podrias condicionar tu codigo, si es 0 haz esto si no haz lo otro.

Saludos!

coincido con esta respuesta saludos!

[omar190]

Puedes hacer lo que ya te indican o tambien puedes validar desde el mismo visual con la funcion isdbnull(campo), te arroja true o false segun sea el caso.

[alien51]

Gracias amigos pero ahora me genera este error usando esta línea:

Código vb:

Sql = "SELECT isnull(SUM(monto),0) As TOTAL from meses where status='ACTIVO' and mesactual= '" & vMes & "' and ano= " & vAno & "
 

Se utilizó un número incorrecto de argumentos con la función en la expresión de consulta 'isnull(SUM(monto),0)'


Intenté también con esto: (nullcheck es boolean)

Código vb:

While dread.Read
    vTotal = dread("TOTAL")
    nullCheck = IsDBNull("TOTAL")
    If nullCheck Then
     txtPendiente.Text = "No hay registros"
    Else
     txtPendiente.Text = String.Format("{0:n2}", vTotal)
End If
 

Pero da el mismo error de antes:

La conversión del tipo "DBNULL" en tipo INTEGER no es válida

[alien51]

Gracias a todos. Por fin logré solucionarlo con este código: Si a alguien le sirve, aquí lo dejo. Funciona OK!!

Código vb:

Sql = "SELECT SUM(monto) As TOTALM from meses where status='ACTIVO' and mesactual= '" & vMes & "' and ano= " & vAno & ""
   cmd = New OleDbCommand(Sql, con)
   dread = cmd.ExecuteReader()
   While dread.Read
    If dread("TOTALM") Is DBNull.Value Then
     txtPendiente.Text = "No hay registros"
    Else
     vTotal = dread("TOTALM")
     txtPendiente.Text = String.Format("{0:n2}", vTotal)
    End If
   End While
   dread.Close()
  Catch ex As Exception
   MessageBox.Show(ex.Message, "", MessageBoxButtons.OK)
  Finally
  End Try