Forums Últimos mensajes - Powered by IBM
 
Tags Palabras claves

Null

11/04/2005 - 11:03 por andres | Informe spam
Hola, mi problema es que si la tabla esta vacia el siguiente codigo me saca
una excepcion,porque no puede hacer un select max(...) de un valor que no
existe.
¿como puedo mediante un if...end if , decir que si es null que se vaya al
elsees que he provado dbnull,null pero no se como utilizarlo?

Un saludo

Dim numero As Integer
Dim cad As String = "select max(vnventa) from ventas"
'crear comando de seleccion del ultimo codigo para aumentarlo en 1
Dim dr As New OleDb.OleDbCommand(cad, OleDbConnection1)
Me.OleDbConnection1.Open()
'al datareader le asignamos el comando
Dim datare As OleDb.OleDbDataReader =
dr.ExecuteReader(CommandBehavior.CloseConnection)
'leo cual es el ultimo codigo
'If Val(datare.Item(0)) Is DBNull Then

'End If
Do While datare.Read
numero = Val(datare.Item(0))
Loop
Me.OleDbConnection1.Close()
 

Leer las respuestas

#1 Eduardo A. Morcillo [MS MVP VB]
11/04/2005 - 15:36 | Informe spam
Utiliza el metodo IsDBNull del datareader para saber si el campo es NULL y
actua de acuerdo a ese resultado:

datare.Read()

If datare.IsDBNull(0) Then
numero = 1
Else
numero = datare.GetInt32(0) + 1
End If

Eduardo A. Morcillo [MS MVP VB]
http://www.mvps.org/emorcillo
https://mvp.support.microsoft.com/p...4EF5A4191C

Preguntas similares