数据库复制记录的问题！ - 编程论坛

#2

Kettyjin19832008-03-20 11:40

个人感觉应该是用存储过程就可以完成,坐等高手吧.

#3

潇寒2008-03-20 11:44

存贮过程是可以，但是字段比较多，但是字段名字都是一样的，我想会有比较简单的方法可以实现的！

#4

madpbpl2008-03-20 12:36

sql ="insert into [tb] select (字段1,字段2,...) from [tb] where condition"
主键不能复制

#5

yms1232008-03-20 17:05

'复制数据函数
'参数con:ADODB.Connection数据库连接对象
'参数rs:要复制的原始记录集对象
'参数num:复制多少次记录
'参数tableName:复制的表名
Function CopyRecord(con,rs,num,tableName)
Dim rsCopy,i,j
Set rsCopy=Server.CreateObject("ADODB.RecordSet")
rsCopy.Open "select * from "&tableName,con,1,3
For i=0 To num
     rsCopy.AddNew
     For j=0 To rs.Fields.Count-1
         rsCopy.Fields(j).Value=rs.Fields(j).Value
     Next
Next
rsCopy.Update
rsCopy.Close
Set rsCopy=Nothing
End Function