如何使用TADODataSet插入自增长纪录——在线等待

Question

表t1中字段a1为integer自增长
现在需要用TADODataSet向t1中直接插入纪录，但是必须要对a1使用指定的数值（而不是自增长数值），我们可以保证指定的数值不于现有数值冲突
首先我们设置
SET IDENTITY_INSERT t1 ON
然后
  ADOCommand1.commandtext:='select * from t1'
  ADOCommand1.Execute;
  ADODataSet1.append;
  ... ...//对其他字段赋值
  ADODataSet1.FieldByName('a1').ReadOnly:=false;//否则不允许对自增长赋值
  ADODataSet1.FieldByName('a1').AsInteger:=12;
  ADODataSet1.Post;
但是 ADODataSet1.Post;出错，说IDENTITY_INSERT 设置为 ON 时，必须指定表t1的标识列的显式值，请问该如何解决
另外由于一些原因这里不能用sql语句直接insert，不然早就完成了
那位高人给指点一下，在下先谢了
2：00之前结贴，在线等待

Answer 1

将tl设置为Unique 主键
然后再按你的程序做