Comunidad Gambas-es

shordi escribió: [Ver mensaje]

Citar:

Lo que yo he aprendido es que "Result" no se puede reutilizar si lo paso a otra clase como parámetro. ¿Es correcto?

No creo.

Te pasaré el proyecto y me aclaras que ocurre, pero voy a tardar, vale, es que estoy enfrascado en un lio de código. Cuando pueda te paso el proyectito y me das una colleja. Para aclararme.

Gracias, saludos.

shordi escribió: [Ver mensaje]

Citar:

Lo que yo he aprendido es que "Result" no se puede reutilizar si lo paso a otra clase como parámetro. ¿Es correcto?

No creo.

Te paso el proyecto. Es que tengo la cabeza hecha un lío. Serias tan amable de darme consejos. Me he liado tanto que no se diferencial que serializar de que no, en fin, no sabia yo que estaba yo tan mal. Necesito que pongas en orden mis conceptos, con pequeños consejos, si no es mucho lio para ti. Para mi eso es lo más importante no molestar o molestar lo mínimo.

Gracias.

Nota: En la clase Form intento reducir el código pero al hacerlo me lio. La pregunta esta basada en la línea 180 oResultado = gConn.Exec(sSQL) y más abajo quería pasar oResultado pero no funciona y he decidido usar oResultado.All

Otra cosa en el archivo comprimido en la raíz, hay un CSV demo para que lo conviertas en el programa y lo uses para crear una tabla, pero tienes dos problemas.
1. Que no tienes la base de datos SQLite3
2. Que para arrancar el programa empieza buscando la tabla Gastos que en tu caso no existe y el programa va a petar. Esto tenia que haberlo resuelto, yo, pero lo he pospuesto.

A lo de la DB y la tabla he añadido esto:


A lo del Result... me has enviado la función que "rodea" el problema con eso de los Arrays por lo que no puedo mirar nada, pero me ha surgido una sospecha.

La pregunta es:
En esa secuencia de funciones que recorrían el Result una tras otra...¿Volvías al principio alguna vez?
Después de un

El Result queda Unavailable, o sea no está apuntando a ningún registro porque "se ha pasado". Hay que volver al principio antes de hacer nada con él

shordi escribió: [Ver mensaje]

A lo de la DB y la tabla he añadido esto:

Código: [Descargar] [Ocultar] [Seleccionar]

Código: [Descargar] [Mostrar]

Public Sub Form_Open()

Dim tDef As Variant[]

Me.center

Connections["Connection1"].host = Desktop.GetDirectory("DESKTOP")
Connections["Connection1"].Name = "econ.db"
gConn = Connections["Connection1"]
If Not Exist(Desktop.GetDirectory("DESKTOP") &/ "econ.db") Then
mDB.CreaDatabase(Desktop.GetDirectory("DESKTOP"), "econ.db")
gConn.Open()
gConn.Exec("Create TABLE `Gastos` (`ID` INTEGER NOT NULL PRIMARY KEY AUTOINCREMENT, `Descripción` Text,`Importe` Float,`Cargos` Float,`Lanzamiento` Text,`Vencimiento` Text,`Realizado` Text,`Categoría` Text,`Subcategoría` Text,`Tarjeta` Text,`Cuenta` Text,`Observaciones` Text)")
Else
gConn.Open()
Endif

definirTableView
....
....

A lo del Result... me has enviado la función que "rodea" el problema con eso de los Arrays por lo que no puedo mirar nada, pero me ha surgido una sospecha.

La pregunta es:
En esa secuencia de funciones que recorrían el Result una tras otra...¿Volvías al principio alguna vez?
Después de un

Código: [Descargar] [Ocultar] [Seleccionar]

Código: [Descargar] [Mostrar]

while oResult.available
...
...
wend

El Result queda Unavailable, o sea no está apuntando a ningún registro porque "se ha pasado". Hay que volver al principio antes de hacer nada con él

Código: [Descargar] [Ocultar] [Seleccionar]

Código: [Descargar] [Mostrar]

oResult.MoveFirst()

Seguro que va hacer eso. Eres un genio, no he caído por novato

Es mas tiene lógica, lo que ocurre es que lo envío a la clase y cuando lo pido de nuevo en la linea siguiente esta el puntero al final, vaya, es eso.

Muchichisimas gracias.