Vitajte na [www.pocitac.win] Pripojiť k domovskej stránke Obľúbené stránky
Spustiť Microsoft Visual Studio . NET . Prejdite na " Nový " v ponuke súbor a potom kliknite na tlačidlo " projekt . " Ak dialógové okno Nový projekt sa objaví , kliknite na " Visual Basic projekt " Z Typy projektu a kliknite v časti šablóny kliknite na položku " ASP.NET Web Application . "
2
typu " ExcelVBTest " v mene pole a kliknite na príslušný server v poli Umiestnenie . Názov servera ponechať ako " http://localhost , " ak vaše súbory sú uložené v lokálnom serveri , a kliknite na tlačidlo " OK " . Pretiahnite " Hypertext " ovládanie z panela nástrojov webového formulára v súbore WebForm1.aspx . . Kliknite pravým tlačidlom myši na súbor " WebForm1.aspx " , a potom kliknite na tlačidlo " Zobraziť kód " zobraziť zdrojový kód vášho projektu
3
Vložte kód nižšie do hornej časti stránky :
Dovoz System.Data
Dovoz System.Data.Common
Imports System.Data.SqlClient
Imports System.IO
Dovoz System.Text
A potom zahŕňajú uspieť kód do " Page_Load " udalosť :
Dim i As Integer Dim
strLine As String , FilePath , názov súboru , fileExcel , odkaz
Dim objFileStream ako FileStream
Dim objStreamWriter ako StreamWriter
Dim nRandom ako náhodný = new Random ( DateTime.Now.Millisecond )
Dim fs As Object , myfile As Object
Dim CNN ako SqlConnection = new SqlConnection ( " server = ( local ) ; databáz = pubs ; " & _
" Integrated Security = SSPI " )
' Vytvoriť názov súboru pseudo - náhodné .
fileExcel = " t " a nRandom.Next ( ) . toString ( ) & " . xls "
" Nastaviť virtuálny priečinok pre ukladanie súbor .
" Uistite sa , že ste zmenili názov aplikácie , aby zodpovedali vašej zložky .
FilePath = Server.MapPath ( " \\ ExcelVBTest " )
filename = FilePath & " \\ " & fileExcel
' Použiť FileStream na vytvorenie súboru . XLS .
objFileStream = Nový FileStream (filename , FileMode.OpenOrCreate , FileAccess.Write )
objStreamWriter = New StreamWriter ( objFileStream )
" Použite DataReader pripojenie k databáze pubs .
cnn.Open ( ) klipart
Dim sql As String = " select au_id , au_lname , au_fname , telefón , " & _
" adresa , mesto, štát , zips , zmluva z autorov "
Dim cmd ako SqlCommand = new SqlCommand ( sql , CNN )
Dim dr Ako SqlDataReader
dr = cmd.ExecuteReader ( )
"Zoznam, názvy polí a záznamy , ktoré sa používajú na vytvorenie súboru .
i = 0 To dr . FieldCount - .. 1.
strLine = strLine & dr.GetName ( i ) toString & Chr ( 9 )
Ďalšie
" Napíšte názov poľa informácie do súboru
objStreamWriter.WriteLine ( strLine )
" Znovu inicializovať reťazec pre dáta .
strLine = " "
" Zoznam, databázu , ktorá sa používa k naplneniu súbor .
Kým dr.Read ( )
i = 0 To dr.FieldCount - 1
strLine = strLine & dr.GetValue ( i ) & Chr ( 9 )
Ďalšie
objStreamWriter.WriteLine ( strLine )
strLine = " "
End While
" Clean odkaz na súbor programu Excel .
HyperLink1.Text = " Otvoriť Excel "
HyperLink1.NavigateUrl = fileExcel
4
Kliknite na " Save All " na súbor menu pre uloženie súborov projektu . Kliknite na tlačidlo " Zostaviť " vytvoriť projekt v ponuke Zostaviť v Visual Studio . NET integrované vývojové prostredie . Pravým - kliknite na " WebForm1.aspx " formulár v aplikácii Visual Studio . NET integrované vývojové prostredie Solution Explorer a spustiť kód kliknutím na tlačidlo " Zobraziť v prehliadači . "