7、ADO 示例：数据导入、更新与面向对象编程实践

ADO 示例：数据导入、更新与面向对象编程实践

一、基于选择导入 SQL 数据

1.1 创建经理列表

我们可以使用 Excel 生成一个列表，并通过选择列表中的项目来查看所选项目的详细信息。以下是创建经理列表的步骤：
1. 在 Module1 中添加一个新的子例程，命名为 GetManagerList 。
2. 添加变量声明：

Dim cnn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim xlSheet As Worksheet
Dim sConnString As String
Dim sSQL As String

3. 设置代码，将经理列表放在 Sheet2 上：

Set xlSheet = Sheets("Sheet2")

4. 编写 SQL 语句以生成经理列表：

sSQL = "SELECT HumanResources.Employee.EmployeeID, Person.Contact.FirstName," _
& " Person.Contact.LastName FROM Person.Contact" _
& " INNER JOIN HumanResources.Emplo