本文逐步介紹如何將數(shù)據(jù)從 Microsoft SQL Server 附帶的示例數(shù)據(jù)庫(kù) Pubs 中導(dǎo)入 Microsoft Excel。
ActiveX 數(shù)據(jù)對(duì)象 (ADO) 可用來(lái)訪問(wèn)任意類(lèi)型的數(shù)據(jù)源。它是具有少數(shù)幾個(gè)對(duì)象的平面對(duì)象模型。ADO 對(duì)象模型中的主要對(duì)象有：
對(duì)象 說(shuō)明
--------------------------------------------------------------------------
Connection 指示到數(shù)據(jù)源的連接。
Recordset 指示所提取的數(shù)據(jù)。
Command 指示需要執(zhí)行的存儲(chǔ)過(guò)程或 SQL 語(yǔ)句。
盡管使用 ADO 返回記錄集有很多種方法，但本文主要介紹 Connection 和 Recordset 對(duì)象。
要求
必須具有運(yùn)行 Microsoft SQL Server 且包含 Pubs 數(shù)據(jù)庫(kù)的本地服務(wù)器。
Microsoft 建議您掌握以下幾個(gè)方面的知識(shí)：
| • |
在 Office 程序中創(chuàng)建 Visual Basic for Applications 過(guò)程。 |
| • |
使用 Object 變量。 |
| • |
使用 Excel 對(duì)象。 |
| • |
關(guān)系數(shù)據(jù)庫(kù)管理系統(tǒng) (RDBMS) 概念。 |
| • |
結(jié)構(gòu)化查詢(xún)語(yǔ)言 (SQL) SELECT 語(yǔ)句 |
引用 ADO 對(duì)象庫(kù)
| 1. |
啟動(dòng) Excel。打開(kāi)一個(gè)新工作簿，然后將其保存為 SQLExtract.xls。 |
| 2. |
啟動(dòng) Visual Basic 編輯器并選擇您的 VBA 項(xiàng)目。 |
| 3. |
在工具菜單上，單擊引用。 |
| 4. |
單擊以選中最新版本的 Microsoft ActiveX 數(shù)據(jù)對(duì)象庫(kù)的復(fù)選框。 |
創(chuàng)建連接
| 1. |
在項(xiàng)目中插入一個(gè)新模塊。 |
| 2. |
創(chuàng)建一個(gè)新的名為 DataExtract 的子過(guò)程。 |
| 3. |
鍵入或粘貼以下代碼：‘ 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
驗(yàn)證能否正常工作
| 1. |
運(yùn)行上述代碼。 |
| 2. |
切換到 Excel 并在工作簿的 Sheet1 中查看數(shù)據(jù)。 |
疑難解答
如果代碼似乎掛起并出現(xiàn)運(yùn)行時(shí)錯(cuò)誤，則數(shù)據(jù)庫(kù)服務(wù)器可能已停機(jī)。您可以使用 ConnectionTimeout 屬性來(lái)控制返回運(yùn)行時(shí)錯(cuò)誤所需的時(shí)間。請(qǐng)將此屬性的值設(shè)置為大于零。如果將該值設(shè)置為零，則連接將永遠(yuǎn)不會(huì)超時(shí)。默認(rèn)值是 15 秒。
通過(guò)搜索以下 Microsoft Web 站點(diǎn)可以找到其他代碼示例：
