Tietojen tuominen Microsoft SQL Serverist� Microsoft Exceliin

Artikkelin tunnus: 306125 - N�yt� tuotteet, joita t�m� artikkeli koskee.

T�ss� vaiheittaiset ohjeet sis�lt�v�ss� oppaassa kuvataan, miten tietoja tuodaan Microsoft Exceliin Microsoft SQL Serveriin sis�ltyv�st� Pubs-mallitietokannasta.

ActiveX Data Object (ADO) -objektit mahdollistavat mink� tahansa tietol�hdetyypin k�ytt�misen. Se on apuobjektimalli, jossa on vain v�h�n objekteja. ADO-objektimallin p��objektit ovat seuraavat:

   Objekti          Kuvaus
   -----------------------------------------------------------------------
   Connection      Viittaa yhteyteen tietol�hteeseen.
   Recordset       Viittaa poimittuihin tietoihin.
   Command         Viittaa tallennettuun toimintosarjaan tai SQL-lausekkeisiin, 
                   joka tai jotka on suoritettava.

Vaikka Recordset-objektin palauttamiseen ADO-objektien avulla on useita tapoja, t�m� artikkeli keskittyy Connection- ja Recordset-objekteihin.

Edellytykset

K�yt�ss� on oltava paikallinen Microsoft SQL Server -palvelin, joka sis�lt�� Pubs-tietokannan.

Microsoft suosittelee, ett� tunnet seuraavat:

Visual Basic for Applications -toimintosarjojen luominen Office-ohjelmissa
objektimuuttujien k�sitteleminen
Excel-objektien k�sitteleminen
Relational Database Management Systems (RDBMS) -k�sitteet
SQL (Structured Query Language) SELECT -lausekkeet

ADO-objektikirjastoon viittaaminen

K�ynnist� Excel. Avaa uusi ty�kirja ja tallenna se nimell� SQLExtract.xls.
K�ynnist� Visual Basic Editor ja valitse VBA-projektisi.
Valitse Ty�kalut-valikosta Viittaukset.
Valitse Microsoft ActiveX Data Objects Library -kirjaston uusimman version valintaruutu.

Yhteyden muodostaminen

Lis�� uusi moduuli projektiin.
Luo uusi Sub-toimintosarja nimelt� DataExtract.

Kirjoita tai liit� seuraava koodi:

' Luo Connection-objekti.
Dim cnPubs As ADODB.Connection
Set cnPubs = New ADODB.Connection

' Anna yhteysmerkkijono.
Dim strConn As String

'K�yt� SQL Server OLE DB Provider -palvelua.
strConn = "PROVIDER=SQLOLEDB;"

'Yhdist� paikallisen palvelimen Pubs-tietokantaan.
strConn = strConn & "DATA SOURCE=(local);INITIAL CATALOG=pubs;"

'K�yt� integroitua kirjautumista.
strConn = strConn & " INTEGRATED SECURITY=sspi;"

'Avaa nyt yhteys.
cnPubs.Open strConn

Tietojen poimiminen

Kirjoita tai liit� seuraava koodi tietueiden poimimista varten:

' Luo Recordset-objekti.
Dim rsPubs As ADODB.Recordset
Set rsPubs = New ADODB.Recordset

With rsPubs
	' M��rit� Connection-objekti.
	.ActiveConnection = cnPubs
	' Poimi tarvittavat tietueet.
	.Open "SELECT * FROM Authors"
	' Kopioi tietueet Taulukon1 soluun A1.
	Sheet1.Range("A1").CopyFromRecordset rsPubs
	
	' Siivoa
	.Close
End With

cnPubs.Close
Set rsPubs = Nothing
Set cnPubs = Nothing

Koodin toimimisen tarkistaminen

Suorita koodi.
Vaihda Exceliin ja tarkastele tietoja laskentataulukon taulukossa Taulukko1.

Vianm��ritys

Jos koodi vaikuttaa jumittuvan ja n�ytt��n tulee suorituksenaikainen virhe, tietokantapalvelin ei ehk� ole k�ytett�viss�. ConnectionTimeout-ominaisuuden avulla voit m��ritt�� ajan, jonka suorituksenaikaisen virheen palauttaminen kest��. M��rit� t�lle ominaisuudelle arvo, joka on suurempi kuin nolla. Jos m��rit�t arvoksi nolla, yhteytt� ei aikakatkaista koskaan. Oletusarvo on 15 sekuntia.