|
要求
必须具有运行 Microsoft SQL Server 且包含 Pubs 数据库的本地服务器。
引用 ADO 对象库
1.启动 Excel。打开一个新工作簿，然后将其保存为 SQLExtract.xls。
2.启动 Visual Basic 编辑器并选择您的 VBA 项目。
3.在工具菜单上，单击引用。
4.单击以选中最新版本的 Microsoft ActiveX 数据对象库的复选框。 创建连接
1.在项目中插入一个新模块。
2.创建一个新的名为 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
提取数据
键入或粘贴以下代码以提取您的记录：
' 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
验证能否正常工作
1.运行上述代码。
2.切换到 Excel 并在工作簿的 Sheet1 中查看数据。
[此贴子已经被作者于2005-10-26 17:20:20编辑过] | 
沪公网安备 31011702000001号 沪ICP备11019229号-2
发表于 2005-10-26 17:16
楼主