'Open' 或 'ExecSQL' 在执行前检测查询差异

Question

有些查询需要使用“Open”命令和一些“ExecSQL”。

我正在使用备忘录进行查询（第一次）

Query1.SQL.Text := ADVMemo1.Lines.Text;

并且无法弄清楚如何处理上述差异 点击按钮。

有没有办法在按下按钮时检查它，以便知道要应用什么？ 比如...如果查询以插入或更新开头，则执行其他...

Answer 1

此例程将检查 SQL 是否以 select 语句开头，如果是，则打开它，否则将执行它。

procedure OpenOrExecute(Query: TABSQuery);
var Command: string;
begin
  Command := LowerCase(Copy(Trim(Query.Sql.Text), 1, 6));
  if Command = 'select' then
  begin
    Query.Open;
  end
  else
  begin
    Query.ExecSQL;
  end;   
end;

现在您可以随时使用它打开/执行查询。示例：

OpenOrExecute(Query1);

虽然这只适用于非常简单的查询，例如使用exec 命令调用的存储过程可能会或可能不会返回记录集。仅从 SQL 命令是无法知道的。