用VBA通过ADO搞定SQL数据库连接和数据操作那些事儿

综合自多个VBA及ADO技术博客与论坛讨论，如ExcelHome、Stack Overflow以及《Access VBA编程实战》等书籍中的常见方法）

咱们得明白一个核心概念：VBA自己不能直接跟SQL数据库对话，它需要一个翻译官，这个翻译官就是ADO，你可以把ADO想象成一条专门为数据修建的高速公路,让VBA这辆车能飞快地跑到数据库里取东西或者存东西。

要修这条高速公路，第一步是“引用”，在VBA编辑器里，你得先告诉系统：“喂，我要用ADO这个工具了。”具体操作是，在VBA界面中，点击菜单栏的“工具”，然后选择“引用”，在弹出的长长列表里，找到并勾选“Microsoft ActiveX Data Objects x.x Library”，这个x.x是版本号，通常选一个比较高的版本，比如6.1或以上，功能会更全,这一步就像是给VBA安装了一个专门的驱动程序。

路引好了，接下来就是开车上路，也就是建立连接，这需要一个连接字符串，它就像是一个详细的地址导航，这个字符串里包含了几个关键信息：第一，你用的是哪种数据库司机，也就是提供者，对于SQL Server，通常是“SQLOLEDB”；第二，服务器地址，可以是IP，也可以是电脑名；第三，数据库的名字；第四，登录的用户名和密码，把这些信息串在一起，写法大概是这样的："Provider=SQLOLEDB;Data Source=你的服务器名或IP;Initial Catalog=你的数据库名;User ID=用户名;Password=密码;"，如果数据库就在你本机，服务器名可以写“(local)”或者“.”，有了这个地址，你就可以创建一个连接对象,然后命令它打开。

连接成功，绿灯亮了，你就可以开始操作数据了，最常用的操作就是“查”，也就是把数据库里的数据抓到Excel里来，这需要另一个核心对象：记录集，想象一下，你发出一条查询指令，数据库就会给你返回一张结果表，记录集就是用来装这张结果表的容器，操作步骤是：先创建一个记录集对象，然后通过连接对象执行一条SQL查询语句，SELECT * FROM 员工表”，然后把返回的结果放进记录集里，你可以把记录集里的数据直接一次性倒进Excel的工作表里，非常方便，这里有个小窍门，用Range("A2").CopyFromRecordset rst这句代码，就能把记录集rst里的数据从A2单元格开始快速填充,速度比用循环一行行写快得多。

除了查，当然还有“增”、“删”、“改”，这些操作通常不需要返回一个结果表，所以可以不用记录集，而是直接用连接对象来执行相应的SQL命令，要新增一个员工记录，你的SQL语句就是“INSERT INTO 员工表 (姓名, 部门) VALUES ('张三', '销售部')”，要修改，UPDATE 员工表 SET 部门='市场部' WHERE 姓名='张三'”，要删除，DELETE FROM 员工表 WHERE 姓名='李四'”，写好SQL语句后，用conn.Execute sql这句代码就能执行，这里要特别注意，尤其是删除和修改，WHERE条件一定要写清楚，不然可能误伤一大片数据,所以执行前最好先确认一下。

也是非常重要的一步，打扫战场”，就像用完公共设施要收拾干净一样，用完数据库连接，一定要记得关闭它，并把相关的对象释放掉，不然，连接一直开着，可能会占用数据库资源，导致别人无法连接，或者你的程序出一些莫名其妙的错误，标准的关闭顺序是先关闭记录集（如果打开了的话），再关闭连接，代码就是rst.Close和conn.Close，然后再把这两个对象设为空Set rst = Nothing和Set conn = Nothing，养成这个好习惯,能避免很多麻烦。

整个过程就像是：安装导航APP（引用ADO）-> 输入目的地地址（构造连接字符串）-> 出发连接（Open）-> 执行任务（查询、增删改）-> 任务结束，回家关闭导航（Close和Set Nothing），只要顺着这个思路多练几次，用VBA操作SQL数据库就会变得像在Excel里操作单元格一样顺手，关键是要敢于动手写代码，遇到错误多看提示,慢慢就能掌握这门实用的技能了。