Quote from luishp on October 4, 2019, 1:28 pm

@neobook, la forma en que has resuelto el problema es muy ineficiente.
Si te fijas haces lo mismo una y otra vez utilizando IF ELSE IF anidados en muchísimos niveles.
Para eso es mucho mejor utilizar una subrutina una sola vez.
Puedes guardar los nombres de las imágenes en la propia base de datos o bien en un Array (mira en este enlace).
Ejemplo:

SetVar [imagen30] "HIDROFUGO CERECITA.jpg"

De este modo podrías resumir todo tu código así:

ShowObject "Imagen7" "None" "0"
SetObjectFileName "Imagen7" "[Embedded][imagen[DATOS.TABLA1.ID]]"
HideObject "INFORMACION" "None" "0"

 

Quote from as3856 on October 4, 2019, 1:32 pm

El código que establece el patrón está mal escrito.
Un código como el suyo se colgará naturalmente (demorará mucho tiempo en ejecutarse). Escriba el archivo de imagen en la base de datos, luego, cuando busque su artículo, la imagen se seleccionará automáticamente de la base de datos y su código que escribió será absolutamente innecesario.

____________________________________________________

The code that sets the pattern is incorrectly spelled.
A code like yours will naturally hang (take a long time to execute). Write the picture file in the database, then when searching for your article, the picture will be automatically selected from the database, and your code that you wrote will be absolutely unnecessary.

_____

Regards

as3856

Quote from as3856 on October 4, 2019, 1:37 pm

I would immediately assign the image its path and name from the database without any subroutine.

____________________

Inmediatamente le asignaría a la imagen su ruta y nombre desde la base de datos sin ninguna subrutina.

_Regards

as3856

Quote from neobook on October 4, 2019, 5:56 pm

pregunta:

como Escribo el archivo de imagen en la base de datos, luego, cuando busque su artículo, la imagen se seleccionará automáticamente de la base de datos

utilizo una base access

Quote from neobook on October 4, 2019, 6:01 pm

me podrias ayudar con el array.

un ejemplo en base a mi codigo utilizado.

Quote from as3856 on October 4, 2019, 10:45 pm

In the file name (Imagen7) make a variable. When searching the database in this variable, write the name of the file that should already be in the database. after the search command, use the RefreshObject command. No additional routines are required.
I can’t send the screenshot; I have VisualNeo in Russian.

_____________________________

En el nombre del archivo (Imagen7) haz una variable. Cuando busque en la base de datos en esta variable, escriba el nombre del archivo que ya debería estar en la base de datos. después del comando de búsqueda, use el comando RefreshObject. No se requieren rutinas adicionales.
No puedo enviar la captura de pantalla; tengo VisualNeo en ruso.

________

Regards

as3856

Quote from neobook on October 4, 2019, 11:54 pm

cree un boton para probar el codigo, pero no aparece la imagen.

click derecho y va a esta subrutina.

se supone que cuando el id es 31 me muestra la imagen. pero no funciona. alguna idea?

:cambiarimagen
SetVar "[imagen31]" "[Embedded]Arena.jpg"
ShowObject "Imagen7" "None" "0"
SetObjectFileName "Imagen7" "[Embedded][imagen31[DATOS.TABLA1.ID]]"
HideObject "INFORMACION" "None" "0"
Return

Quote from as3856 on October 5, 2019, 10:03 am

What are you not comfortable with what you were offered?
I made Maps with databases - there are more than 5000 records and everything worked very quickly.

Quote from as3856 on October 5, 2019, 10:07 am

I do not have your database plugin., 2 buttons play the role of choosing a file name.

Quote from luishp on October 5, 2019, 7:29 pm

@neobook, se supone que [DATOS.TABLA1.ID] tiene el valor 31 así que no necesitas poner [imagen31[DATOS.TABLA1.ID]] sino [imagen[DATOS.TABLA1.ID]]
Las variables compuestas permiten hacer cosas así en VisualNEO Win.
Es decir, si [DATOS.TABLA1.ID] contiene el valor 31, entonces [imagen[DATOS.TABLA1.ID]] es lo mismo que [imagen31]
Por otro lado, en la base de datos no tienes porqué almacenar las imágenes, sino el nombre de los archivos de imagen. Es una mejor opción que el uso de Arrays.

Quote from as3856 on October 5, 2019, 7:41 pm

Por otro lado, en la base de datos no tienes porqué almacenar las imágenes, sino el nombre de los archivos de imagen. Es una mejor opción que el uso de Arrays.
YES YES YES

Regards

as3856

Quote from neobook on October 6, 2019, 12:15 am

este es el codigo luishp

asi funciona.

:cambiarimagen
SetVar "[imagen31]" "[Embedded]Arena.jpg"
ShowObject "Imagen7" "None" "0"
SetObjectFileName "Imagen7" "[imagen[DATOS.TABLA1.ID]]"
HideObject "INFORMACION" "None" "0"
Return

 

asi no

:cambiarimagen
SetVar "[imagen31]" "Arena.jpg"
ShowObject "Imagen7" "None" "0"
SetObjectFileName "Imagen7" "[imagen[DATOS.TABLA1.ID]]"
HideObject "INFORMACION" "None" "0"
Return

Por otro lado, en la base de datos no tienes porqué almacenar las imágenes, sino el nombre de los archivos de imagen. Es una mejor opción que el uso de Arrays. (no lo entendi)

Meti el codigo para probar en un boton, pero el tema, es que cuando uno elije otro producto no me cambia la imagen automaticamente, osea pongo un ejemplo.

si estoy en arena y ejecuto la subrutina aparece la imagen, pero luego al elegir otro producto, en este caso alambre galvanizado, no aparece sola la imagen, debo ejecutar de nuevo la subrutina.

PushButton57 > Left Click
+ GoSub "cambiarimagen"

Subroutines > cambiarimagen
+ SetVar "[imagen31]" "[Embedded]Arena.jpg"
+ ShowObject "Imagen7" "None" "0"
+ SetObjectFileName "Imagen7" "[imagen[DATOS.TABLA1.ID]]"
+ HideObject "INFORMACION" "None" "0"
+ SetVar "[imagen142]" "[Embedded]ALAMBRE GALVANIZADO.jpg"
+ ShowObject "Imagen7" "None" "0"
+ SetObjectFileName "Imagen7" "[imagen[DATOS.TABLA1.ID]]"
+ HideObject "INFORMACION" "None" "0"
+ Return

 

 

 

Quote from neobook on October 6, 2019, 2:15 pm

ya lo solucione.

gracias por todo

Quote from neobook on October 6, 2019, 3:33 pm

comento por si a alguien le sirve.

Agregue un field picture a mi base de datos, y a partir de ahí, al navegar sobre los diferentes registros muestra las fotos relacionas con cada campo.

Nuevamente Gracias.