Dim CN As New ADODB.Connection Dim Rs As New ADODB.Recordset CN.ConnectionString = "Provider=sqloledb;Data Source=pmserver;Initial Catalog=Report;User Id=sa;Password=sa;" CN.Open CN.Execute "insert into table2 select * from table1" '就是这句话
Dim CN As New ADODB.Connection Dim Rs As New ADODB.Recordset CN.ConnectionString = "Provider=sqloledb;Data Source=pmserver;Initial Catalog=Report;User Id=sa;Password=sa;" CN.Open CN.Execute "create table2 " CN.Execute "insert into table2 select * from table1" 我意思是建立一个新的表格 然后插入这些语句 !
insert into table2 select * from table1
第二个表的记录集如何打开?
还有人告诉我用append,不知如何应用?谢!
Dim Rs As New ADODB.Recordset CN.ConnectionString = "Provider=sqloledb;Data Source=pmserver;Initial Catalog=Report;User Id=sa;Password=sa;"
CN.Open
CN.Execute "insert into table2 select * from table1" '就是这句话
Dim Rs As New ADODB.Recordset CN.ConnectionString = "Provider=sqloledb;Data Source=pmserver;Initial Catalog=Report;User Id=sa;Password=sa;"
CN.Open
CN.Execute "create table2 " CN.Execute "insert into table2 select * from table1"
我意思是建立一个新的表格
然后插入这些语句 !