Προγραμματισμός

* Γνώση Υπολογιστών >> Προγραμματισμός >> Visual Βασικά Προγραμματισμός

Πώς να οικοδομήσουμε μια καρτέλα οριοθετημένο αρχείο από ASP

Microsoft έχει τη δική του γλώσσα προγραμματισμού - ASP.net , που σημαίνει Active Server Pages. Αυτή η εφαρμογή τρέχει μέσα IIS (Internet Information Services) , το οποίο είναι ένα ελεύθερο συστατικό ορισμένων λειτουργικών συστημάτων της Microsoft , όπως τα Windows 2000 και τα Windows NT 4.0 . Μπορείτε να χρησιμοποιήσετε ASP για διάφορα έργα , όπως η δημιουργία εκθέσεων και η δημιουργία ιστοσελίδων . ASP μπορεί να περιέχει στοιχεία όπως ετικέτες και τα σενάρια HTML , έτσι ώστε να είναι πολύ ευέλικτο και εύκολο στη χρήση . Οδηγίες
Η 1

να εκτελέσετε το Microsoft Visual Studio . NET . Σημείο στο " New " από το μενού Αρχείο και στη συνέχεια κάντε κλικ στο κουμπί "Project ". Όταν το παράθυρο διαλόγου New Project σκάει επάνω , κάντε κλικ στο " Visual Basic Project" από τους Τύποι έργου , και στη συνέχεια, στην περιοχή Πρότυπα , κάντε κλικ στην επιλογή " ASP.NET Web Application . " 2

Τύπος " ExcelVBTest " στο όνομα κουτί και κάντε κλικ στο κατάλληλο διακομιστή στο πλαίσιο Θέση . Αφήστε το όνομα του διακομιστή ως " http://localhost , " εάν τα αρχεία σας στεγάζεται σε τοπικό διακομιστή σας , και κάντε κλικ στο "OK". Σύρετε ένα " HyperLink « ελέγχου από την εργαλειοθήκη στη φόρμα Web στο αρχείο WebForm1.aspx . . Κάντε δεξί κλικ στο αρχείο " WebForm1.aspx " , και στη συνέχεια κάντε κλικ στο κουμπί " Προβολή κώδικα " για να εμφανίσετε τον πηγαίο κώδικα του έργου σας
εικόνων 3

Επικολλήστε τον παρακάτω κώδικα στην κορυφή της σελίδας :

Εισαγωγές System.Data

Εισαγωγές System.Data.Common

Εισαγωγές System.Data.SqlClient

Εισαγωγές System.IO

Εισαγωγές System.Text

Και στη συνέχεια να συμπεριλάβει την επιτυχία κωδικός για το " Page_Load " συμβάν :

Dim i As Integer

Dim strLine As String , filePath , fileName , fileExcel , σύνδεση

Dim objFileStream Όπως FileStream

Dim objStreamWriter Όπως StreamWriter

Dim nRandom Όπως Τυχαία = Νέα Random ( DateTime.Now.Millisecond )

Dim fs As Object , myFile As Object

Dim το CNN Όπως SqlConnection = Νέα SqlConnection ( "Ο διακομιστής = ( τοπική ) ? database = παμπ ? " & _

" Ολοκληρωμένη Ασφάλεια = SSPI " )

' Δημιουργήστε ένα ψευδο- τυχαίο όνομα αρχείου .

fileExcel = " t" και nRandom.Next ( ) . ToString ( ) & " . xls "

« Ορίστε έναν εικονικό φάκελο για να αποθηκεύσετε το αρχείο .

» Βεβαιωθείτε ότι μπορείτε να αλλάξετε το όνομα της εφαρμογής για να ταιριάζει με το φάκελο σας .

filePath = Server.MapPath ( " \\ ExcelVBTest " )

fileName = filePath & " \\ " & fileExcel

« Χρήση FileStream να δημιουργήσετε το αρχείο xls . .

objFileStream = Νέα FileStream ( fileName , FileMode.OpenOrCreate , FileAccess.Write )

objStreamWriter = Νέα StreamWriter ( objFileStream )

« Χρησιμοποιήστε ένα DataReader να συνδεθεί με τη βάση δεδομένων Pubs .

cnn.Open ( )

Dim sql As String = " επιλέξτε au_id , au_lName , au_fname , τηλέφωνο , " & _

" διεύθυνση , πόλη, πολιτεία , zip , της σύμβασης από τους συγγραφείς "

Δημ. cmd Όπως SqlCommand = Νέα SqlCommand ( sql , το CNN )

Dim dr Όπως SqlDataReader

dr = cmd.ExecuteReader ( )

« η απαρίθμηση των ονομάτων τομέα και τα αρχεία που χρησιμοποιούνται για τη δημιουργία του αρχείου .

για i = 0 Για να dr . FieldCount - . 1.

strLine = strLine & dr.GetName ( i ) ToString & Chr ( 9 )

Επόμενο

« Γράψτε το πεδίο των πληροφοριών ονόματος σε αρχείο

objStreamWriter.WriteLine ( strLine )

« επαναρχικοποιηθεί το string για τα δεδομένα .

strLine = " "

« απαρίθμηση τη βάση δεδομένων που χρησιμοποιείται για τη συμπλήρωση του αρχείου .

Ενώ dr.Read ( )

Για i = 0 Για να dr.FieldCount - 1

strLine = strLine & dr.GetValue ( i ) & Chr ( 9 )

Επόμενο

objStreamWriter.WriteLine ( strLine )

strLine = " " End

Ενώ

« Clean μια σύνδεση με το αρχείο Excel .

HyperLink1.Text = "Άνοιγμα Excel "

HyperLink1.NavigateUrl = fileExcel
Η 4

Κάντε κλικ στο " Save All" στο Αρχείο μενού για να αποθηκεύσετε τα αρχεία του έργου . Κάντε κλικ στο κουμπί " Build " για να δημιουργήσετε το σχέδιο για το Δόμηση μενού στο Visual Studio . NET ολοκληρωμένο περιβάλλον ανάπτυξης . Κάντε δεξί κλικ στο " WebForm1.aspx " μορφή Visual Studio . NET Ολοκληρωμένο Περιβάλλον Ανάπτυξης Εξερεύνηση των λύσεων , και να εκτελέσετε τον κώδικα κάνοντας κλικ στο " Δείτε στο πρόγραμμα περιήγησης . "
Η
εικόνων

Συναφής σύστασή

Πνευματικά δικαιώματα © Γνώση Υπολογιστών Όλα τα δικαιώματα κατοχυρωμένα