Delphi连接关系数据库,不支持自动获取自增型字段的新值, 最好不用数据库的AutoInc字段,而是手工提供

王朝delphi·作者佚名  2006-01-09
窄屏简体版  字體: |||超大  

其实AutoInc字段很有价值,它提供了一个没有意义的唯一ID,在很多场合都需要。

(注意,通常的物料代码,身份证号,卡号等等现实属性都有意义,可能需要修改,不能用来做主键!最好采用无意义主键)

但是Delphi用ADO(DBExpress我没有试过)连接关系数据库,在Insert/Apend Post后,AutoInc字段的值总为0(连Access可以获得新值),这样在界面上不好看,而且不能刷新数据集,会出错,因为它与数据库不一致。

特别是需要主从关系的情况下,这样无法插入子表记录。若你真要这样,可以看John Kaster

的一篇文章:How to use AutoInc fields with DataSnap

而且MS SQL的AutoInc字段有两种选择:复制的时候自增,复制的时候不自增。

我希望Delphi有个开关,可以让开发者选择在Post后立即用select @@Identity 来填充新值。

但目前还不行,所以只有不用数据库提供的AutoInc字段,自己写了。

一般一个数据库中会有多个AutoInc ID字段。

建一个表AutoIncID

两个字段:

IDName varchar(16) -- 主键,存放其他各表AutoInc ID字段的字段名

IDValue Int -- 当前ID 值, 初始化为0

获取当前的某个AutoInc字段的 ID值

// GetAutoInc_Q.SQL.Text := select * from AutoIncID where IDName = :IDName

function TDM.GetAutoIncID(const IDName: string): Integer;

var OldID : Integer;

begin

Result := -1;

GetAutoInc_Q.Active := False;

GetAutoInc_Q.Parameters.ParamByName('IDName').AsString := IDName;

GetAutoInc_Q.Active := True;

if GetAutoInc_Q.RecordCount>0 then

begin

OldID := GetAutoInc_Q.FieldByName('IDValue').AsInteger ;

GetAutoInc_Q.Edit;

GetAutoInc_Q.FieldByName('IDValue').AsInteger := OldID +1 ;

GetAutoInc_Q.Post;

Result := OldID + 1;

end;

end;

也可以用存储过程来实现。

 
 
 
免责声明:本文为网络用户发布,其观点仅代表作者个人观点,与本站无关,本站仅提供信息存储服务。文中陈述内容未经本站证实,其真实性、完整性、及时性本站不作任何保证或承诺,请读者仅作参考,并请自行核实相关内容。
 
 
© 2005- 王朝網路 版權所有 導航