VBA中连接SQLSERVER数据库例子

在VBA（Visual Basic for Applications）中，连接到SQL SERVER数据库是常见的操作，尤其是在处理大量数据或需要自动化Excel与数据库间交互的场景下。VBA是Microsoft Office套件中的一个宏语言，允许用户通过编程的方式来扩展应用程序的功能。下面将详细介绍如何在VBA中连接SQL SERVER数据库，并提供一个具体的实例。 我们需要建立一个数据库连接字符串（strConn）。这个字符串包含了连接到SQL SERVER所需的所有信息，例如提供者（Provider）、安全性（Persist Security Info）、用户名（User ID）、密码（Password）、初始目录（Initial Catalog）、数据源（Data Source）以及超时设置（Connect Timeout）。例如： ```vba strConn = "Provider=SQLOLEDB.1;Persist Security Info=True;User ID=[user];Password=[password];Initial Catalog=[database];Data Source=[数据库IP地址或数据库服务器名称];Connect Timeout=720;" ``` 在这个字符串中，需要将`[user]`、`[password]`、`[database]`和`[数据库IP地址或数据库服务器名称]`替换为实际的数据库登录凭证和服务器信息。 接下来，定义ADODB对象来执行数据库操作。ADODB是ActiveX Data Objects的简称，是Microsoft提供的一套用于访问数据库的组件。在这里，我们需要创建`Connection`对象（conn）和`Recordset`对象（ds）： ```vba Dim strConn As String, strSQL As String Dim conn As ADODB.Connection Dim ds As ADODB.Recordset ``` 然后，编写SQL查询语句（strSQL），例如选择特定条件的数据： ```vba strSQL = "select * from Hy_KPI_Shop_Dept_WeekRpt where sdate='2014-01-01' order by sdate,shopid" ``` 为了处理可能的长查询，可以使用`strSQL = strSQL +`来拼接多个部分。 接下来，打开数据库连接，并设置命令超时时间，以防查询耗时过长导致VBA中断： ```vba conn.Open strConn conn.CommandTimeout = 720 ``` 之后，使用`Recordset`对象打开SQL查询，获取数据： ```vba Set ds = New ADODB.Recordset ds.Open strSQL, conn ``` 将数据写入Excel工作表，这里假设数据写入"门店各课KPI周报"工作表： ```vba For col = 0 To ds.Fields.Count - 1 Worksheets("门店各课KPI周报").Range("A1").Offset(0, col).Value = ds.Fields(col).Name Next Worksheets("门店各课KPI周报").Range("A1").Offset(1, 0).CopyFromRecordset ds ``` 别忘了关闭数据库连接并释放资源： ```vba Set ds = Nothing conn.Close Set conn = Nothing ``` 通过以上步骤，我们就能在VBA中成功地连接到SQL SERVER数据库，执行查询并把结果写入Excel。这种做法在数据分析、报表生成等场景下非常实用。需要注意的是，在实际应用中，确保对用户输入进行适当验证和错误处理，以提高程序的安全性和稳定性。