0

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

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

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

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

4

1 回答 1

2

我的申请也有同样的问题。解决方案有点棘手。首先，您必须将 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。

于 2012-11-06T11:32:04.923 回答