Importere data fra Microsoft SQL Server til Microsoft Excel

Artikkel-ID: 306125 - Vis produkter som denne artikkelen gjelder for.

Denne trinnvise instruksjonen beskriver hvordan du importerer data til Microsoft Excel fra Pub-databasen, en eksempeldatabase som er inkludert i Microsoft SQL Server.

ActiveX Data Objects (ADO) gir tilgang til alle typer datakilder. Det er en falt objektmodell med f� objekter. Hovedobjektene i ADO-objektmodellen er:

   Objekt          Beskrivelse
   -----------------------------------------------------------------------
   Tilkobling      Refererer til koblingen til datakilden.
   Postsett        Refererer til data som er trukket ut.
   Kommando        Refererer til en lagret prosedyre eller SQL-setninger som 
                   m� utf�res.

Det er mange m�ter � returnere et postsett med ADO p�, men denne artikkelen tar for seg objektene Tilkobling og Postsett.

Krav

Du m� ha en lokal server som kj�rer Microsoft SQL Server og inneholder Pub-databasen.

Microsoft anbefaler at du har kunnskap om f�lgende:

Opprette VBA-prosedyrer i Office-programmer.
Jobbe med objektvariabler.
Jobbe med Excel-objekter.
Konsepter for RDBMS (Relational Database Management Systems)
SELECT-setninger for SQL (Structured Query Language).

Referanser til ADO-objektbiblioteket

Start Excel. �pne en ny arbeidsbok, og lagre den som SQLExtract.xls.
Start Visual Basic Editor og velg VBA-prosjektet.
Klikk Referanser p� Verkt�y-menyen.
Klikk for � velge den nyeste versjonen av avmerkingsboksen Microsoft ActiveX Data Objects Library.

Opprette tilkoblingen

Sett inn en ny modul i prosjektet.
Opprett en ny delprosedyre kalt DataExtract.

Skriv eller lim inn f�lgende kode:

' 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

Trekk ut data

Skriv eller lim inn f�lgende kode for � trekke ut postene:

' 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

Kontroller at koden virker

Kj�r koden.
Bytt til Excel og se p� Ark1 i arbeidsboken for � vise dataen.

Feils�king

Hvis koden henger og du f�r en kj�retidsfeil, kan databaseserveren v�re nede. Du kan bruke egenskapen ConnectionTimeout til � kontrollere hvor lang tid det tar � gi en kj�retidsfeil. Angi en verdi som er st�rre enn null, for denne egenskapen. Hvis du angir verdien til null, blir tilkoblingen aldri tidsavbrutt. Standardverdien er 15 sekunder.