在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)