怎样将新插入的数据的id写入另一个表解决办法-ASP教程-爱易网页

怎样将新插入的数据的id写入另一个表解决办法

日期：2014-05-17　浏览次数：21051 次

怎样将新插入的数据的id写入另一个表
【简述】
table1结构：
id 计划内容完成节点是否完成
1 出图 2012-4-30 否
2 技术单 2012-4-30 否

table2结构：
id f_id 计划内容完成节点是否完成
1 1 1-1号图 2012-4-18 否
2 1 1-2号图 2012-4-20 否
3 2 1-1技术单 2012-4-15 否

table1是一级计划,table2是二级计划，id是自动编号的
table1.id=table2.f_id
页面上显示：每一条一级计划下面是与它相关的二级计划

【功能描述】
现在有一个功能是任务的结转功能，就是当任务到节点时还没完成，就将此条任务的完成节点多加一个月，但是在数据库中还要保存原来的这条数据，就是说，当任务结转时，数据库里有两条相同的任务，只不过一条完成节点是2012-4-30，还有一条是2012-5-30。

【问题描述】
现在的问题是：当一级计划结转了后，二级计划也要跟着结转。
但是，我现在的做法不能使二级计划跟着结转。下面是我写的代码：

VBScript code


lid=request("id")   
sql="insert into table1(计划内容,完成节点,是否完成) select 计划内容，完成节点，是否完成 from table1 where id=cint('"&lid&"')"    '复制一条记录到数据库里
set rs=server.createobject("adodb.recordset")
rs.open sql,connstr,1,3
rs("完成节点")=time1
rs.update
newid=rs("id")  '得到复制记录的id(不知道是不是这样获得)
rs.close

sql1="insert into table2(f_id,计划内容,完成节点,是否完成) select f_id,计划内容,完成节点,是否完成 from table2 where f_id=cint('"&lid&"')"    
set rs1=server.createobject("adodb.recordset")
rs1.open sql1,connstr,1,3
rs1("f_id")=newid
rs1("完成节点")=time2
rs1.update
rs1.close

用上面的表做例子：
问题1：当table1中的一级计划结转后，不能生成table2中的结果

table1:
id 计划内容完成节点是否完成
1 出图 2012-4-30 否
2 技术单 2012-4-30 否
3 出图 2012-5-30 否

table2
id f_id 计划内容完成节点是否完成
1 1 1-1号图 2012-4-18 否
2 1 1-2号图 2012-4-20 否
3 2 1-1技术单 2012-4-15 否
4 3 1-1号图 2012-5-18 否
5 3 1-2号图 2012-5-20 否

问题2：如果一条一级计划下面有很多条二级计划，应该怎么办？

------解决方案--------------------
楼主，你的业务表模式合理与否我不评价了，
你现在就是想把主表中的一条记录另插入为一行新记录，同时把相关的子表记录也一起复制过去对吧？
这很简单，直接写在sql 语句里就行了，两条语句建议写成存储过程

SQL code


create proc addnewfromold
@oldid int
as
begin
    insert into table1(col1,col2) 
    select col1,col2 from table1 where id=@oldid
    
    declare @newid int
    set @newid=@@identity
    
insert into table2(f_id,col3,col4)
    select @newid,col3,col4 from tabl2 where f_id=@oldid 

end

------解决方案--------------------

VBScript code
<%
lid = Trim(request("id"))

Set conn = CreateObject("ADODB.Connection")
conn.Open connstr

sql = "select 计划内容，完成节点，是否完成 from table1 where id=" & lid
Set rs = CreateObject("ADODB.RecordSet")
rs.cursorLocation = 3
rs.open sql,conn,1,1
Set rs.activeConnection = Nothing
If Not (rs.EOF And rs.BOF) Then
   plan = Trim(rs("计划内容").Value)
   time1 = DateAdd("m", 1, CDate(rs("完成节点").Value))
   over = rs("是否完成").Value
End If
rs.close
Set rs = Nothing

sql = "SELECT * FROM table1 WHERE 1=0"
Set rs = CreateObject("ADODB.RecordSet")
rs.cursorLocation = 3
rs.open sql,conn,1,3
rs.AddNew
rs("计划内容").Value = plan
rs("完成节点").Value = time1
rs("是否完成").Value = over
iBookmark = rs.Bookmark
rs.Update
rs.Bookmark = iBookmark
newid = rs("id").Value
rs.Close
Set rs = Nothing

sql = "Select 计划内容,完成节点,是否完成 From table2 where f_id=" & lid    
sql1 = "Select * From table2 where 1=0"
Set rs = CreateObject("ADODB.RecordSet")
rs.cursorLocation = 3
Set rs1 = CreateObject("ADODB.RecordSet")
rs1.cursorLocation = 3
rs.open sql,conn,1,1
Set rs.activeConnection = Nothing
rs1.open sql1,conn,1,4 '批处理
Do While Not rs.EOF
   r

免责声明： 本文仅代表作者个人观点，与爱易网无关。其原创性以及文中陈述文字和内容未经本站证实，对本文以及其中全部或者部分内容、文字的真实性、完整性、及时性本站不作任何保证或承诺，请读者仅作参考，并请自行核实相关内容。

怎样将新插入的数据的id写入另一个表解决办法

相关资料更多>

推荐阅读更多>