|
Microsoft a son propre langage de programmation - ASP.net , qui signifie Active Server Pages . Cette application s'exécute dans IIS ( Internet Information Services) , qui est un composant gratuit de certains systèmes d'exploitation Microsoft, tels que Windows 2000 et Windows NT 4.0. Vous pouvez utiliser ASP pour divers projets , comme la création de rapports et la création de pages Web. ASP peut contenir des éléments tels que les balises HTML et des scripts , il est donc très flexible et facile à utiliser. Instructions
1 Run Microsoft Visual Studio. NET . Point à "Nouveau" dans le menu Fichier, puis cliquez sur " Project ". Lorsque la boîte de dialogue Nouveau projet apparaît, cliquez sur "Project Visual Basic » à partir des types de projet , puis sous Modèles , cliquez sur " Application Web ASP.NET. "
2 type " ExcelVBTest " dans le nom case et cliquez sur le serveur approprié dans la zone Emplacement . Laissez le nom du serveur comme " http://localhost ", si vos fichiers sont hébergés sur le serveur local, puis cliquez sur "OK". Faites glisser un contrôle "Lien hypertexte " de la boîte à outils vers le formulaire Web dans le fichier WebForm1.aspx. Cliquez-droit sur le fichier " WebForm1.aspx " , puis cliquez sur " Afficher le code " pour afficher le code source de votre projet
3 Collez le code ci-dessous pour le haut de la page: .
Imports System.Data Imports System.Data.Common
Imports System.Data.SqlClient
Imports System.IO Imports
System.Text
puis d'inclure le code suivant à l'événement " Page_Load ":
Dim i As Integer
strLine As String, filePath , nom de fichier , fileExcel , lien Photos objFileStream As FileStream
objStreamWriter As StreamWriter
nRandom As aléatoire = new Random ( DateTime.Now.Millisecond )
fs As Object , myFile As Object
Dim cnn Comme SqlConnection = New SqlConnection ( "server = (local); database = pubs ; " & _
" Integrated Security = SSPI " )
'Créer un nom de fichier pseudo -aléatoire.
fileExcel = "t" et nRandom.Next (). ToString () & ". xls "
« Définir un dossier virtuel pour sauver la fichier .
' Assurez-vous que vous changez le nom de l'application en fonction de votre dossier.
filePath = Server.MapPath ("\\ ExcelVBTest " )
filename = filePath & " \\ "& fileExcel
' utilisation FileStream pour créer le fichier . xls.
objFileStream = New FileStream ( fileName , FileMode.OpenOrCreate , FileAccess.Write )
objStreamWriter = Nouveau StreamWriter ( objFileStream )
'Utiliser un DataReader pour se connecter à la base de données Pubs.
cnn.Open ()
Dim sql As String = "select au_id , au_lname , au_fname , le téléphone, "& _
" adresse, ville, état, code postal , un contrat d'auteurs "
cmd As SqlCommand = New SqlCommand ( sql , cnn )
Dim Dr AS SqlDataReader
dr = cmd.ExecuteReader ()
' énumérer les noms de champs et les dossiers qui sont utilisés pour créer le fichier .
For i = 0 To dr . FieldCount - . 1.
strLine = strLine & dr.GetName ( i) ToString & Chr (9) pour Suivant
», écrivent les informations de nom de domaine à déposer < br > objStreamWriter.WriteLine ( strLine )
« Réinitialiser la chaîne de données.
strLine =" "
' énumérer la base de données qui est utilisée pour remplir le fichier .
Bien dr.Read ()
For i = 0 To dr.FieldCount - 1 x strLine = strLine & dr.GetValue ( i) & Chr (9) Photos Suivant
objStreamWriter.WriteLine ( strLine )
strLine = ""
End While
'Clean un lien vers le fichier Excel.
HyperLink1.Text = " Ouvrez Excel "
HyperLink1.NavigateUrl = fileExcel
4 cliquez sur "Save All" sur le fichier Menu pour enregistrer les fichiers de projet. Cliquez sur " Créer " pour créer le projet dans le menu Générer dans Visual Studio. NET Environnement de développement intégré . Cliquez-droit sur la forme " WebForm1.aspx " dans Visual Studio. NET Environnement Explorateur de solutions intégrées de développement et exécuter le code en cliquant sur " Afficher dans le navigateur ».
|
