Jak importovat data do aplikace Microsoft Excel z Microsoft SQL Server

Překlady článku Překlady článku
ID článku: 306125 - Produkty, které se vztahují k tomuto článku.
Rozbalit všechny záložky | Minimalizovat všechny záložky

Na této stránce

Souhrn

Tento podrobný návod popisuje, jak importovat data do aplikace Microsoft Excel z databáze Pubs, ukázková databáze, která je součástí Microsoft SQL Server.

Objekty ADO (ActiveX Data OBJECTS) poskytují přístup na libovolný typ zdroje dat. Je plochý objektový model s několika objekty. Jsou hlavními objekty v modelu objektu 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.
				
Přestože vrátit pomocí objektů ADO Recordset mnoha způsoby, tento článek se soustřeďuje na objekty sady záznamů a připojení.

Požadavky

Musí mít místní server systémem Microsoft SQL Server a obsahující databázi Pubs.

Společnost Microsoft doporučuje že mít znalosti o následující:
  • Vytvoření jazyka Visual Basic pro postupy aplikací sady Office.
  • Práce s objektové proměnné.
  • Práce s objekty aplikace Excel.
  • Relační koncepty systémy správy databáze (RDBMS).
  • Strukturované příkazy SELECT jazyka SQL (Query).

Odkazující na knihovnu objektů ADO

  1. Spuštění aplikace Excel. Otevření nového sešitu a potom jej uložte jako SQLExtract.xls.
  2. Spusťte Editor jazyka Visual Basic a vyberte projekt VBA.
  3. V Nástroje nabídky, klepněte na tlačítko Odkazy.
  4. Klepnutím vyberte poslední verze Knihovna objektů Microsoft ActiveX Data Zaškrtávací políčko.

Vytváření připojení

  1. Vložte nový modul do projektu.
  2. Vytvořte novou proceduru Sub nazývá DataExtract.
  3. Zadejte nebo vložte následující kód:
    ' 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
    					

Extrahování dat

Zadejte nebo vložte následující kód extrahovat záznamy:
' 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
				

Ověření, zda kód funguje

  1. Spusťte kód.
  2. Přepněte do aplikace Excel a prohlédněte List1 v sešitu zobrazit data.

Poradce při potížích

Pokud se zobrazí kód přestane reagovat a zobrazí chyba běhu, databázový server může být dolů. Vlastnost ConnectionTimeout řízení doby trvání vrátit chybu běhu. Nastavte tuto vlastnost na hodnotu větší než nula. Pokud nastavíte hodnotu nula, nikdy časového limitu připojení. Výchozí hodnota je 15 sekund.

Odkazy

Další ukázkový kód můžete najít hledáním na následujícím webu společnosti Microsoft:
http://msdn.microsoft.com/

Vlastnosti

ID článku: 306125 - Poslední aktualizace: 19. dubna 2012 - Revize: 7.0
Informace v tomto článku jsou určeny pro produkt:
  • Microsoft Office Excel 2007
  • Microsoft Excel 2002 Standard Edition
Klíčová slova: 
kbhowtomaster kbmt KB306125 KbMtcs
Strojově přeložený článek
Důležité: Tento článek byl přeložen pomocí software společnosti Microsoft na strojový překlad, ne profesionálním překladatelem. Společnost Microsoft nabízí jak články přeložené překladatelem, tak články přeložené pomocí software na strojový překlad, takže všechny články ve Znalostní databázi (Knowledge Base) jsou dostupné v češtině. Překlad pomocí software na strojový překlad ale není bohužel vždy dokonalý. Obsahuje chyby ve skloňování slov, skladbě vět, nebo gramatice, podobně jako když cizinci dělají chyby při mluvení v češtině. Společnost Microsoft není právně zodpovědná za nepřesnosti, chyby nebo škody vzniklé chybami v překladu, nebo při použití nepřesně přeložených instrukcí v článku zákazníkem. Společnost Microsoft aktualizuje software na strojový překlad, aby byl počet chyb omezen na minimum.
Projděte si také anglickou verzi článku:306125

Dejte nám zpětnou vazbu

 

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