Microsoft har sitt eget programmeringsspråk - ASP.net , vilket står för Active Server Pages . Denna applikation körs i IIS ( Internet Information Services ) , som är en fri komponent i vissa Microsoft-operativsystem , som Windows 2000 och Windows NT 4.0 . Du kan använda ASP för olika projekt , som att skapa rapporter och bygga webbsidor . ASP kan innehålla element såsom HTML-taggar och skript , så det är mycket flexibel och lätt att använda . Instruktioner
1
Run Microsoft Visual Studio. NET . Peka på " Nytt " på Arkiv-menyn , och klicka sedan på " Project . " När dialogrutan Nytt projekt dyker upp , klicka på " Visual Basic Project " från projekttyper , och sedan under Mallar , klicka på " ASP.NET Web Application . "
2
Type " ExcelVBTest " i namnet rutan och klicka på lämplig server i rutan Plats . Lämna servern namn som " http://localhost , " om dina filer är inrymt i den lokala servern , och klicka på " OK . " Dra en " HyperLink " kontroll från verktygslådan till webbformuläret i WebForm1.aspx filen . Högerklicka på " WebForm1.aspx " filen och klicka sedan på " Visa kod " för att visa ditt projekts källkod
3
Klistra in koden nedan till toppen av sidan : .
Imports System.Data
Imports System.Data.Common
Imports System.Data.SqlClient
Imports System.IO
Import System.Text
Och sedan inkludera den efterföljande koden till " Page_Load " händelse :
Dim i As Integer
Dim strLine As String , filepath , filnamn fileExcel , länk
Dim objFileStream Som FileStream
Dim objStreamWriter Som StreamWriter
Dim nRandom Som Random = Ny Random ( DateTime.Now.Millisecond ) katalog
Dim fs As Object , myFile As Object
Dim cnn Som SqlConnection = Ny SqlConnection ( " server = ( lokal ) , databas = pubar , " & _
" Integrated Security = SSPI " ) katalog
' Skapa en pseudo - random filnamn .
fileExcel = " t " & nRandom.Next ( ) . toString ( ) & " . xls "
" Ställ en virtuell mapp att spara fil .
" se till att du ändrar programmets namn för att matcha din mapp .
filepath = Server.MapPath ( " \\ ExcelVBTest " ) katalog
filename = filepath & " \\ " & fileExcel
" Använd FileStream för att skapa den . xls-fil .
objFileStream = Ny FileStream (filename , FileMode.OpenOrCreate , FileAccess.Write ) katalog
objStreamWriter = Ny StreamWriter ( objFileStream ) katalog
" Använd en DataReader att ansluta till Pubs -databasen .
cnn.Open ( ) katalog
Dim sql As String = " select au_id , au_lname , au_fname , telefon , " & _
" adress , stad , stat , zip , kontrakt från författarna "
Dim cmd Som SqlCommand = Ny SqlCommand ( sql , CNN ) katalog
Dim dr som SqlDataReader
dr = cmd.ExecuteReader ( ) katalog
" Räkna fältnamn och poster som används för att bygga upp filen .
för i = 0 till DR . FieldCount - . . 1
strLine = strLine & dr.GetName ( i) ToString & Chr ( 9 ) katalog
Nästa
' Skriv informationen fältnamnet till fil
objStreamWriter.WriteLine ( strLine ) katalog
' initiera strängen för data.
strLine = " "
" Räkna den databas som används för att fylla i filen .
dr.Read ( ) katalog
För i = 0 att dr.FieldCount - 1
strLine = strLine & dr.GetValue ( i) & Chr ( 9 )
Nästa
objStreamWriter.WriteLine ( strLine )
strLine = " "
End Medan
" Clean en länk till Excel-filen .
HyperLink1.Text = "Öppna Excel "
HyperLink1.NavigateUrl = fileExcel
4
Klicka " Save All" på Arkiv menyn för att spara projektfiler . Klicka på " Build " för att skapa projektet på Build -menyn i Visual Studio . NET Integrated Development Environment . Högerklicka på " WebForm1.aspx " formulär i Visual Studio . , NET Integrated Development Environment Solution Explorer och köra koden genom att klicka på " Visa i webbläsare . " Addera
