border
VB 6
 
 
  #1 (permalink)  
Antiguo 15-09-2005, 17:28:28
Nuevo Amigo
 
Registrado: ago 2005
Posts: 16
Créditos: 747
mymsystemas Valoración +2
Contactar con mymsystemas a través de MSN
Predeterminado Uso no valido de NULL

hola, queria saber si alguien me puede dar una mano con este error porque no doy con la solucion por mas que pruebo.
Seguramente se debe a que no soy muy ducho con VB, pero necesito solucionarlo.
El tema es el siguiente, tengo este SQL
sSQL = "select sum(cantidad) as total from tblrepartos where idarticulo = " & frmEntrada.cmbArticulo.BoundText & ""

que se lo asigno a este recordset
Set rsc = New ADODB.Recordset
rsc.CursorLocation = adUseClient
rsc.Open sSQL, dbase, adOpenDynamic, adLockReadOnly

y el resultado a esta variable
totalcantidad = rsc!total

mientras hay registros en la seleccion todo marcha de primera, pero cuando no existen registros en el articulo seleccionado, me da este error:
Error 94 en tiempo de ejecucion
Uso no valido de null

ya probe de todo y no logro tener la respuesta correcta.
Alguien me puede orientar o brindarme alguna solucion posible para poder seguir adelante.
desde ya mil gracias
Digg this Post!Add Post to del.icio.usBookmark Post in TechnoratiFurl this Post!
Responder Con Cita
  #2 (permalink)  
Antiguo 15-09-2005, 18:34:50
Avatar de imported_chiaravel
Administrator
 
Registrado: dic 2002
Ubicación: Buenos Aires - Argentina
Posts: 2.221
Créditos: 30.132
imported_chiaravel Valoración +2
Predeterminado Re: Uso no valido de NULL

Cita:
Empezado por mymsystemas
hola, queria saber si alguien me puede dar una mano con este error porque no doy con la solucion por mas que pruebo.
Seguramente se debe a que no soy muy ducho con VB, pero necesito solucionarlo.
El tema es el siguiente, tengo este SQL
sSQL = "select sum(cantidad) as total from tblrepartos where idarticulo = " & frmEntrada.cmbArticulo.BoundText & ""

que se lo asigno a este recordset
Set rsc = New ADODB.Recordset
rsc.CursorLocation = adUseClient
rsc.Open sSQL, dbase, adOpenDynamic, adLockReadOnly

y el resultado a esta variable
totalcantidad = rsc!total

mientras hay registros en la seleccion todo marcha de primera, pero cuando no existen registros en el articulo seleccionado, me da este error:
Error 94 en tiempo de ejecucion
Uso no valido de null

ya probe de todo y no logro tener la respuesta correcta.
Alguien me puede orientar o brindarme alguna solucion posible para poder seguir adelante.
desde ya mil gracias
Es muy simple... si no existe el registro no puedes asignar uno de sus campos (rsc!total) ese es el que te da error .

Saludos
Digg this Post!Add Post to del.icio.usBookmark Post in TechnoratiFurl this Post!
Responder Con Cita
  #3 (permalink)  
Antiguo 15-09-2005, 20:09:18
Buena Participación en el Foro
 
Registrado: sep 2005
Ubicación: Buenos Aires - Argentina
Posts: 59
Créditos: 349
chichi60 Valoración +2
Contactar con chichi60 a través de MSN Contactar con chichi60 a través de Yahoo
Predeterminado Re: Uso no valido de NULL

previo a "totalcantidad = rsc!total" pondría:

if rsc.recordcount > 0 then
totalcantidad = rsc!total
end if

ó

totalcantidad = iif(isnull(rsc!total),0, rsc!total)

Saludos, Julio






Cita:
Empezado por mymsystemas
hola, queria saber si alguien me puede dar una mano con este error porque no doy con la solucion por mas que pruebo.
Seguramente se debe a que no soy muy ducho con VB, pero necesito solucionarlo.
El tema es el siguiente, tengo este SQL
sSQL = "select sum(cantidad) as total from tblrepartos where idarticulo = " & frmEntrada.cmbArticulo.BoundText & ""

que se lo asigno a este recordset
Set rsc = New ADODB.Recordset
rsc.CursorLocation = adUseClient
rsc.Open sSQL, dbase, adOpenDynamic, adLockReadOnly

y el resultado a esta variable
totalcantidad = rsc!total

mientras hay registros en la seleccion todo marcha de primera, pero cuando no existen registros en el articulo seleccionado, me da este error:
Error 94 en tiempo de ejecucion
Uso no valido de null

ya probe de todo y no logro tener la respuesta correcta.
Alguien me puede orientar o brindarme alguna solucion posible para poder seguir adelante.
desde ya mil gracias
Digg this Post!Add Post to del.icio.usBookmark Post in TechnoratiFurl this Post!
Responder Con Cita
  #4 (permalink)  
Antiguo 15-09-2005, 20:14:09
Gran Participación en el Foro
 
Registrado: sep 2004
Posts: 167
Créditos: 1.488
csic20 Valoración +2
Predeterminado

tambien podria ser:

If Rsc.EOF Or Rsc.BOF Then
totalcantidad = 0
Else
totalcantidad = rsc!total
End If
Digg this Post!Add Post to del.icio.usBookmark Post in TechnoratiFurl this Post!
Responder Con Cita
  #5 (permalink)  
Antiguo 16-09-2005, 12:41:12
Nuevo Amigo
 
Registrado: ago 2005
Posts: 16
Créditos: 747
mymsystemas Valoración +2
Contactar con mymsystemas a través de MSN
Predeterminado gracias por el apoyo

a todos muchas gracias
lo solucione con la segunda opcion de chichi60, poniendo el iif, porque de las otras maneras ya lo habia probado y me seguia dando el mismo error
muchas gracias a todos por la ayuda
saludos
Digg this Post!Add Post to del.icio.usBookmark Post in TechnoratiFurl this Post!
Responder Con Cita
Respuesta


Herramientas

Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Trackbacks are habilitado
Pingbacks are habilitado
Refbacks are habilitado


Temas Similares
Tema Autor Foro Respuestas Último Mensaje
Error "ORIGEN DE DATOS NO VALIDO Claudia DataReports 4 02-05-2009 21:25:35
Origen de datos no valido +Kco+ Crystal Reports 4 01-02-2007 01:40:00
Error 94 - Uso no válido de null Korku Visual Basic 6.00 9 14-04-2006 03:40:14
Cómo valido una fecha? (29-02-05) jrios03 Visual Basic 6.00 6 07-03-2005 19:30:55
Objeto No Valido mariozap Visual Basic 6.00 2 17-09-2004 00:00:00


La franja horaria es GMT. Ahora son las 19:17:02.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2014, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO 3.1.0
vBCredits v1.4 Copyright ©2007 - 2008, PixelFX Studios
© VB-MUNDO CO. Todos los derechos reservados
Tutoriales Premium | Juegos Online 


right

Programacion, vb 6, visual basic, foro programacion

Inactive Reminders By Icora Web Design