Delphi中执行数据库恢复T-SQL无效果，SSMS中运行正常求解决

问题原因 #

• SQL语句未有效分隔，解析逻辑异常：你在Delphi中拼接的SQL把USE master、RESTORE DATABASE、USE [DBName]直接连为一行，未用分号或换行做语句分隔。SQL Server对无分隔多语句的解析逻辑和SSMS不同，可能仅执行了部分语句，或者RESTORE并未在master上下文下执行，导致恢复操作根本没触发。
• 数据组件默认不支持批量多语句执行：多数Delphi数据查询组件（如ADOQuery、TFDQuery）默认不允许在单个SQL.Text里执行多个独立SQL批处理。就算语句格式看似正确，组件也可能只执行第一个语句，直接忽略后续的RESTORE操作。
• 目标数据库存在活跃连接：恢复操作要求目标数据库无任何活跃会话，若你的连接初始指向目标数据库，就算执行了USE master，也可能有隐式连接没释放，导致RESTORE被静默跳过（部分场景下SQL Server不会抛出明显错误）。

解决方法 #

方法1：拆分SQL，分多次执行 #

把三个独立操作拆分开，每次执行单独的SQL语句，确保每个操作都在正确上下文执行：

// 1. 切换到master数据库
Query.SQL.Text := 'USE master';
Query.Execute;

// 2. 执行恢复语句
Query.SQL.Text := 'RESTORE DATABASE [' + DBName + '] FROM DISK = ' + QuotedStr(RestorePath) + ' WITH REPLACE, RECOVERY, STATS = 1';
Query.Execute;

// 3. 切换回目标数据库（按需执行，根据后续操作需求）
Query.SQL.Text := 'USE [' + DBName + ']';
Query.Execute;

方法2：启用组件的多语句执行支持（批量执行场景） #

如果需要在一个SQL.Text里执行多语句，需先开启组件的批量执行支持，同时用分号正确分隔每个语句：

FireDAC的TFDQuery示例：

// 开启多语句执行支持
FDQuery.Options.MultiStatements := True;
// 用分号分隔每个独立SQL
FDQuery.SQL.Text := 'USE master; ' +
  'RESTORE DATABASE [' + DBName + '] FROM DISK = ' + QuotedStr(RestorePath) + ' WITH REPLACE, RECOVERY, STATS = 1; ' +
  'USE [' + DBName + '];';
FDQuery.Execute;

ADOQuery示例：

// 设置执行选项，允许无记录返回的批处理执行
ADOQuery.ExecuteOptions := [eoExecuteNoRecords];
// 用分号分隔语句
ADOQuery.SQL.Text := 'USE master; ' +
  'RESTORE DATABASE [' + DBName + '] FROM DISK = ' + QuotedStr(RestorePath) + ' WITH REPLACE, RECOVERY, STATS = 1; ' +
  'USE [' + DBName + '];';
ADOQuery.Execute;

方法3：直接连接到master数据库执行恢复 #

跳过切换数据库的步骤，初始化连接时直接指向master数据库，从根源避免上下文切换的问题：

// 以ADOConnection为例，直接连接master
ADOConnection.ConnectionString := 'Provider=SQLOLEDB.1;Data Source=你的服务器地址;Initial Catalog=master;User ID=账号;Password=密码;';
ADOConnection.Connected := True;

// 直接执行恢复语句
Query.SQL.Text := 'RESTORE DATABASE [' + DBName + '] FROM DISK = ' + QuotedStr(RestorePath) + ' WITH REPLACE, RECOVERY, STATS = 1';
Query.Execute;

// 后续需要操作目标数据库时，再切换连接的InitialCatalog或执行USE语句

额外检查点 #

• 恢复前强制关闭目标数据库的所有活跃连接，避免恢复被阻塞：

// 恢复前执行，强制踢除所有连接
Query.SQL.Text := 'ALTER DATABASE [' + DBName + '] SET SINGLE_USER WITH ROLLBACK IMMEDIATE;';
Query.Execute;
// 执行恢复...
// 恢复后改回多用户模式
Query.SQL.Text := 'ALTER DATABASE [' + DBName + '] SET MULTI_USER;';
Query.Execute;

• 添加异常捕获，查看SQL Server返回的详细错误/警告信息：

try
  Query.Execute;
except
  on E: Exception do
    ShowMessage('执行异常: ' + E.Message);
end;

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