
06/04/2006, 03:29
|
| | Fecha de Ingreso: agosto-2003
Mensajes: 50
Antigüedad: 21 años, 7 meses Puntos: 0 | |
Imports System.Data.SqlClient
Imports System.IO
Imports System.Text
Imports System.Runtime.InteropServices.Marshal
Public Class WebForm1
Inherits System.Web.UI.Page
Protected WithEvents Label1 As System.Web.UI.WebControls.Label
Protected WithEvents HyperLink1 As System.Web.UI.WebControls.HyperLink
#Region " Código generado por el Diseñador de Web Forms "
'El Diseñador de Web Forms requiere esta llamada.
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
End Sub
Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init
'CODEGEN: el Diseñador de Web Forms requiere esta llamada de método
'No lo modifique con el editor de código.
InitializeComponent()
End Sub
#End Region
Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'Introducir aquí el código de usuario para inicializar la página
Dim fileExcel, filePath, fileName, strLine, sql As String
Dim nRandom As Random = New Random(DateTime.Now.Millisecond)
fileExcel = "t" + nRandom.Next().ToString() + ".xls"
Dim cnn As SqlConnection = New SqlConnection()
cnn.ConnectionString = "data source=127.0.0.1;..."
Dim exl As New Microsoft.Office.Interop.Excel.Application()
Dim wsheet As Microsoft.Office.Interop.Excel.Worksheet
wsheet = exl.Workbooks.Add.ActiveSheet
cnn.Open()
sql = "select * from excel order by fila,columna"
Dim cmd As SqlCommand = New SqlCommand(sql, cnn)
Dim dr As SqlDataReader
dr = cmd.ExecuteReader()
While dr.Read()
' codigo de la aplicación...
End While
filePath = Server.MapPath(".\")
exl.Workbooks.Item(1).SaveAs("c:\inetpub\wwwroot\" & fileExcel)
exl.Quit()
ReleaseComObject(exl)
ReleaseComObject(wsheet)
exl = Nothing
wsheet = Nothing
System.GC.Collect()
Label1.Text = UCase("El archivo ha sido generado satifactoriamente")
HyperLink1.Text = "Acceder"
HyperLink1.NavigateUrl = ".\..\" & fileExcel
dr.Close()
cnn.Close()
End Sub
End Class |