Visual Basic.NET - reporte

   
Vista:
Imágen de perfil de IVETTE

reporte

Publicado por IVETTE (20 intervenciones) el 22/08/2014 17:04:13
Hola, estoy ejecutando un reporte en sql, atravez de un procedimiento almacenado, pero un ocmpañero me dijo lo siguiente:
porque no elaboras un aplicativo en basic asi t genera l rporte y podrias nviarlo automaticamente por correo.
Se puede hacer?, porfavor de ser asi, podrian ayudarme, me gusta realizarlo....
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de IVETTE

reporte

Publicado por IVETTE (20 intervenciones) el 22/08/2014 17:23:21
PORFAVOR!! alguien que pueda ayudarmeeee..
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

reporte

Publicado por omar pc.net.2018@hotmail.com (128 intervenciones) el 22/08/2014 17:54:53
enviame tu email yo te ayudare
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Imágen de perfil de IVETTE

reporte

Publicado por IVETTE (20 intervenciones) el 22/08/2014 19:08:40
ascencio.ei@gmail.com
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Imágen de perfil de IVETTE

reporte

Publicado por IVETTE (20 intervenciones) el 22/08/2014 19:11:22
Porfavor me urge hacer esta aplicacion...
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

reporte

Publicado por IVETTE (1 intervención) el 23/08/2014 02:38:00
gracias!!!!! omar, aunque nos falta ver algunos detalles.. nuevamente gracias
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Imágen de perfil de IVETTE

reporte

Publicado por IVETTE (20 intervenciones) el 23/08/2014 17:33:13
Porfavor alguien que este desocupado en estos momentos y que pueda ayudarme !!!!
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Imágen de perfil de IVETTE

reporte

Publicado por IVETTE (20 intervenciones) el 23/08/2014 17:36:09
tengo ya elaborado el codigo y me corre el aplicativo que keria pero dbo cambiar uno ascodigos para que este corra mas rapido!!! .. porfavor una ayudadita..
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Imágen de perfil de IVETTE

reporte

Publicado por IVETTE (20 intervenciones) el 23/08/2014 19:00:29
Este es mi codigo:

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
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
Imports System.Data.SqlClient
Imports Microsoft.Office.Interop
Public Class Form1
 
    Private ds As New DataSet
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim cnn As New SqlConnection("Data Source= 192.168.0.116 ;Initial Catalog= DBPriX ;User ID= auchuya;Password=auchuya")
        Dim da As New SqlDataAdapter("exec Up_Reportes", cnn)
        da.Fill(ds)
        DataGridView1.DataSource = ds.Tables(0)
    End Sub
    Private Sub btnExportar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnExportar.Click
        Dim m_Excel
        Dim objLibroExcel
        Dim objHojaExcel
        m_Excel = CreateObject("Excel.Application")
        objLibroExcel = m_Excel.Workbooks.Add()
        objHojaExcel = objLibroExcel.Worksheets(1)
        objHojaExcel.Name = "Recuperaciones"
        objHojaExcel.Visible = Excel.XlSheetVisibility.xlSheetVisible
        objHojaExcel.Activate()
 
 
        Dim fila As Integer = 1
        Dim columna As Integer = 1
 
 
        objHojaExcel.Range("A1").Select()
        For Each dc In ds.Tables(0).Columns
            objHojaExcel.Range(nombreColumna(columna) & 1).Value = dc.ColumnName
            columna += 1
        Next
        fila += 1
 
 
 
        Dim objRango As Excel.Range = objHojaExcel.Range("A1:" & nombreColumna(ds.Tables(0).Columns.Count) & "1")
        objRango.Font.Bold = True
        objRango.Cells.Interior.ColorIndex = 35
        objRango.Cells.Borders(Excel.XlBordersIndex.xlDiagonalDown).LineStyle = Excel.XlLineStyle.xlLineStyleNone
        objRango.Cells.Borders(Excel.XlBordersIndex.xlDiagonalUp).LineStyle = Excel.XlLineStyle.xlLineStyleNone
        objRango.Cells.Borders(Excel.XlBordersIndex.xlEdgeLeft).LineStyle = Excel.XlLineStyle.xlLineStyleNone
        objRango.Cells.Borders(Excel.XlBordersIndex.xlEdgeRight).LineStyle = Excel.XlLineStyle.xlContinuous
        objRango.Cells.Borders(Excel.XlBordersIndex.xlEdgeTop).LineStyle = Excel.XlLineStyle.xlContinuous
        objRango.Cells.Borders(Excel.XlBordersIndex.xlEdgeBottom).LineStyle = Excel.XlLineStyle.xlContinuous
 
        ProgressBar1.Maximum = ds.Tables(0).Rows.Count
        columna = 1
        ProgressBar1.Value = 0
        For Each dr In ds.Tables(0).Rows
            columna = 1
            For Each dc In ds.Tables(0).Columns
                objHojaExcel.Range(nombreColumna(columna) & fila).Value = dr(dc.ColumnName)
                columna += 1
            Next
            fila += 1
            ProgressBar1.Value += 1
        Next
 
        objRango = objHojaExcel.Range("A1:" & nombreColumna(ds.Tables(0).Columns.Count) & ds.Tables(0).Rows.Count.ToString)
        objRango.Select()
        objRango.Columns.AutoFit()
 
 
 
        MsgBox("Exportación a Excel completa", MsgBoxStyle.Information, ".:: solovb.net ::.")
        m_Excel.Visible = True
 
    End Sub
 
    Public Function nombreColumna(ByVal numero As Integer) As String
        Dim columna(28) As String
 
 
        columna(1) = "A"
        columna(2) = "B"
        columna(3) = "C"
        columna(4) = "D"
        columna(5) = "E"
        columna(6) = "F"
        columna(7) = "G"
        columna(8) = "H"
        columna(9) = "I"
        columna(10) = "J"
        columna(11) = "K"
        columna(12) = "L"
        columna(13) = "M"
        columna(14) = "N"
        columna(15) = "O"
        columna(16) = "P"
        columna(17) = "Q"
        columna(18) = "R"
        columna(19) = "S"
        columna(20) = "T"
        columna(21) = "U"
        columna(22) = "V"
        columna(23) = "W"
        columna(24) = "X"
        columna(25) = "Y"
        columna(26) = "Z"
        columna(27) = "AA"
        columna(28) = "AB"
        Return columna(numero)
    End Function
End Class


m carga los datos que quiero, pero al exportar a xcel dmora muchisimo omo 15 minutos.. como podria mejorar eso
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar