Saltar al contenido

Insertar imagenes en Base de Datos.


Recommended Posts

publicado

Hola colegas, buenas tardes. Espero se encuentren bien de salud.

Tengo un pequeño Proyecto donde trabajo las Ordenes de Servicios y necesito en el FrmEquipamiento, cuando agregue un nuevo registro poder insertarle una foto de ese equipo, o sea, en el ejemplo, en el registro 2 tengo Nevera Vertical y necesito agregar una foto de dicha nevera.

Realmente no lo he hecho antes y necesito de su ayuda.

Adjunto el Proyecto.

De antemano gracias.

Un saludo

Pino

Ordenes v1.0.0.xlsm

publicado
Hace 16 horas, pinoji dijo:

Realmente no lo he hecho antes y necesito de su ayuda.

Qué tal Pino,

Eso no se puede hacer (insertar a tu antojo). Debes tener a imagen ya creada (por ejemplo con el mismo nombre que el aparato), y al seleccionar el artículo que se carge automáticamente en un control de imagen.

Eso es lo primero, tener la foto, luego hay distintos métodos para cargarla: como ya te he comentado, bien al seleccionar automáticamente el producto, en el evento Image_Click y que la busques tú, etc.

publicado

Buenos días colegas, que tal de salud, espero que bien.

Buenas amigo Haplox, espero que se encuentre bien.

Quizás no me supe explicar bien o no lo mencioné, pero mi jefe tiene o va a sacar fotos de cada uno de los equipos (*.jpg, *.png).

Según tengo entendido esas fotos se ubican en una carpeta específica y después desde el Proyecto se "Halan" o "Cargan" a un control de Imagen que esté asociada al equipo y cada vez que invoques ese equipo o registro la imagen se muestra. ¿Es así o estoy equivocado? La cuestión está en que nunca antes he realizado ese proceso, no se como es el código, en que evento, nada de eso, es por ello que les pido su ayuda.

Yo se que las cosas no son "insertar a tu antojo", vba sigue una secuencia y un procedimiento lógico, el cual debes "decirle" al sistema lo que necesitas, pero hay cosas (bastante) que aun no conozco.

A ver; Supongamos que tengo en una Carpeta D:\Ordenes\Fotos... y que dentro de ella (Fotos) tengo todas las fotos de los equipos, ¿cómo, dónde, en que evento, a través de qué logro esto? Es que no tengo la mas mínima idea.

Si pudieras ayudarme te lo agradecería mi hermano y no me lo tomes a mal.

Necesito su ayuda profesor.

Un abrazo y mis respetos

Pino

publicado

Pon las imágenes en la carpeta D:\Ordenes\Fotos con el nombre del ID (1.jpg, 2.jpg, 3.jpg, ........)

Al seleccionar cualquier celda del rango, se actualizará la imagen del control Image Activex que he añadido en la hoja.

 

 

Ordenes v1.0.0.xlsm

publicado

Buenas tardes colegas.

Buenas tardes profesor Antoni. Espero se encuentre bien de salud.

Le agradezco su pronto y oportuna respuesta, pero no tiene el efecto que deseo. Me explico. Yo no necesito que se muestre la imagen en la hoja, sino en el formulario, pero por otra parte ya agregué 3 imágenes (1.jpg,2.jpg,3.jpg) en la carpeta señalada y ni en la hoja me la muestra. (Imagen Adjunta .doc)

Disculpe mi torpeza o desconocimiento, pero esto si que es algo nuevo para mi. Le agradecería cualquier ayuda.

Un saludo y respeto.

Pino

Imagen.docx

publicado

Buenos días colegas, espero su salud sea buena.

Buenos días profesor Antoni. ¿Cómo está usted y su familia? Espero que bien.

Adjunto archivo y espero no causarle molestias. Confieso que me apena tener que pedirle esto, pero verdaderamente no tengo idea de como hacerlo. Le prometo que después que vea el código una vez y lo analice lo aprendo.

Gracias una vez más profesor.

Mis respetos.

Pino

Ordenes v1.0.0.xlsm

publicado

Gracias profesor Antoni, perfecto.

Muy agradecido por su oportuna, pronta y eficaz respuesta.

En estos días voy a tener que acudir a ustedes en varias ocasiones, porque el Proyecto que mi Jefe me pidió que hiciera es más de lo que mis conocimientos "almacena", pero son retos que me gustan porque aprendo de ellos.

Saludos a Usted, AValencia, Haplox y JSD, que por cierto hace días no lo "veo" por el Foro, pero espero que se encuentre bien de salud, y a todo el resto del tremendo equipo de AyudaExcel.

Mis respetos.

Pino

 

Archivado

Este tema está ahora archivado y está cerrado a más respuestas.

  • 109 ¿Te parecen útiles los tips de las funciones? (ver tema completo)

    1. 1. ¿Te parecen útiles los tips de las funciones?


      • No
      • Ni me he fijado en ellos

  • Ayúdanos a mejorar la comunidad

    • Donaciones recibidas este mes: 0.00 EUR
      Objetivo: 130.00 EUR
  • Archivos

  • Estadísticas de descargas

    • Archivos
      188
    • Comentarios
      98
    • Revisiones
      29

    Más información sobre "Cambios en el Control Horario"
    Última descarga
    Por pegones1

    3    1

  • Crear macros Excel

  • Mensajes

    • Saludos amigos espero estén bien  En la actualidad utilizo la siguiente macro para generar un código alfanumérico continuo que al guardar los datos se copia en la Celdas “B5” de las Hojas 58 (MATRIZ1) y Hojas59 (MATRIZ2) Private Sub CommandButton3_Click()     If Hoja58.Range("B5").Value < 9999 Then Hoja58.Range("B5").Value Hoja58.Range("B6").Value + 1     Else        Hoja58.Range("B5").Value = 1     End If If Hoja59.Range("B5").Value < 9999 Then Hoja59.Range("B5").Value = Hoja59.Range("B6").Value + 1 Else        Hoja59.Range("B5").Value = 1     End If End Sub El código se genera normalmente sin embargo no se copia inmediatamente en las Celdas “B5” sino que aparece en las Celdas “B6” mientras que las Celdas “B5” siempre permanecen en blanco, actualmente el código consta de tres letras y cuatro dígitos (RCI-0000) pero me interesa poderle concatenar el mes y año en formato mm-yy para que el código finalmente quede expresado de la siguiente forma RCI-0000-00-00 Mucho les sabre agradecer la ayuda que me puedan dar RCI PRUEBA..xlsm
    • Saludos amigos espero estén bien  En la actualidad  los datos provenientes de los TextBox 5, 6 y 7 se guardan en las Columnas H, I y O de las Hojas 58 (MATRIZ1) y Hojas59 (MATRIZ2) sin embargo cuando el texto es abundante no se visualiza completamente en las celdas correspondientes de allí que necesito que cada fila se ajuste al tamaño de la celda que contenga mayor cantidad de texto para lo cual he probado con la siguiente macro: Private Sub Worksheet_SelectionChange(ByVal Target As Range) Cells.EntireRow.AutoFit End Sub Sin embargo, dicha macro coloca todas las filas del tamaño del texto que contengan y lo que en realidad necesito es que dicha macro solo se aplique desde la Fila 5 en adelante. Mucho les sabre agradecer la ayuda que me puedan dar RCI PRUEBA..xlsm
    • Saludos amigos espero estén bien  En la actualidad utilizo la siguiente macro para que la fecha aparezca en el Textbox2: Private Sub UserForm_activate() Me.TextBox2.Value = VBA.Date End Sub Sin embargo, una vez guardo los datos la fecha cambia de formato y se guarda en formato mm/dd/yyyy en vez de dd/mm/yyyy y este cambio de fecha me distorsiona los resultados de las fórmulas en las Columnas J en las Hojas 58 (MATRIZ1) y Hojas59 (MATRIZ2) Mucho les sabre agradecer la ayuda que me puedan dar RCI PRUEBA..xlsm
    • ¡Hola! Después de un buen tiempo ausente...  @Gabriela hg ya que veo que tienes Excel 365, te dejo mi solución para piezas y gramos.   Extraer piezas - gramos 365_GP.xlsx
  • Visualizado recientemente

    • No hay usuarios registrado para ver esta página.
×
×
  • Crear nuevo...

Información importante

Echa un vistazo a nuestra política de cookies para ayudarte a tener una mejor experiencia de navegación. Puedes ajustar aquí la configuración. Pulsa el botón Aceptar, si estás de acuerdo.