|
Página 2 de 2
|
Mismo Result Como Parametro De Varias Clases
Autor |
Mensaje |
gambafeliz
Analista Programador
Registrado: Julio 2019
Mensajes: 830
Edad: 54
|
Re: Mismo Result Como Parametro De Varias Clases
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.
|
#11 Jueves, 29 Agosto 2019, 14:43 |
|
|
gambafeliz
Analista Programador
Registrado: Julio 2019
Mensajes: 830
Edad: 54
|
Re: Mismo Result Como Parametro De Varias Clases
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.
Descripción: |
|
Descargar |
Nombre del archivo: |
myProyecto-0.0.1.tar.gz |
Tamaño: |
19.47 KB |
Descargado: |
40 veces |
Descripción: |
|
Descargar |
Nombre del archivo: |
myProyecto-0.0.1.tar.gz |
Tamaño: |
19.47 KB |
Descargado: |
40 veces |
Descripción: |
|
Descargar |
Nombre del archivo: |
myProyecto-0.0.1.tar.gz |
Tamaño: |
19.47 KB |
Descargado: |
40 veces |
última edición por gambafeliz el Jueves, 29 Agosto 2019, 15:17; editado 1 vez
|
#12 Jueves, 29 Agosto 2019, 15:16 |
|
|
shordi
Analista Programador
Registrado: Septiembre 2009
Mensajes: 4982
Edad: 64 Ubicación: Albacete
|
Re: Mismo Result Como Parametro De Varias Clases
A lo de la DB y la tabla he añadido esto:
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
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
=================== No podemos regresar
|
#13 Jueves, 29 Agosto 2019, 18:23 |
|
|
gambafeliz
Analista Programador
Registrado: Julio 2019
Mensajes: 830
Edad: 54
|
Re: Mismo Result Como Parametro De Varias Clases
A lo de la DB y la tabla he añadido esto:
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
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
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.
última edición por gambafeliz el Jueves, 29 Agosto 2019, 19:00; editado 1 vez
|
#14 Jueves, 29 Agosto 2019, 18:59 |
|
|
|
Temas parecidos
Temas parecidos
|
Página 2 de 2
|
Usuarios navegando en este tema: 0 registrados, 0 ocultos y 0 invitados Usuarios registrados conectados: Ninguno
|
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
|
|
|
|
|