Question

asp关于access执行SQL语句问题（小白问题）

主要是执行：
1、根据ID查询数据库表，取出关键数据。
2、删除刚才查询的数据库表ID行
3、把删除的关键部分记录在另一个数据表表中
所有的表都在一个数据库文件中

sql="select * from xmb where ID="& xmid
del_sql="delete * from xmb where ID="& xmid
add_sql="INSERT INTO notes··· //这里添加记录后面略过，太多占行
set rs=server.CreateObject("adodb.recordset")
rs.open sql,conn,1,3
set rs=conn.execute(del_sql)
if Err.number<>0 then
response.Write("删除执行失败")
Err.Clear
end if
//错误就从这里开始，用asp实在是不会sql的执行，关闭了记录集，从新打开也不行，提示：当前对象已关闭
rs.close
rs.open add_sql,conn,1,3

if Err.number<>0 then
response.Write("添加删除记录失败")
Err.Clear
end if
call dperror(true,"删除成功","user_project_query.asp?key_xuanze="& xmb &"")
自己已经解决了，原来需要打开两个表。

Answer 1

如果用不到特别复杂的recordset对象方法，比如分页等，最好不要用adodb.recorset创建。可以直接用比较简便的方法：

dim rs
set rs = conn.execute("{SQL字符串}")

'当只是新增，更新，或删除操作时，连rs都不必：
conn.execute("delete * from xmb where ID="& xmid)

'你的程序中，set rs=conn.execute(del_sql)是奇怪的。