VBA连接SQL Server数据库实战教程

"这篇内容主要介绍了如何使用VBA（Visual Basic for Applications）连接到SQL Server 2000数据库，并将数据导入Excel 2007的工作表中。通过创建ADODB.Connection对象和ADODB.Recordset对象，实现数据的读取和写入。" 在VBA编程中，连接数据库是一项关键任务，特别是对于需要处理大量数据或者自动化数据交换的场景。以下将详细阐述如何使用VBA来连接和操作SQL Server 2000数据库： 1. 首先，我们需要创建ADODB.Connection对象来存储数据库连接信息。在VBA代码中，可以这样定义： ```vba Dim cn As New ADODB.Connection ``` 这里，`cn`是一个新的ADODB.Connection对象实例。 2. 接下来，设置数据库连接字符串`strCn`，它包含了数据库提供者、服务器名称、数据库名、用户名和密码等信息。例如： ```vba strCn = "Provider=sqloledb;Server=OG4C2QECMTIVUK5;Database=db_JXC;Uid=sa;Pwd=sa;" ``` 注意，实际的服务器名、数据库名、用户名和密码应根据实际环境进行替换。 3. 使用定义好的连接字符串打开数据库连接： ```vba cn.Open strCn ``` 这行代码会尝试与指定的数据库建立连接。如果连接成功，`cn`对象就表示了这个活跃的数据库连接。 4. 创建ADODB.Recordset对象`rs`来存储从数据库查询到的数据： ```vba Dim rs As New ADODB.Recordset ``` 5. 定义SQL查询语句`strSQL`，这里假设我们想要获取`tb_spinfo1`表中的`jzxh`和`jznum`两个字段： ```vba strSQL = "SELECT jzxh, jznum FROM tb_spinfo1" ``` 6. 执行SQL查询并用`rs`对象接收结果： ```vba rs.Open strSQL, cn ``` 这行代码会执行SQL命令，并将结果保存到`rs`对象中。 7. 在Excel工作表中处理查询结果，例如，我们可以遍历`rs`对象并将数据写入到Excel的Sheet2中： ```vba Dim i As Integer, j As Integer Dim sht As Worksheet i = 1 Set sht = ThisWorkbook.Worksheets("Sheet2") Do While Not rs.EOF ComboBox1.AddItem rs("jzxh") ComboBox1.ListIndex = 0 sht.Cells(i, 1) = rs("jzxh") sht.Cells(i, 2) = rs("jznum") rs.MoveNext i = i + 1 Loop ``` 这段代码会逐条读取记录集，将`jzxh`和`jznum`字段的值分别写入Sheet2的第1列和第2列，直到所有记录都被处理。 8. 最后，关闭Recordset和Connection以释放资源： ```vba rs.Close cn.Close ``` 通过以上步骤，VBA成功地从SQL Server 2000数据库中获取数据，并将其导入到了Excel 2007的工作表中。这种方法对于数据分析师或报表开发者来说非常实用，能够自动化数据处理过程，提高工作效率。在实际应用中，可以根据需求调整SQL语句和数据写入的方式，以满足不同的业务场景。