Run Microsoft Visual Studio. NET. Puntare su "Nuovo" dal menu File , quindi fare clic su "Progetto ". Quando la finestra di dialogo Nuovo progetto si apre, fare clic su "Progetto di Visual Basic " dai Tipi progetto e quindi in Modelli , fare clic su " Applicazione Web ASP.NET . "
2
tipo " ExcelVBTest " nel nome casella e fare clic sul server appropriato nella casella Posizione. Lasciare il nome del server come " http://localhost ", se i file sono ospitati in server locale , quindi fare clic su "OK". Trascinare un controllo "Collegamento ipertestuale " dalla casella degli strumenti al form Web nel file WebForm1.aspx . Fare clic destro sul file " WebForm1.aspx " , e quindi fare clic su " Visualizza codice " per visualizzare il codice sorgente del progetto
3
incolla il codice sottostante per la parte superiore della pagina : .
Imports System.Data Imports
System.Data.Common
Imports System.Data.SqlClient
Imports System.IO Imports
System.Text
e quindi includere il codice successivo per l'evento " Load " :
Dim i As Integer Dim
strLine As String , filePath , fileName , fileExcel , collegamento
Dim objFileStream Come FileStream
Dim objStreamWriter Come StreamWriter
Dim nRandom come casuale = new Random ( DateTime.Now.Millisecond ) per
Dim fs As Object , myFile As Object
Dim cnn Come SqlConnection = New SqlConnection ( "server = ( local) ; database = pubs , " & _
" Integrated Security = SSPI " ) per
'Crea un nome di file di pseudo-casuale .
fileExcel = " t" e nRandom.Next ( ) . ToString ( ) & " . xls "
' Imposta una cartella virtuale per salvare il file.
' assicurarsi di modificare il nome dell'applicazione per abbinare la vostra cartella .
filePath = Server.MapPath ( " \\ ExcelVBTest " ) per
fileName = filePath & " \\ "& fileExcel
'Usa FileStream per creare il file . xls .
objFileStream = New FileStream ( fileName , FileMode.OpenOrCreate , FileAccess.Write )
objStreamWriter = Nuovo StreamWriter ( objFileStream ) per
' utilizzare un DataReader per la connessione al database pubs .
cnn.Open ( ) per
Dim sql As String = "select au_id , au_lname , au_fname , telefono , "& _
" indirizzo , città, stato , zip , contratto da autori "
Dim cmd Come SqlCommand = New SqlCommand ( sql , cnn ) per
Dim dr As SqlDataReader
dr = cmd.ExecuteReader ( ) per
' enumerare i nomi dei campi ei record che vengono utilizzati per creare il file .
For i = 0 To dr . FieldCount - . 1.
strLine = strLine & dr.GetName ( i) ToString & Chr ( 9 ) per
Successivo
'Scrive le informazioni del nome campo per il file < br
objStreamWriter.WriteLine > ( strLine ) per
' Re-inizializza la stringa di dati .
strLine = " "
' enumerare i database che viene utilizzato per popolare il file .
Mentre dr.Read ( ) per
For i = 0 To dr.FieldCount - 1
strLine = strLine & dr.GetValue ( i) & Chr ( 9)
Avanti
objStreamWriter.WriteLine ( strLine ) per
strLine = " "
End While
'Clean un collegamento al file di Excel .
HyperLink1.Text = "Apri Excel "
HyperLink1.NavigateUrl = fileExcel
4
Fare clic su "Save All" sul file menu per salvare i file di progetto . Fare clic su "Build" per creare il progetto dal menu Genera nell'IDE di Visual Studio . NET ambiente di sviluppo integrato . Fare clic con il modulo " WebForm1.aspx " in Visual Studio . NET ambiente di sviluppo integrato Esplora soluzioni , ed eseguire il codice facendo clic su " Visualizza nel browser . "
Programmazione © www.354353.com