Problema con IsNull()

[Tarecito]

Hola a todos, he revisado los foros sobre este punto pero a pesar que he hecho lo que dicen en los posts mi código no anda. Tengo lo siguiente:

sql = "select max(cod_doc) as codigo from Documento"
rs = conexion.Execute(sql)

if isNull(rs("codigo")) then
ultimo = 0
end if

pero me sale este error:

Tipo de error:
Error de Microsoft VBScript en tiempo de ejecución (0x800A005E)
Uso no válido de Null.


Mi tabla se encuentra vacía, y la idea es que si está vacío entonces asigne el valor 0 a la variable último. Alguien podría ayudarme con esto por favor??

[u_goldman]

Algo asi, aunque no estoy seguro que realmente aplique la segunda condicion, ya que si no es eof, trae un valor...en fin, cuestion de probar

Código:

sql = "select max(cod_doc) as codigo from Documento"
rs = conexion.Execute(sql)

if not rs.eof then
  if isNull(rs("codigo")) then
    ultimo = 0
  else
    ultimo = rs("codigo")
  end if
else
  ultimo = 0
end if

Salu2,

[AlZuwaga]

podés hacer ésto:

var_codigo = rs("codigo")
if var_codigo = "" then


o éto, que es lo mismo pero en una sóla línea:
if "" & rs("codigo") = "" then

Lo raro es que te de error ahí... a mi, que recuerde, ese error me ocurre al hacer un replace() donde hay un null

[Tarecito]

le diste en el clavo AZ justo despues de eso le hago un replace asi:

ultimo = Trim(rs("codigo")) + 1
ultimo = Replace(Space(8 - Len(ultimo)), " ", "0") & ultimo &"-"&digano

pero si falla en este punto es porque no me está cambiando la variable "ultimo" a ceo (0)

[Tarecito]

cuando pongo el codigo del amigo u_goldman me bota este error:

Tipo de error:
Error de Microsoft VBScript en tiempo de ejecución (0x800A01B6)
El objeto no acepta esta propiedad o método: 'eof'

y cuando pongo el codigo de AZ me sale esto:

Tipo de error:
Error de Microsoft VBScript en tiempo de ejecución (0x800A005E)
Uso no válido de Null

imagino q en ambos casos es por el replace que vien luego... o no? (disculpen la ignorancia)

[u_goldman]

Trata asi:

Código:

sql = "select max(cod_doc) as codigo from Documento"
Set rs = conexion.Execute(sql)

if not rs.eof then
  if isNull(rs("codigo")) then
    ultimo = 0
  else
    ultimo = rs("codigo")
  end if
else
  ultimo = 0
end if

[Tarecito]

hice ese cambio y ahora me sale este error:

Tipo de error:
Error de Microsoft VBScript en tiempo de ejecución (0x800A005E)
Uso no válido de Null

pero en esta línea:

ultimo = Replace(Space(8 - Len(ultimo)), " ", "0") & ultimo &"-"&year

[u_goldman]

Tarecito, al menos pon un poco de voluntad, hazte un response.write de estos valores, debuguea, utiliza typename(variable) para saber cual es la que esta llegando nula.

[Tarecito]

ya lo hice, el valor de la variable codigo es null y el de ultimo tambien es null, parece q no esta seteando el valor de ultimo a 0

[Tarecito]

mmmm... q raro, le puse comillas dobles en:

ultimo = 0 ----> ultimo = "0"

y ahi si funciona, pero no se como rayos graba en el base de datos si el campo a grabar está como int de 4

[u_goldman]

No entiendo tu ultima pregunta, pero si tienes un campo entero obviamente no guardara un valor del tipo 01, guardara un 1

Salu2,

[Tarecito]

ya lo solucione, el problema es que no habia comentado una linea que estaba más arriba donde la variable ultimo tenia un valor 1 pero como cadena y no como número. Muchas gracias a todos en especial a u_goldman que cada vez q posteo lo hago renegar

[g33k.gu]

Haz El Null En El Ansi Del Sql.... Y Te Evitas De Broncas