如何在insert的同时返回插入记录的id

在ACCESS数据库中，不能用SCOPE_IDENTITY或者 LAST_INSERT_ID(),只能用于SQL数据库中。

还是分两条语句吧。先取最后一ID号再加1就是要返回的ID，用另一语句存入该ID就可以了。

sql="insert into Productinfo([ProductName],[CateID]) values('"&ProductName&"',"&CateID&")"

set rs_conn=conn.execute("select top 1 id from Productinfo order by id desc")

sql_conn="insert into ProductConn([ProID],[CateID]) values("&rs_conn("id")+1&"," &CateID&")"

conn.execute(sql)

conn.execute(sql_conn)

你的这个需求好象直接再把记录插入到表2就可以，但我估计你不是这个意思。

比较笨的办法，可以定义一个数组用于记录表1的ID值，或者用个临时表来记录表一新增加的记录ID列表。

insert后，query的指针应该还是停留在最新增加的记录上的，因此是可以取得到ID值的。

代码如下，假设表一只有二个字段，一个是ID(自动增量)，一个是字段A(字符型)，

var

sql:string

id1:integer

begin

sql:='insert into 表一 ('''+字段A+''') values ('''+ '内容'+''')'

query1.close

query1.sql.clear

query1.sql.add(sql)

query1.Execsql

id1:=query1.fieldbyname('id').asinteger

//接下来可以把ID1的值写入临时表或者数组了，如果是需要不同的机器取得ID值，可以用临时表，不过速度会慢些，如果只是本机取得，就用数组好了。

//后面的代码略

...

...

end

上述代码我没有条件试，应该可以，另外还可以用append的方法追加记录，这样就一定可以用上面的方法取到ID值了。

var

id1:integer

begin

query1.append

query1.fieldbyname('字段A').asstring = '内容'

query1.post

id1:=query1.fieldbyname('ID').asinteger

//这种方法一定可以取得到ID值。

//后面你自行对取得的ID进行存储就行了，临时表或者数组都可以。代码略

end

@@identity是表示的是最近一次向具有identity属性(即自增列)的表插入数据时对应的自增列的值，是系统定义的全局变量。一般系统定义的全局变量都是以@@开头，用户自定义变量以@开头。比如有个表A，它的自增列是id，当向A表插入一行数据后，如果插入数据后自增列的值自动增加至101，则通过select @@identity得到的值就是101。使用@@identity的前提是在进行insert *** 作后，执行select @@identity的时候连接没有关闭，否则得到的将是NULL值。

你的表里面有自增的列么？？？

---