HOW TO：將數(shù)據(jù)從 Microsoft SQL Server 導入 Microsoft Excel

freezn 2006-01-11

展開全文

HOW TO：將數(shù)據(jù)從 Microsoft SQL Server 導入 Microsoft Excel

文章編號	:	306125
最后修改	:	2004年2月13日
修訂	:	1.0

本頁

	概要
		要求
		引用 ADO 對象庫
		創(chuàng)建連接
		提取數(shù)據(jù)
		驗證能否正常工作
		疑難解答
	參考
	這篇文章中的信息適用于:

概要

本文逐步介紹如何將數(shù)據(jù)從 Microsoft SQL Server 附帶的示例數(shù)據(jù)庫 Pubs 中導入 Microsoft Excel。

ActiveX 數(shù)據(jù)對象 (ADO) 可用來訪問任意類型的數(shù)據(jù)源。它是具有少數(shù)幾個對象的平面對象模型。ADO 對象模型中的主要對象有：

對象	          說明
--------------------------------------------------------------------------
Connection      指示到數(shù)據(jù)源的連接。
Recordset       指示所提取的數(shù)據(jù)。
Command         指示需要執(zhí)行的存儲過程或 SQL 語句。

盡管使用 ADO 返回記錄集有很多種方法，但本文主要介紹 Connection 和 Recordset 對象。

回到頂端

要求

必須具有運行 Microsoft SQL Server 且包含 Pubs 數(shù)據(jù)庫的本地服務(wù)器。

Microsoft 建議您掌握以下幾個方面的知識：

•	在 Office 程序中創(chuàng)建 Visual Basic for Applications 過程。
•	使用 Object 變量。
•	使用 Excel 對象。
•	關(guān)系數(shù)據(jù)庫管理系統(tǒng) (RDBMS) 概念。
•	結(jié)構(gòu)化查詢語言 (SQL) SELECT 語句

回到頂端

引用 ADO 對象庫

1.	啟動 Excel。打開一個新工作簿，然后將其保存為 SQLExtract.xls。
2.	啟動 Visual Basic 編輯器并選擇您的 VBA 項目。
3.	在工具菜單上，單擊引用。
4.	單擊以選中最新版本的 Microsoft ActiveX 數(shù)據(jù)對象庫的復(fù)選框。

回到頂端

創(chuàng)建連接

1. 在項目中插入一個新模塊。

2. 創(chuàng)建一個新的名為 DataExtract 的子過程。

鍵入或粘貼以下代碼：

‘ 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

回到頂端

提取數(shù)據(jù)

鍵入或粘貼以下代碼以提取您的記錄：

‘ 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