(急)ASP+ACCESS如何实现同时往两个表中添加、删除、修改数据?
谁回答下如何向两个表中添加、修改、删除数据。如表1,字段:编号A、大类名称A表2,字段:编号B、小类名称B、大类名称A两个表有相同字段大类名称A,那么请问在ASP页面中如...
谁回答下如何向两个表中添加、修改、删除数据。
如表1,字段:编号A、大类名称A
表2,字段:编号B、小类名称B、大类名称A
两个表有相同字段大类名称A,那么请问在ASP页面中如何实现同时往两个表中添加、修改、删除数据?
因为财富不够,所以分不多,大家见谅。
知道的麻烦告诉一下,谢谢,
最好详细点,谢谢了。 展开
如表1,字段:编号A、大类名称A
表2,字段:编号B、小类名称B、大类名称A
两个表有相同字段大类名称A,那么请问在ASP页面中如何实现同时往两个表中添加、修改、删除数据?
因为财富不够,所以分不多,大家见谅。
知道的麻烦告诉一下,谢谢,
最好详细点,谢谢了。 展开
2个回答
展开全部
'同时添加
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from 表1",conn,1,3
rs.AddNew
rs("编号A")=trim(request.form("编号A"))
rs("大类名称A")=request.form("大类名称A")
rs.Update
rs.Close
set rs=nothing
rs.AddNew
rs.open "select * from 表2",conn,1,3
rs("编号B")=trim(request.form("编号B"))
rs("小类名称B")=trim(request.form("小类名称B"))
rs("大类名称A")=request.form("大类名称A")
rs.Update
rs.Close
set rs=nothing
'同时修改
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from 表1",conn,1,3
rs("编号A")=trim(request.form("编号A"))
rs("大类名称A")=request.form("大类名称A")
rs.Update
rs.Close
set rs=nothing
rs.open "select * from 表2",conn,1,3
rs("编号B")=trim(request.form("编号B"))
rs("小类名称B")=trim(request.form("小类名称B"))
rs("大类名称A")=request.form("大类名称A")
rs.Update
rs.Close
set rs=nothing
'同时删除
conn.execute ("delete from 表1 where 大类名称A='"&大类名称A&"'")
conn.execute ("delete from 表2 where 大类名称A='"&大类名称A&"'")
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from 表1",conn,1,3
rs.AddNew
rs("编号A")=trim(request.form("编号A"))
rs("大类名称A")=request.form("大类名称A")
rs.Update
rs.Close
set rs=nothing
rs.AddNew
rs.open "select * from 表2",conn,1,3
rs("编号B")=trim(request.form("编号B"))
rs("小类名称B")=trim(request.form("小类名称B"))
rs("大类名称A")=request.form("大类名称A")
rs.Update
rs.Close
set rs=nothing
'同时修改
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from 表1",conn,1,3
rs("编号A")=trim(request.form("编号A"))
rs("大类名称A")=request.form("大类名称A")
rs.Update
rs.Close
set rs=nothing
rs.open "select * from 表2",conn,1,3
rs("编号B")=trim(request.form("编号B"))
rs("小类名称B")=trim(request.form("小类名称B"))
rs("大类名称A")=request.form("大类名称A")
rs.Update
rs.Close
set rs=nothing
'同时删除
conn.execute ("delete from 表1 where 大类名称A='"&大类名称A&"'")
conn.execute ("delete from 表2 where 大类名称A='"&大类名称A&"'")
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询