同时向ACCESS两个关联表添加的数据的问题?

[cwa]

比如说我有两个表

A表:
id,name

B表:
id,a_id,score

我需要同时向两个表里添加数据,我在向A表里添加一条记录后,需要得到那条新记录的ID号,同时再添加到B表的a_id里,请问用ASP程序如何实现,得到刚添加那条记录的ID号?

多谢!!!

[fcuandy]

Dim SQL
SQL = "INSERT ta(name) SELECT 'aaa';"
SQL = SQL & "INSERT tb(a_id,score) SELECT SCOPE_IDENTITY()," & score的asp变量

Conn.Execute(SQL)

如果 ta表没有其它的东西影响,比如触发器之类的, 也可以将 SCOPE_IDENTITY() 改用为 @@IDENTITY


相当于执行 T-SQL 语句为:

INSERT ta (name) SELECT 'name的值'
INSERT tb SELECT SCOPE_IDENTITY(),score的值

也可以用触发器来处理. 但有一个问题,触发器无所获得score参数值.

当然也可以建个存储过程来处理, 不过所执行的操作跟 conn所执行的两条insert语句是一样的.

要求性高的话,需要进行事务处理.

[cwa]

ACCESS里没有触发器呀

[fcuandy]

我写的sql的方法.

access里没有触发器. 可以用我的第一种方法.
access同样支持 @@identity 函数.

将 语句中的 scope_identity() 改为 @@identity,稍作调整

Dim SQL
SQL = "INSERT ta(name) values('aaa');"
SQL = SQL & "INSERT tb(a_id,score) VALUES(SCOPE_IDENTITY()," & score的asp变量 & ")"

Conn.Execute(SQL)

[yangtzeu]

<!--#include file="conn.asp"-->
<%
'对于A表

name1=request("name1")
set rs=server.createobject("adodb.recordset")
sql="select top 1 * from a "
rs.open sql,conn,3,3
rs.addnew()
rs("name")=name1
rs.update
'这里得到a_id
a_id=rs("id")
rs.close
set rs=nothing

'
对于B表
set rs=server.createobject("adodb.recordset")
sql="select top 1 * from b "
rs.open sql,conn,3,3
rs.addnew()
rs("a_id")=a_id
rs("score")=score 'score根据你实际来源
rs.update
rs.close
set rs=nothing
%>

[yangtzeu]

<!--#include file="conn.asp"-->
<%
'对于A表
name1=request("name1")
set rs=server.createobject("adodb.recordset")
sql="select top 1 * from a "
rs.open sql,conn,3,3
rs.addnew()
rs("name")=name1
rs.update
'这里得到a_id
a_id=rs("id")
rs.close
set rs=nothing

'
对于B表
set rs=server.createobject("adodb.recordset")
sql="select top 1 * from b "
rs.open sql,conn,3,3
rs.addnew()
rs("a_id")=a_id
rs("score")=score 'score根据你实际来源
rs.update
rs.close
set rs=nothing
%>

[fcuandy]

top 1 或max的取法, 在并发时是有问题的, 基于这一点, 基本上都不用这种方式的.