delphi - 通过ADO连接时如何获取AUTOINC值？

Question

我正在尝试使用 Advantage OLE DB 提供程序连接我的数据库 (Advantage 7.1 Server)。到目前为止一切顺利...它与下面的代码连接没有问题:-

const
  // the database we'll be connecting to 
  ConnectionString = 'Provider=Advantage OLE DB Provider;Data Source=C:\Data\'+
  'UsersData.add;ServerType=ADS_REMOTE_SERVER|ADS_LOCAL_SERVER;User ID=ISUsers;Password=aAoO31';

我的问题是，即使我能够连接到数据库，任何以 AUTOINC 作为数据类型的字段都不会生成下一个数字。每当我附加数据时，AUTOINC 都会不断地给我“ID”，而不是移动到下一个数字 1、2、3...。但是对于相同的代码，如果我切换到 MS ACCESS，它会完美地工作。我究竟做错了什么？请在下面找到代码。

    // Add template to database. Returns added template ID.
function TDBClass.addTemplate(template: TTemplate): Integer;
var
  rs: TADODataSet;
  tptStream: TMemoryStream;
  id: Integer;
  p: PChar;
begin
  // get DB data and append one row
  rs := TADODataSet.Create(nil);
  rs.Connection := connection;
  rs.CursorType := ctStatic;
  rs.LockType := ltOptimistic;
  rs.CommandText := 'SELECT * FROM enroll';
  rs.Open();
  rs.Append();
  tptStream := TMemoryStream.Create();
  // write template data to memory stream.
  SafeArrayAccessData(template.tpt, Pointer(p));
  tptStream.write(p^, template.size);
  SafeArrayUnaccessData(template.tpt);
  // save template data from memory stream to database.
  (rs.FieldByName('template') as  TBlobField).LoadFromStream(tptStream);
  // update the database with added template.
  rs.post();
  // get the ID of enrolled template.
  id := rs.FieldByName('ID').AsInteger;
  // close connection
  tptStream.Free();
  rs.Close();
  rs.Free();
  addTemplate := id;
end;

Answer 1

您应该考虑使用 TADSConnection、TADSQuery 等组件，即使对于 ADS 7.1，您仍然可以从 DevZone ( http://devzone.advantagedatabase.com/dz/content.aspx?key=1 ) 下载这些组件。

如果您必须使用 ADO，您可能必须使用不同的方法。 (但另请参阅 bummi 关于 Delphi 中可能存在的错误的评论)。

一种方法是使用 LASTAUTOINC 标量函数:

INSERT INTO
  enroll
(
  template
)
VALUES
(
  :template
);

SELECT
  LASTAUTOINC(CONNECTION) AS "id"
FROM
  system.iota