Question

asp 实现对access多表的修改?

以下代码是网上的，但始终得不到我要的结果，请高手指教！谢谢！
'同时添加set rs=server.CreateObject("adodb.recordset")rs.open "select * from 表1",conn,1,3rs.AddNewrs("编号A")=trim(request.form("编号A"))rs("大类名称A")=request.form("大类名称A")rs.Updaters.Closeset rs=nothingrs.AddNewrs.open "select * from 表2",conn,1,3rs("编号B")=trim(request.form("编号B"))rs("小类名称B")=trim(request.form("小类名称B"))rs("大类名称A")=request.form("大类名称A")rs.Updaters.Closeset rs=nothing'同时修改set rs=server.CreateObject("adodb.recordset")rs.open "select * from 表1",conn,1,3rs("编号A")=trim(request.form("编号A"))rs("大类名称A")=request.form("大类名称A")rs.Updaters.Closeset rs=nothingrs.open "select * from 表2",conn,1,3rs("编号B")=trim(request.form("编号B"))rs("小类名称B")=trim(request.form("小类名称B"))rs("大类名称A")=request.form("大类名称A")rs.Updaters.Closeset rs=nothing
上面的代码乱了，补图。

Answer 1

'同时添加
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.Updaters.Close

‘set rs=nothing '删除这行
’rs.AddNew '删除这行

rs.open "select * from 表2",conn,1,3

rs.AddNew '添加代码

rs("编号B")=trim(request.form("编号B"))
rs("小类名称B")=trim(request.form("小类名称B"))
rs("大类名称A")=request.form("大类名称A")
rs.Updaters.Closeset
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

Answer 2

你这个明显就有几个错误：
几句代码的事，没必要做得这么复杂：
conn.execute("insert into 表1 (编号A,大类名称A) values('"&request.form("编号A")&"','"&request.form("大类名称A")&"')")
conn.execute("insert into 表1 (编号B,小类名称B,大类名称A) values('"&request.form("编号A")&"','"&request.form("小类名称B")&"'，'"&request.form("大类名称A")&"')")

修改改成：update 表1 set 字段=值 where 指定条件

Answer 3

代码看来没问题啊，虽然用的一个rs，但是每次读取下一个表，都已经关闭了