Τρόπος εισαγωγής δεδομένων από τον Microsoft SQL Server στο Microsoft Excel

Μεταφράσεις άρθρων Μεταφράσεις άρθρων
Αναγν. άρθρου: 306125 - Δείτε τα προϊόντα στα οποία αναφέρεται το συγκεκριμένο άρθρο.
Αυτό το άρθρο, στο παρελθόν ήταν δημοσιευμένο με αριθμό GR306125
Ανάπτυξη όλων | Σύμπτυξη όλων

Σε αυτήν τη σελίδα

Περίληψη

Αυτός ο οδηγός βήμα προς βήμα περιγράφει τον τρόπο εισαγωγής δεδομένων στο Microsoft Excel από τη βάση δεδομένων Pubs, ένα δείγμα βάσης δεδομένων που συμπεριλαμβάνεται με τον Microsoft SQL Server.

ActiveX Data Objects (ADO) παρέχουν πρόσβαση σε οποιονδήποτε τύπο αρχείων προέλευσης δεδομένων. Είναι ένα απλό μοντέλο αντικειμένων με λίγα αντικείμενα. Τα κύρια αντικείμενα στο μοντέλο αντικείμενων ADO είναι:
   Object          Description
   -----------------------------------------------------------------------
   Connection      Refers to the connection to the data source.
   Recordset       Refers to the data extracted.
   Command         Refers to a stored procedure or SQL statements that 
                   need to be executed.
				
Αν και υπάρχουν πολλοί τρόποι για να επιστρέψετε ένα αντικείμενο Recordset χρησιμοποιώντας τα αντικείμενα ADO, αυτό το άρθρο συμπυκνώματα της σύνδεσης και τα αντικείμενα Recordset.

Απαιτήσεις

Πρέπει να έχετε έναν τοπικό διακομιστή που εκτελεί τον Microsoft SQL Server και που περιέχει τη βάση δεδομένων Pubs.

Η Microsoft συνιστά να γνωρίζετε ένα από τα εξής:
  • Δημιουργία της Visual Basic για εφαρμογές διαδικασίες στα προγράμματα του Office.
  • Εργασία με μεταβλητές αντικειμένων.
  • Εργασία με αντικείμενα του Excel.
  • Σχεσιακή έννοιες συστήματα διαχείρισης βάσεων δεδομένων (RDBMS).
  • ΕΠΙΛΈΞΤΕ προτάσεις Structured Query Language (SQL).

Αναφορά στη βιβλιοθήκη αντικειμένων ADO

  1. Εκκίνηση του Excel. Ανοίξτε ένα νέο βιβλίο εργασίας και στη συνέχεια αποθηκεύστε το με το όνομα SQLExtract.xls.
  2. Ξεκινήστε το πρόγραμμα επεξεργασίας της Visual Basic και επιλέξτε το έργο VBA.
  3. Σχετικά με το Εργαλεία μενού, κάντε κλικ στο κουμπί Αναφορές.
  4. Κάντε κλικ για να επιλέξετε την πιο πρόσφατη έκδοση του Βιβλιοθήκη αντικειμένων Microsoft ActiveX Data πλαίσιο ελέγχου.

Δημιουργία της σύνδεσης

  1. Εισαγάγετε μια νέα λειτουργική μονάδα στο έργο.
  2. Δημιουργήστε μια νέα διαδικασία Sub, που ονομάζεται DataExtract.
  3. Πληκτρολογήστε ή επικολλήστε τον ακόλουθο κώδικα:
    ' Create a connection object.
    Dim cnPubs As ADODB.Connection
    Set cnPubs = New ADODB.Connection
    
    ' Provide the connection string.
    Dim strConn As String
    
    'Use the SQL Server OLE DB Provider.
    strConn = "PROVIDER=SQLOLEDB;"
    
    'Connect to the Pubs database on the local server.
    strConn = strConn & "DATA SOURCE=(local);INITIAL CATALOG=pubs;"
    
    'Use an integrated login.
    strConn = strConn & " INTEGRATED SECURITY=sspi;"
    
    'Now open the connection.
    cnPubs.Open strConn
    					

Εξαγωγή των δεδομένων

Πληκτρολογήστε ή επικολλήστε τον παρακάτω κώδικα για να εξαγάγετε τις εγγραφές σας:
' Create a recordset object.
Dim rsPubs As ADODB.Recordset
Set rsPubs = New ADODB.Recordset

With rsPubs
	' Assign the Connection object.
	.ActiveConnection = cnPubs
	' Extract the required records.
	.Open "SELECT * FROM Authors"
	' Copy the records into cell A1 on Sheet1.
	Sheet1.Range("A1").CopyFromRecordset rsPubs
	
	' Tidy up
	.Close
End With

cnPubs.Close
Set rsPubs = Nothing
Set cnPubs = Nothing
				

Επαλήθευση ότι ο κώδικας λειτουργεί

  1. Εκτέλεση του κώδικα.
  2. Μεταβείτε στο Excel και κοιτάξτε στο Φύλλο1 του βιβλίου εργασίας, για να προβάλετε τα δεδομένα.

Αντιμετώπιση προβλημάτων

Εάν ο κώδικας φαίνεται ότι παύει να ανταποκρίνεται και λαμβάνετε ένα μήνυμα λάθους χρόνου εκτέλεσης, ο διακομιστής βάσης δεδομένων μπορεί να είναι πατημένο. Μπορείτε να χρησιμοποιήσετε την ιδιότητα ConnectionTimeout, για να ελέγξετε το χρόνο που απαιτείται για να επιστρέψει ένα σφάλμα χρόνου εκτέλεσης. Ορίσετε αυτήν την ιδιότητα μια τιμή μεγαλύτερη του μηδενός. Εάν ορίσετε την τιμή μηδέν, η σύνδεση θα ποτέ χρονικό όριο. Η προεπιλεγμένη τιμή είναι 15 δευτερόλεπτα.

Αναφορές

Μπορείτε να βρείτε πρόσθετα δείγματα κώδικα κατά την αναζήτηση στην ακόλουθη τοποθεσία της Microsoft στο Web:
http://MSDN.Microsoft.com/

Ιδιότητες

Αναγν. άρθρου: 306125 - Τελευταία αναθεώρηση: Πέμπτη, 19 Απριλίου 2012 - Αναθεώρηση: 1.0
Οι πληροφορίες σε αυτό το άρθρο ισχύουν για:
  • Microsoft Office Excel 2007
  • Microsoft Excel 2002 Standard Edition
Λέξεις-κλειδιά: 
kbhowtomaster kbmt KB306125 KbMtel
Μηχανικά μεταφρασμένο
ΣΗΜΑΝΤΙΚΟ: Αυτό το άρθρο είναι προϊόν λογισμικού μηχανικής μετάφρασης της Microsoft και όχι ανθρώπινης μετάφρασης. Η Microsoft σάς προσφέρει άρθρα που είναι προϊόντα ανθρώπινης αλλά και μηχανικής μετάφρασης έτσι ώστε να έχετε πρόσβαση σε όλα τα άρθρα της Γνωσιακής Βάσης μας στη δική σας γλώσσα. Ωστόσο, ένα άρθρο που έχει προκύψει από μηχανική μετάφραση δεν είναι πάντα άριστης ποιότητας. Ενδέχεται να περιέχει λεξιλογικά, συντακτικά ή γραμματικά λάθη, όπως ακριβώς τα λάθη που θα έκανε ένας μη φυσικός ομιλητής επιχειρώντας να μιλήσει τη γλώσσα σας. Η Microsoft δεν φέρει καμία ευθύνη για τυχόν ανακρίβειες, σφάλματα ή ζημίες που προκύψουν λόγω τυχόν παρερμηνειών στη μετάφραση του περιεχομένου ή χρήσης του από τους πελάτες της. Επίσης, η Microsoft πραγματοποιεί συχνά ενημερώσεις στο λογισμικό μηχανικής μετάφρασης.
Η αγγλική έκδοση αυτού του άρθρου είναι η ακόλουθη:306125

Αποστολή σχολίων

 

Contact us for more help

Contact us for more help
Connect with Answer Desk for expert help.
Get more support from smallbusiness.support.microsoft.com