Campo Null en recorset de vb

juanes_w

Lanero Regular
7 Jun 2006
38
hola, resulta que hago una consulta a la base de datos para averiguar cual es el mayor
codigo para luego sumarle uno (1), pero como la Base de datos esta en blanco la
consulta me devuelve valores NULL en la consulta. y cuando hago un if para ver si trae Null
no entra a este.
If Datos.Fields(0) = Null Then
maximo = 325
End If
como puedo solucionar este problema si utilizo la biblioteca recorset para codigo ADO,
ya que no puedo utilizar campos autoincrmentables.

Codigo:

Private Sub Form_Load()

Set Conex = New Connection
Conex.CursorLocation = adUseClient
Conex.Open "PROVIDER=Microsoft.Jet.OLEDB.3.51;Data Source=" + App.Path + "\dbpres.mdb;"
Set Datos = New Recordset
'ejecuto la consulta
Datos.Open "select max(codi) from presta ", Conex, adOpenStatic, adLockOptimistic
'verifico si el campo cero de la consulta es un valor nulo
If Datos.Fields(0) = Null Then
maximo = 325
End If
maximo = Val(Datos.Fields(0)) + 1

End Sub
 
debes evaluar con isnull primero
Código:
if isNull(Datos.Fields(0).value) = true then
maximo = 325
else
maximo = Val(Datos.Fields(0).value) + 1
end if
 

Los últimos temas