datagrid con imagen a crystalreport
Publicado por nato (59 intervenciones) el 30/08/2018 01:57:20
hola gracias de antemano
tengo un datagrid que lleno con una base de datos en la base de datos esta en nombre y ruta
en el datagridview tengo los datos de foto ,nombre y ruta la foto la cargo con el nombre y la ruta del datos
pero ese datagrid completo lo quiero pasar al crystal report ya esya creado el reporte y se enlace solo que no tengo
ni idea de como pasar la imagen que cargue el datagrid o si puedo pasarlo con el datos de la ruta
ojala y alguien me pueda hechar una manita estoy atorado con esto
tengo un datagrid que lleno con una base de datos en la base de datos esta en nombre y ruta
en el datagridview tengo los datos de foto ,nombre y ruta la foto la cargo con el nombre y la ruta del datos
pero ese datagrid completo lo quiero pasar al crystal report ya esya creado el reporte y se enlace solo que no tengo
ni idea de como pasar la imagen que cargue el datagrid o si puedo pasarlo con el datos de la ruta
ojala y alguien me pueda hechar una manita estoy atorado con esto
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
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
Imports System.Data.SqlClient
Public Class frmreportruta1
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim conexion As String = "Data Source=.;Initial Catalog=pruebas;Integrated Security=True"
Dim n As Int16
Dim cn As SqlConnection
Dim adaptador As SqlDataAdapter
Dim dt As DataTable
Dim ruta As String
Dim rutac As String
ruta = "C:\fotos\"
Try
'llena el datagrid segun la selecccion de los estatus disponibles
cn = New SqlConnection(conexion)
adaptador = New SqlDataAdapter("select nombre,ruta from rutafoto", cn)
dt = New DataTableadaptador.Fill(dt)
DataGridView1.DataSource = dt
'contar cuantos registros encontro la consulta sql
n = dt.Rows.Count
Dim i As Integer
For i = 0 To n - 1
Try
rutac = ruta + DataGridView1.Item(1, i).Value.ToString + ".JPG"
DataGridView1.Item(0, i).Value = New Bitmap(System.Drawing.Image.FromFile(rutac.ToString()))
Catch ex As Exception
'CAPTURAMOS EL ERROR DE QUE NO ENCONTRO LA IMAGEN Y NOS LLENA LAS DEMAS PERO NO MANDO EL MENSAJE PARA QUE LOS LLENE
MessageBox.Show("error al llenar el datagrid" + ex.ToString)
End Try
'da el ancho de la columna 0 y 1
DataGridView1.Columns(0).Width = 100 'de foto ancho
DataGridView1.Columns(1).Width = 100 'de foto ancho
DataGridView1.Rows(i).Height = 100 'para el alto de las filas
DataGridView1.Rows(i).Height = 100 'para el alto de las filas
Next
i = i + 1
Catch ex As Exception
MessageBox.Show("error al llenar la grilla" + ex.ToString)
End Try
End Sub
Private Sub frmreportruta1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
Dim dt As New DataTable
dt = Me.DataGridView1.DataSource
Dim cr As New CrystalReport5
cr.SetDataSource(dt)
Dim R As New frmreporterutaa2
R.CrystalReportViewer1.ReportSource = cr
R.ShowDialog()
End Sub
End Class
Valora esta pregunta
0
