Portal •  Foro •  FAQ •  Buscar •  Temas recientes •  Lista de usuarios •  Registrarse •  Conectarse 
Foro » Gambas » General

Problema Con Funcion En Una Clase[solucionado]

Responder al tema

 

nrcefe
Citar
Mensajes: 88 Ubicación: Entre Rios, Argentina
Viernes, 22 Enero 2010, 00:35
Objetivo: Problema Con Funcion En Una Clase[solucionado]
el mensaje de error es el siguiente:
Type mismatch; wanted resultfield, got void instead


PRIVATE SUB Cuerpo(Query AS result, Fichero AS String)
....
...
FOR EACH Campo IN Query >>>>> aca es donde se detiene (donde genera el error)
PRINT #F, "<td align='center' width='" & Campo.length & "'" & ">" & Campo.name & "</td> "
NEXT
....
....
END


Campo tiene el valor NULL

La llamada a la clase la programe así :

PUBLIC SUB imprimir_Click()
DIM reportea AS reporte
DIM repor AS String

basededatos.conectar
basededatos.ejecutarconulta(var.consultareportehtml)
reportea = NEW reporte
repor = reportea.InformeHTML("cliente", basededatos.$Con.exec(var.consultareportehtml), TRUE)
basededatos.cerrar
END


La clase completa la pueden ver aquí

saludos

última edición por nrcefe el Viernes, 22 Enero 2010, 14:33; editado 3 veces
Perfil MP  
fabianfv
Citar
Mensajes: 495
Viernes, 22 Enero 2010, 02:28
Objetivo: Re: Problema Con Funcion En Una Clase
En el FOR EACH, "campo" se inicializa a partir de los valores de "Query", si campo es NULL, entonces probablemente es porque el conjunto de resultados "Query" está vacío.

Me parece que deberías hacer un seguimiento y observar si Query devuelve un conjunto vacío en algún momento. Si en tu programa no es lógico que Query esté vacío, deberías revisar por el lado de la base de datos y la consulta, pero me parece que la forma de evitar el error es condicionar la ejecución del FOR EACH a que Query no sea un conjunto vacío.

Saludos cordiales.

Perfil MP   Sitio web
nrcefe
Citar
Mensajes: 88 Ubicación: Entre Rios, Argentina
Viernes, 22 Enero 2010, 14:29
Objetivo: Re: Problema Con Funcion En Una Clase[solucionado]
Ya he conseguido solucionarlo.Ha quedado así :
DO WHILE Query.Available
FOR EACH Query.Fields
PRINT #F, "<td align='center' width='" & Query.Fields[i].length & "'" & ">" & Query.Fields[i].name & "</td> "
i += 1
NEXT
LOOP


saludos

última edición por nrcefe el Viernes, 22 Enero 2010, 14:32; editado 1 vez
Perfil MP  
Responder al tema
 

Página 1 de 1


  
No puede crear mensajes
No puede responder temas
No puede editar sus mensajes
No puede borrar sus mensajes
No puede votar en encuestas
No puede adjuntar archivos
Puede descargar archivos
No puede publicar eventos en el calendario

   

Está utilizando la versión (Lo-Fi). Para ver la versión completa del foro, haga clic aquí.

Powered by Icy Phoenix based on phpBB
Design by DiDiDaDo

Página generada en:: 0.4142s (PHP: -87% SQL: 187%)
Consultas SQL: 47 - Debug off - GZIP Activado