Cómo construir un archivo delimitado por tabuladores De ASP

Microsoft tiene su propio lenguaje de programación - ASP.net , que significa Active Server Pages. Esta aplicación se ejecuta dentro de IIS ( Internet Information Services) , que es un componente libre de ciertos sistemas operativos de Microsoft , como Windows 2000 y Windows NT 4.0. Usted puede utilizar ASP para diversos proyectos, como la creación de informes y la creación de páginas Web. ASP puede contener elementos como etiquetas HTML y secuencias de comandos , por lo que es muy flexible y fácil de usar. Instrucciones
1

Run Microsoft Visual Studio. NET . Seleccione "Nuevo" en el menú Archivo y , a continuación, haga clic en " Proyecto". Cuando el cuadro de diálogo Nuevo proyecto aparece, haga clic en " Proyecto Visual Basic " de los Tipos de proyecto y, a continuación , en Plantillas , haga clic en "Aplicación Web ASP.NET. "
2

Type " ExcelVBTest " en el nombre cuadro y haga clic en el servidor apropiado en el cuadro Ubicación . Deje el nombre del servidor como " http://localhost ", si los archivos están alojados en el servidor local y haga clic en " Aceptar". Arrastre un control " HYPERLINK" del cuadro de herramientas al formulario Web en el archivo WebForm1.aspx. Haga clic derecho en el archivo " WebForm1.aspx " y haga clic en " Ver código " para visualizar el código fuente de su proyecto
3

Pega el siguiente código en la parte superior de la página : .

Imports System.Data Imports System.Data.Common

Imports System.Data.SqlClient Imports System.IO

Importaciones System.Text

e incluir el código siguiente al evento " Page_Load ":

Dim i As Integer

strLine Dim As String , filePath , nombre de archivo , fileExcel , enlace

objFileStream As FileStream

objStreamWriter As StreamWriter

nRandom As Random = New Random ( DateTime.Now.Millisecond )

fs Dim As Object , myFile As Object Dim

cnn Como SqlConnection = New SqlConnection ( " server = (local); base de datos = pubs , " & _

"Integrated Security = SSPI ")
< p > 'Crear un nombre de archivo pseudo- aleatorio.

fileExcel = " t" y nRandom.Next (). ToString () & ". xls "

' Configurar una carpeta virtual para guardar el archivo.

' Asegúrese de que cambia el nombre de la aplicación para que coincida con la carpeta

filePath = Server.MapPath ("\\ ExcelVBTest " )

fileName = filePath & ". \\ "& fileExcel

'Use FileStream para crear el archivo xls . .

objFileStream = New FileStream (nombre de archivo , FileMode.OpenOrCreate , FileAccess.Write )

objStreamWriter = Nuevo StreamWriter ( objFileStream )

' Utilizar un DataReader para conectarse a la base de datos pubs .

cnn.Open ()

Dim sql As String = "select au_id , au_lname , au_fname , teléfono, " & _

" dirección, ciudad, estado, código postal , contrato de autores "

cmd As SqlCommand = New SqlCommand ( sql , cnn )

Dim dr Como SqlDataReader

dr = cmd.ExecuteReader ()

' enumerar los nombres de los campos y los registros que se utilizan para generar el archivo .

For i = 0 To dr . FieldCount - . . 1

strLine = strLine y dr.GetName ( i ) ToString & Chr ( 9 )

' Escribe la información de nombre de campo para el archivo

objStreamWriter.WriteLine ( strLine )

' Reinicializar la cadena de datos.

strLine = ""

' enumerar la base de datos que se utiliza para rellenar el archivo .

Mientras dr.Read ()

For i = 0 To dr.FieldCount - 1

strLine = strLine y dr.GetValue ( i ) & Chr ( 9 )

objStreamWriter.WriteLine ( strLine )

strLine = ""

End While

'Clean un vínculo al archivo de Excel.

HyperLink1.Text = "Abrir Excel "

HyperLink1.NavigateUrl = fileExcel

4 Haga clic en " Guardar Todo " en el archivo menú para guardar los archivos de proyecto. Haga clic en " Crear " para crear el proyecto En el menú Generar de Visual Studio. Entorno de desarrollo integrado . Haga clic en el formulario " WebForm1.aspx " en Visual Studio. NET Explorador de soluciones de desarrollo integrado , y ejecutar el código , haga clic en " Ver en el explorador . "