mostrar imagen almacenadas en Access, EN Cristal Report
Publicado por ELIRD (62 intervenciones) el 24/06/2015 01:26:59
buenas noches:
saludos cordiales a todos:
con este codigo puedo mostrar informaciones almacenadas en acces y mostrarla en Crystal Report:
Bien, mi problema consiste en mostrar imagen almacenadas en Access,, pero no he podido hacer que se
muestren en un reporte de crystal
específicamente esta es la linea de código que no me funciona, cuando corro el programa
no muestra la imagen en el reporte.
voy hacer un recuento del Problema:
en mi base de datos Access en mi tabla Configurar mi compañía tengo un campo
se llama: log_com (Logo compañía) es de tipo: Objeto OLE, luego inserte en el campo un
objeto tipo: imagen tipo mapa de bits
todos los rellenos funcionan bien menos este.
Saludos desde República Dominicana,
Espero en Dios que alguien pueda ayudarme.
saludos cordiales a todos:
con este codigo puedo mostrar informaciones almacenadas en acces y mostrarla en Crystal Report:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
consulta_dts = miclase.TraeDataset("select nom_com,sig_com,esl_com,dir_com,rnc_com,tel_com,log_com from Tbla_Compania")
If consulta_dts.Tables(0).Rows.Count > 0 Then
If IsDBNull(consulta_dts.Tables(0).Rows(0).Item(0)) Then
Else
Dim filasDGVconsultas As Integer = consulta_dts.Tables(0).Rows.Count
For i As Integer = 0 To filasDGVconsultas - 1
Dim fila2 As DataSetReportes.dtsConfigurarCompaniaRow = DataSetMemoria.dtsConfigurarCompania.NewdtsConfigurarCompaniaRow
'Pasando los datos de la tabla (Tbla_Compania) al DataSet dtsConfigurarCompania
If IsDBNull(consulta_dts.Tables(0).Rows(0).Item(i)) Then
Else
fila2.nombre_comercial = consulta_dts.Tables(0).Rows(i).Item(0)
End If
If IsDBNull(consulta_dts.Tables(0).Rows(i).Item(1)) Then
Else
fila2.siglas_compania = consulta_dts.Tables(0).Rows(i).Item(1)
End If
If IsDBNull(consulta_dts.Tables(0).Rows(i).Item(2)) Then
Else
fila2.eslogan_compania = consulta_dts.Tables(0).Rows(i).Item(2)
End If
If IsDBNull(consulta_dts.Tables(0).Rows(i).Item(3)) Then
Else
fila2.direccion_compania = consulta_dts.Tables(0).Rows(i).Item(3)
End If
If IsDBNull(consulta_dts.Tables(0).Rows(i).Item(4)) Then
Else
fila2.rnc_compania = consulta_dts.Tables(0).Rows(i).Item(4)
End If
If IsDBNull(consulta_dts.Tables(0).Rows(i).Item(5)) Then
Else
fila2.telefono_compania = consulta_dts.Tables(0).Rows(i).Item(5)
End If
If IsDBNull(consulta_dts.Tables(0).Rows(i).Item(6)) Then
Else
fila2.logo_compania = consulta_dts.Tables(0).Rows(i).Item(6)
End If
DataSetMemoria.dtsConfigurarCompania.AdddtsConfigurarCompaniaRow(fila2)
Next
End If
End If
''*****************************Fin de relleno del DataSet dtsConfigurarCompania************* Bien, mi problema consiste en mostrar imagen almacenadas en Access,, pero no he podido hacer que se
muestren en un reporte de crystal
específicamente esta es la linea de código que no me funciona, cuando corro el programa
no muestra la imagen en el reporte.
1
2
3
4
If IsDBNull(consulta_dts.Tables(0).Rows(i).Item(6)) Then
Else
fila2.logo_compania = consulta_dts.Tables(0).Rows(i).Item(6)
End If
voy hacer un recuento del Problema:
en mi base de datos Access en mi tabla Configurar mi compañía tengo un campo
se llama: log_com (Logo compañía) es de tipo: Objeto OLE, luego inserte en el campo un
objeto tipo: imagen tipo mapa de bits
todos los rellenos funcionan bien menos este.
Saludos desde República Dominicana,
Espero en Dios que alguien pueda ayudarme.
Valora esta pregunta
0
