να εκτελέσετε το 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 Ολοκληρωμένο Περιβάλλον Ανάπτυξης Εξερεύνηση των λύσεων , και να εκτελέσετε τον κώδικα κάνοντας κλικ στο " Δείτε στο πρόγραμμα περιήγησης . "
Η
εικόνων
Πνευματικά δικαιώματα © Γνώση Υπολογιστών Όλα τα δικαιώματα κατοχυρωμένα