| Pregunta: | 44179 - IMAGENES CRYSTAL REPORTS |
| Autor: | Iracema Mondragón Romero |
| Hola, tengo un problema con una aplcación en visual basic, necesito saber como puedo mandar la ubicación de una imagen a crystal para que cargue dicha imagen en un reporte de crystal, hasta ahora no encuentro la forma de pasar una imagen como parametro, espero puedan ayudarme, espero respuesta, Gracias......... | |
| Respuesta: | SuNcO |
| Hace como 1 semana tuve la misma pregunta pero lo resolvi buscandole, aunque recibi una respuesta algo dificil Con algo de ingenio lo pude hacer mucho mas sencillo Si la base de datos es de access, ocupas crear un campo llamado por ejemplo "foto" el cual es de tipo "binary". Cuando eliges la imagen, para guardarla en ese campo lo puedes hacer asi... ' Declaracion Private La_Imagen As ADODB.Stream ' En la parte de Load Set La_Imagen = New ADODB.Stream ' En algun Boton Dim abtyImage() As Byte, hFile As Long, lngSize As Long With Data1.Recordset .AddNew strFile = "ruta del archivo" ' Liberamos por si esta abierto el Archivo hFile = FreeFile ' Lo Abrimos en modo Binario Open strFile For Binary Access Read As hFile ' Vemos cuanto mide lngSize = LOF(hFile) ' Si mide mas de 0... If lngSize > 0 Then ' Agrandar el arreglo de 1 a cuanto mide el Archivo ReDim abtyImage(1 To lngSize) As Byte ' Leer el Archivo y meterlo en el Arreglo Get hFile, , abtyImage() End If ' Cerrar el Archivo Close hFile ' Enviarle el Arreglo al campo "foto" .Fields("foto") = abtyImage() ' Actualizar .Update End With Crystal1.PrintReport Asi me funciona bien a mi =) | |