sql  有 删除 A 表的记录 然后把删除的记录添加到 B 表的 语句吗

现在 有个表 显示在 页面a 里面  一条条记录
用户选择了 A 里的 一条记录  sql 语句就把 选择的那条记录 从 A 表 删除   添加到b表

其实就是从 A 表剪切数据到 B 表  该怎么写?

select * into B from A where condition   '先复制
delete * from A where condition '再删除表A想删除的数据

这种 语句能 写成 这样吗

select * into B from A where condition and delete * from A where condition

当中有and 连接  可以的话 先后顺序是甚么?

如果不能的话  我要用 ASP 实现  当选择 A 表里的 一条记录 就能 添加到 B 表里  然后把 A 表的那条记录删除

[[it] 本帖最后由 kindman4 于 2008-5-13 22:44 编辑 [/it]]

<%
If Session("name")="" Then
  Response.Redirect "Login.asp"
End if
%>
<%
dim id,addtime
ID=request("checkid")
addtime=date()


dim rstemp,rsadd,rsdel
dim tname,title,tel
dim main
dim mobile
dim department
dim email,office
set rstemp=server.createobject("adodb.recordset")
set rsadd=server.createobject("adodb.recordset")
set rsdel=server.createobject("adodb.recordset")
Dim conn
conn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=e:\text\database\text.mdb"
sqltemp="select * from 论文信息"
rstemp.Open sqltemp,conn,1,1
if rstemp.EOF or rstemp.BOF then
    response.write "<script language=JavaScript>" & chr(13) & "alert('这本图书已售完！');" & "history.back()" & "</script>"
else
    tname=rstemp("tname")    
    title=rstemp("title")
    tel=rstemp("tel")
    main=rstemp("main")
    mobile=rstemp("mobile")
    department=rstemp("department")
    email=rstemp("email")
    office=rstemp("office")
sql="insert into list(tname,title,name,tel,main,mobile,department,email,office,addtime) values('"&tname&"','"&title&"','"&session("name")&"','"&tel&"','"&main&"','"&mobile&"','"&department&"','"&email&"','"&office&"','"&addtime&"')"
rsadd.open sql,conn,1,1
set rsdel=server.createobject("adodb.recordset")

sql="delete  from 论文信息 where title in (select title from list)"
rsdel.open sql,conn,3,4



response.write "<script language=JavaScript>" & chr(13) & "alert('课程已添加！');" & "history.back()" & "</script>"
set rstemp=nothing
set rsadd=nothing
set rsdel=nothing
set conn=nothing
end if
%>


我的代码是这样写的 能添加 但删除不了

[[it] 本帖最后由 kindman4 于 2008-5-13 22:49 编辑 [/it]]

行了 呵呵
改
sql="delete * from 论文信息 where title in (select title from list)"
rsdel.open sql,conn,1,3