Cum se importă date din Microsoft SQL Server în Microsoft Excel

Traduceri articole Traduceri articole
ID articol: 306125 - View products that this article applies to.
Măriți totul | Reduceți totul

În această pagină

REZUMAT

Acest pas cu pas ghid descrie cum pentru a importa datele în Microsoft Excel din baza acoperire de date pub-uri, o baza acoperire de date eșantion care este inclus cu Microsoft SQL Server.

Obiecte acoperire de date ActiveX (ADO) oferă acces la orice tip de sursă acoperire de date. Este un model obiect plat cu câteva obiecte. Obiecte principale în modelul de obiecte ADO sunt:
   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.
				
Deși există multe moduri de a returna un set de înregistrări utilizând ADO, acest articol se concentrează pe conexiunea și obiectele Recordset.

Cerin?ele

Trebuie să aveți un server local care se execută Microsoft SQL Server și care conțin date pub-uri.

Microsoft recomandă aveți cunoștințe de următoarele:
  • Crearea Visual Basic pentru aplicații procedurile în programele Office.
  • De lucru cu variabile obiect.
  • Lucrul cu obiecte de Excel.
  • Relational sisteme de Management baze acoperire de date (RDBMS) concepte.
  • Structured Query Language (SQL) instrucțiuni SELECT.

Corelarea bibliotecă de obiecte ADO

  1. Porniți Excel. Deschideți un registru de lucru și apoi salvați-l ca SQLExtract.xls.
  2. Porniți Visual Basic Editor și selectați proiectul VBA.
  3. Pe Instrumente meniu, faceți clic pe Referințe.
  4. Faceți clic pentru a selecta cea mai recentă versiune a Bibliotecă obiecte Microsoft ActiveX date casetă de selectare.

Crearea conexiunea

  1. Inserați un nou modul în proiect.
  2. Creați o nouă procedură de Sub numit DataExtract.
  3. Tastați sau lipiți următorul cod:
    ' 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
    					

Extragerea datelor

Tastați sau lipiți următorul cod pentru a extrage înregistrările:
' 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
				

Verificarea că codul de lucrări

  1. Executați codul.
  2. Comutați în Excel și uita-te la Foaie1 în registrul de lucru pentru a vizualiza datele.

Depanare

În cazul în care codul pare să stea și primiți o eroare de execuție, serverul de baze acoperire de date poate fi în jos. Utilizați proprietatea ConnectionTimeout pentru a controla marcă de timp este nevoie pentru a returna o eroare run-time. Setați această proprietate la o valoare mai mare decât zero. Dacă setați valoarea la zero, conexiunea nu va time out. valoare implicită este de 15 secunde.

REFERINȚE

Puteți găsi codul e?antionului suplimentare de căutare site web Microsoft:
http://msdn.Microsoft.com/

Proprietă?i

ID articol: 306125 - Ultima examinare: 19 aprilie 2012 - Revizie: 1.0
SE APLICĂ LA:
  • Microsoft Office Excel 2007
  • Microsoft Excel 2002 Standard Edition
Cuvinte cheie: 
kbhowtomaster kbmt KB306125 KbMtro
Traducere automată
IMPORTANT: Acest articol a fost tradus de software-ul de traducere automată Microsoft, si nu de un traducător. Microsoft vă oferă atât articole traduse de persoane, cât și articole traduse automat, astfel incat aveti access la toate articolele din Baza noastră de informatii în limba dvs. materna. Totuși, un articol tradus automat nu este întotdeauna perfect. Acesta poate conține greșeli de vocabular, sintaxă sau gramatică, la fel cum un vorbitor străin poate face greșeli vorbind limba dvs. materna. Compania Microsoft nu este responsabilă pentru nici o inexactitate, eroare sau daună cauzată de traducerea necorespunzătoare a conținutului sau de utilizarea traducerii necorespunzătoare de către clienții nostri. De asemenea, Microsoft actualizează frecvent software-ul de traducere automată.
Face?i clic aici pentru a vizualiza versiunea în limba engleză a acestui articol:306125

Trimite?i feedback

 

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