请问怎样将从数据库中的一张表中查询出来的结果集写到另外一张表中？

Question

请问怎样将从数据库中的一张表中查询出来的结果集写到另外一张表中？

Answer 1

结构要相同：
如果写到一张新表：
select * into 新表名 from 旧表名 where ....
 
如果不是新表：
insert into 表名 （字段1,字段2 ....) values (select * from 表名)

Answer 2

dim db as adodb.connection         '源数据源
dim rs as adodb.recordset
set db =new adodb.connection
set rs =new adodb.recordset 
dim sql as string
db.open 数据源
sql=记录集
rs.open sql,db
do while rs.eof
  dim db1 as adodb.connection         '目标数据源
  dim rs1 as adodb.recordset
  set db1 =new adodb.connection
  set rs1 =new adodb.recordset 
  dim sql1 as string
  db1.open 数据源
  sql1=记录集
rs1.open sql1,db1,2,2                '目标数据源
rs1.addnew
rs1("目标标字段")=rs("源字段")
rs1.update
rs.movenext
loop

Answer 3

同意　　 zqfleaf(动力港湾) ( ) 信誉：105

Answer 4

我是这样写的：
Adodc1.ConnectionString = "Provider=MSDASQL.1;Persist Security Info=False;Data Source=szx"
    SelectSQL = "insert into SelDocuments select * from AllDocuments where " & SelectSQL
    Adodc1.RecordSource = SelectSQL
    Adodc1.Refresh
提示“对象关闭时，操作不被允许”，请教？

Answer 5

1。若表不存在  select * into table2 from table1
2.表存在  insert into table2 select * from table1

Answer 6

我是这样写的：
Adodc1.ConnectionString = "Provider=MSDASQL.1;Persist Security Info=False;Data Source=szx"
    SelectSQL = "insert into SelDocuments select * from AllDocuments where " & SelectSQL
    Adodc1.RecordSource = SelectSQL
    Adodc1.Refresh
提示“对象关闭时，操作不被允许”，请教？

Answer 7

是SQL SERVER 数据库吗？用它试试？
Adodc1.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;Data Source=YOUSERVERNAME；Initial Catalog=YOUDATABASENEME"