Bagaimana untuk mengimpor data dari Microsoft SQL Server ke Microsoft Excel

Terjemahan Artikel Terjemahan Artikel
ID Artikel: 306125 - Melihat produk di mana artikel ini berlaku.
Perbesar semua | Perkecil semua

Pada Halaman ini

Ringkasan

Panduan langkah demi langkah ini menjelaskan cara untuk mengimpor data ke Microsoft Excel dari pub database, database contoh yang disertakan dengan Microsoft SQL Server.

objek data ActiveX (ADO) menyediakan akses ke semua jenis data sumber. Ini adalah model benda pipih dengan beberapa objek. Benda-benda utama dalam model objek ADO adalah:
   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.
				
Meskipun ada banyak cara untuk kembali Recordset dengan menggunakan ADO, artikel ini berkonsentrasi pada koneksi dan Recordset objek.

Persyaratan

Anda harus memiliki server lokal yang menjalankan Microsoft SQL Server dan berisi pub database.

Microsoft menganjurkan Anda memiliki pengetahuan berikut:
  • Membuat Visual Basic untuk aplikasi prosedur dalam program Office.
  • Bekerja dengan variabel objek.
  • Bekerja dengan benda-benda Excel.
  • Relational Database manajemen sistem (RDBMS) konsep.
  • Bahasa Permintaan Terstruktur (SQL) pilih pernyataan.

Referensi pustaka objek ADO

  1. Memulai Excel. Membuka buku kerja baru dan kemudian menyimpannya sebagai SQLExtract.xls.
  2. Mulai Penyunting Visual Basic dan pilih proyek VBA Anda.
  3. Pada Alat Menu, klik Referensi.
  4. Klik untuk memilih versi terbaru dari pustaka objek Microsoft ActiveX Data kotak centang.

Membuat sambungan

  1. Masukkan modul baru ke proyek.
  2. Membuat Sub prosedur baru yang disebut DataExtract.
  3. Ketik atau paste kode berikut:
    ' 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
    					

Penggalian data

Ketik atau paste kode berikut untuk mengekstrak data:
' 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
				

Memverifikasi bahwa kode bekerja

  1. Menjalankan kode.
  2. Beralih ke Excel dan melihat Sheet1 di buku kerja untuk melihat data.

Pemecahan masalah

Jika kode Anda muncul untuk menggantung dan Anda menerima galat run-time, server database Anda mungkin akan turun. Anda dapat menggunakan ConnectionTimeout properti untuk mengontrol waktu yang dibutuhkan untuk kembali galat run-time. Mengatur properti ini ke nilai lebih besar dari nol. Jika Anda menetapkan nilai ke nol, koneksi akan pernah waktu keluar. nilai asali adalah 15 detik.

Referensi

Anda dapat menemukan kode contoh tambahan dengan Telisik situs web Microsoft berikut:
http://msdn.Microsoft.com/

Properti

ID Artikel: 306125 - Kajian Terakhir: 21 April 2013 - Revisi: 3.0
Berlaku bagi:
  • Microsoft Office Excel 2007
  • Microsoft Excel 2002 Standard Edition
Kata kunci: 
kbhowtomaster kbmt KB306125 KbMtid
Penerjemahan Mesin
PENTING: Artikel ini diterjemahkan oleh perangkat lunak penerjemahan mesin Microsoft, dan mungkin telah diedit oleh Masyarakat Microsoft melalui teknologi CTF dan bukan oleh seorang penerjemah profesional. Microsoft menawarkan baik artikel yang diterjemahkan oleh manusia maupun artikel hasil editan terjemahan oleh mesin/komunitas, sehingga Anda dapat mengakses semua artikel di Sentra Pengetahuan yang kami miliki dalam berbagai bahasa. Namun artikel hasil editan mesin atau bahkan komunitas tidak selalu sempurna. Artikel ini dapat mengandung kesalahan dalam hal kosa kata, sintaksis atau tatabahasa, sangat mirip dengan penutur asing yang membuat kekeliruan ketika berbicara dalam bahasa Anda. Microsoft tidak bertanggung jawab atas ketidakakuratan, kesalahan atau kerugian apa pun akibat dari kekeliruan dalam penerjemahan isi atau penggunaannya oleh pelanggan kami. Microsoft juga akan senantiasa memperbarui perangkat lunak penerjemahan mesin dan alat untuk menyempurnakan Editan Hasil Penerjemahan Mesin.
Klik disini untuk melihat versi Inggris dari artikel ini: 306125

Berikan Masukan

 

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