如何把ADO的记录集写入数据库

Question

第一问：
'定义数据源
Dim cnn As ADODB.Connection
'定义记录集
Dim rs As ADODB.Recordset
..................
..................
rs.open strsql
如何把RS写入ACCESS的MAIN表里面(要一次性的写入，不要用循环）第二问：
假如有一个EXCEL文件temp.xls,一个ACCESS（里面有个MAIN表）
如何把temp.xls的sheet1的数据写到MAIN表里面（使用ADO）谢谢~~~~~

Answer 1

1、肯定得用循环
2、ADO 使用 ODBC 打开 Excel 文件当作数据源

Answer 2

1.用insert语句把sql写好
2.把excel当数据库看待就可以了

Answer 3

1.sql="insert into [main](fld1,fld2) select fld1,dld2 from tb where....."
  cnn.execute sql
2.连接access:
  sql="insert into [main] select * from [Excel 8.0;DATABASE=C:\temp.xls].[sheet1]"
  cnn.execute sql思路就这样......

Answer 4

strsql是全局变量
" insert into 目标table(Col1,Col2,...) "& _
" select a.col1,a.col2,... " & _
" from ("& strsql &")a " & _
" where ....."

Answer 5

如果rs不是来自表中的数据，是自定义的，我想只有循环插入了或者直接写insert into