Amigos: tengo este código que funciona si existen registros que cumplan el select pero de lo contrario me da el siguiente error:
La conversión del tipo DBNULL en el tipo integer no es válida
vTotal = 0
vMes = cmbMeses.SelectedItem
vAno = cmbAno.SelectedItem
Sql = "SELECT SUM(monto) As TOTALP from pagos where status='ACTIVO' and mespago= '" & vMes & "' and ano= " & vAno & ""
cmd = New OleDbCommand(Sql, con)
dread = cmd.ExecuteReader()
While dread.Read
vTotal = dread("TOTALP")
If dread("TOTALP") Is DBNull.Value Then
txtPagado.Text = "No hay registros"
Else
txtPagado.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
Pero eso es precisamente lo que trato de controlar: que si TOTALP es 0, haga una cosa y si no, otra. Lo peor de todo es que he probado unos diez códigos diferentes pero no hay forma de que funcione. Necesito de su ayuda. Gracias!!!
