Delphi XE中如何用ADO实现双SQL Server服务器数据同步查询？

当然可以用单个ADOQuery实现跨服务器的批量插入和更新，核心是利用SQL Server本身的跨服务器查询能力，替代循环单条操作，效率会高很多。

一、跨服务器批量插入 #

通过INSERT INTO ... SELECT ...语句直接从源服务器（第一台）读取需要同步的新增数据，批量插入到目标服务器（第二台）的表中，无需循环。

实现方式（推荐用链接服务器） #

1. 先在目标服务器（第二台）上创建链接服务器，指向源服务器（第一台），配置好访问权限（SQL身份验证或Windows身份验证）。
2. 在Delphi的ADOQuery中执行以下SQL语句：

INSERT INTO 目标库.dbo.目标表 (ID, 字段1, 字段2, 最后更新时间)
SELECT ID, 字段1, 字段2, 最后更新时间
FROM 链接服务器名.源库.dbo.源表
WHERE ID > (SELECT MAX(ID) FROM 目标库.dbo.目标表)
OR 最后更新时间 > (SELECT MAX(最后更新时间) FROM 目标库.dbo.目标表)

3. 调用ADOQuery.ExecSQL执行即可完成批量插入。

无链接服务器的替代方案（用OPENROWSET） #

如果不想配置链接服务器，也可以直接在SQL中指定源服务器连接信息：

INSERT INTO 目标库.dbo.目标表 (ID, 字段1, 字段2, 最后更新时间)
SELECT ID, 字段1, 字段2, 最后更新时间
FROM OPENROWSET('SQLNCLI', 'Server=源服务器IP;Uid=账号;Pwd=密码;', 
                'SELECT ID, 字段1, 字段2, 最后更新时间 FROM 源库.dbo.源表 
                 WHERE ID > (SELECT MAX(ID) FROM 目标库.dbo.目标表)
                 OR 最后更新时间 > (SELECT MAX(最后更新时间) FROM 目标库.dbo.目标表)')

二、跨服务器批量更新 #

通过UPDATE ... FROM ... JOIN语句关联源表和目标表，批量更新有变动的数据。

实现示例 #

同样基于链接服务器，在ADOQuery中执行以下SQL：

UPDATE 目标表
SET 目标表.字段1 = 源表.字段1,
    目标表.字段2 = 源表.字段2,
    目标表.最后更新时间 = 源表.最后更新时间
FROM 目标库.dbo.目标表 AS 目标表
JOIN 链接服务器名.源库.dbo.源表 AS 源表 ON 目标表.ID = 源表.ID
WHERE 源表.最后更新时间 > 目标表.最后更新时间

调用ADOQuery.ExecSQL即可完成批量更新。

注意事项 #

• 确保两台SQL Server之间网络连通，且目标服务器有访问源服务器的权限。
• 批量操作比循环单条执行效率提升显著，尤其是数据量较大时。
• 若表结构有差异，需调整SQL中的字段列表，保证字段匹配。

内容的提问来源于stack exchange，提问作者Avrob