设为首页收藏本站

新微赢技术网

 找回密码
 注册
搜索
热搜: 回贴
查看: 128|回复: 6
打印 上一主题 下一主题

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

[复制链接]
跳转到指定楼层
1#
发表于 2010-1-10 02:08:46 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
sql  有 删除 A 表的记录 然后把删除的记录添加到 B 表的 语句吗

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

其实就是从 A 表剪切数据到 B 表  该怎么写?
2#
发表于 2010-1-10 02:08:50 | 只看该作者
<%
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
%>


我的代码是这样写的 能添加 但删除不了
回复 支持 反对

使用道具 举报

3#
发表于 2010-1-10 02:08:54 | 只看该作者
select * into B from A where condition   '先复制
delete * from A where condition '再删除表A想删除的数据
回复 支持 反对

使用道具 举报

4#
发表于 2010-1-10 02:08:58 | 只看该作者
行了 呵呵

sql="delete * from 论文信息 where title in (select title from list)"
rsdel.open sql,conn,1,3
回复 支持 反对

使用道具 举报

5#
发表于 2010-1-10 02:09:02 | 只看该作者
这种 语句能 写成 这样吗

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

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

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

使用道具 举报

6#
发表于 2010-1-25 09:05:04 | 只看该作者
支持一下吧,确实是不错的贴子。
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

申请友链|小黑屋|最新主题|手机版|新微赢技术网 ( 苏ICP备08020429号 )  

GMT+8, 2024-11-19 14:30 , Processed in 0.072375 second(s), 10 queries , Gzip On, Memcache On.

Powered by xuexi

© 2001-2013 HaiAn.Com.Cn Inc. 寰耽

快速回复 返回顶部 返回列表