现在 有个表 显示在 页面a 里面 一条条记录
用户选择了 A 里的 一条记录 sql 语句就把 选择的那条记录 从 A 表 删除 添加到b表
其实就是从 A 表剪切数据到 B 表 该怎么写?作者: 导演 时间: 2010-1-10 02:08
<%
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
%>
我的代码是这样写的 能添加 但删除不了作者: 加非猫 时间: 2010-1-10 02:08
select * into B from A where condition '先复制
delete * from A where condition '再删除表A想删除的数据作者: 绝不放弃 时间: 2010-1-10 02:08
行了 呵呵
改
sql="delete * from 论文信息 where title in (select title from list)"
rsdel.open sql,conn,1,3作者: 攸哉vs攸哉 时间: 2010-1-10 02:09
这种 语句能 写成 这样吗
select * into B from A where condition and delete * from A where condition
当中有and 连接 可以的话 先后顺序是甚么?
如果不能的话 我要用 ASP 实现 当选择 A 表里的 一条记录 就能 添加到 B 表里 然后把 A 表的那条记录删除作者: Ougeng 时间: 2010-1-25 09:05
支持一下吧，确实是不错的贴子。