vb中怎么实现数据表从一个数据库里复制到另外一个数据库

简单说一下思路，我想代码应该不会很难，首先要创建两个数据库连接，分别指向两个数据库。然后使用select语句从db1中把数据读取出来放到一个结果集中保存起来。然后在使用循环，在循环当中使用insert语句逐条把db1中student表的数据插入到db2的student表就可以了。没有什么技术难度。

如果两个数据库都是sqlserver，那么从一个数据库中加入另一个数据库，再选择导入数据，把另一个数据库作为数据源、写好SQL就可以；

如果用程序来做，那么需要找个数据容器比如datagrid什么的来装数据，再从数据源存到另一个数据库中。

1、开发工具——VB。

2、输入代码：Sub 复制表() Dim MyBook1 As Workbook  Set MyBook1 = Workbooks.Open("C:\Users\Administrator\Desktop\工作表1.xls")  Sheets("移动表").Select   Sheets("移动表").Copy Before:=Workbooks( _ "工作表2.xls").Sheets(1)MyBook1.CloseEnd Sub。

3、开发工具——宏。

4、执行——复制表。

5、如图，复制完成。

---