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 . "