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 )
Siguiente
' Escribe la información de nombre de campo para el archivo < br >
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 )
Siguiente
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 . "
