delphi - 如何在不使用存储过程的情况下使用db Express框架更改生成器值？

Question

如何使用dbExpress框架更改生成器值？我想直接使用dbExpress更改生成器值，而无需在RDBMS端或其他方面编写存储过程。
请帮助我。

Answer 1

AFAIK DBExpress没有专门处理序列/生成器的类。

您仍然可以使用标准的TSQLQuery来指示dbEngine更改生成器值，如下所示：

procedure TMyDataModule.RestartMyGenerator;
begin
  Q := TSQLQuery.Create;
  try
    Q.SQLConnection := MyConnection;
    //compatible with firebird 1.x and 2.x
    //Q.SQL.Text := 'set generator mygenerator to 0';  
    //better alternative, but compatible only with firebird 2.x
    Q.SQL.Text := 'alter sequence mygenerator restart with 0';
    Q.ExecSQL;
  finally
    Q.Free;
  end;
end;

（未经测试的代码，直接在此窗口中编写）