ExecuteScalar

[Wilotas]

Hola amigos, tengo el siguiente codigo:

' Asigno ID de usuario.

strConsulta = "Select max(id_comp) from componentes"

miCmd.CommandText = strConsulta



lblid.Text = miCmd.ExecuteScalar + 1


Lo q hace simplemente es asignar un id al insertar un componente, este id es el maximo id q hay en la tabla componentes +1, el problema viene q cuando esta vacia la tabla, me dice q DBNull + integer nanai, no hay manera...He probado a hacer un If Typeof miCmd.ExecuteScalar is DBnull para saber si va a devolver un DBNull pero no funciona, no se, a ver si a alguien se le ocurre como puedo saber si la consulta no me devuelve ningun valor o algo para solucionar esto, gracias ;)

Un saludo a todos.

[RootK]

Puedes hacerlo de 2 formas:

1.-

If Not oCmd.ExecuteScalar Is DBNull.Value Then
iTotal = oCmd.ExecuteScalar + 1
End If
...
...

y la segunda:

Dim sTotal As String
Dim iTotal As Integer

oConn.Open()
sTotal = Convert.ToString(oCmd.ExecuteScalar)
If sTotal <> "" Then
iTotal = CType(sTotal, Integer) + 1
End If
...
oConn.Close()

Salu2