Delphi XE 3 LiveBindings AutoInc SQL Server

Question

我有一个带有 LiveBindings 到 SQL Server 的 Delphi XE3 Firemonkey 应用程序。我可以连接并查看网格上的所有数据。我有一个字段（“id”），它是 SQL（通常称为 AutoInc）上的“身份字段”。

当我尝试添加记录时，我得到“字段 'id' 必须有一个值。”

过去，解决此问题的方法是关闭必填字段布尔值。 （例如，使用 DBISAM，您可以使数据库中的字段本身不需要，数据库引擎会在它到达那里时将其填充，但您不能在 MSSQL 中设置不需要的标识字段。）

我已经关闭了对 TField 本身的要求，但这没有任何效果。

Answer 1

我的申请遇到了同样的问题。解决方案有点棘手。首先，您必须将 IDENTITY_INSERT 设置为 ON。

procedure TdmUnit1.Identity(Table: string; OnOff: boolean);
var s: string;
begin
  if OnOff = true then
    s := 'ON'
  else
    s := 'OFF';
  s := 'SET IDENTITY_INSERT ' + '[dbo].[' + Table + '] ' + s;
  SQLQuery1.SQL.Clear;
  SQLQuery1.SQL.Add(s);
  SQLQuery1.ExecSQL;
end;

然后你必须在你的表中寻找最高的索引。您可以通过 OnNewRecord-Event 实现这一点：

procedure TdmUnit1.ClientDataSet1NewRecord(DataSet: TDataSet);
var
  s: string;
  i: integer;
begin
  s := 'SELECT IDENT_CURRENT(''AnyTable'')';
  SQLQuery1.SQL.Clear;
  SQLQuery1.SQL.Add(s);
  SQLQuery1.ExecSQL;
  SQLQuery1.Active := true;
  i := SQLQuery1.Fields[0].AsInteger;
  ClientDataSet1.FieldByName('DB_IDX').AsInteger := i+1;
  SQLQuery1.Active := false;
end;

在 ApplyUpdates(0) 之后，您必须关闭 IDENTITY_INSERT。