用VB编写一个导入EXCEL文件数据到SQL2000数据库中的程序，怎么编写的

Question

如题所述

Answer 1

操作方法如下：
　　1、导入Excel数据，同时创建表:
　　select * into 表名 FROMopenrowset( 'Microsoft.Jet.OLEDB.4.0','EXCEL 8.0;HDR=YES;IMEX=1;DATABASE=文件路径','select* from [Excel表名(默认为Sheet1)$]')。
　　2、在表中插入Excel数据：
　　insert into 表名 select * fromopenrowset( 'Microsoft.Jet.OLEDB.4.0','EXCEL 8.0;HDR=YES;IMEX=1; DATABASE=文件路径','select * from [Excel表名(默认为Sheet1)$]')。
　　3、导出数据到Excel中：
　　insert into openrowset('Microsoft.Jet.OLEDB.4.0','EXCEL 8.0;HDR=YES;IMEX=0; DATABASE=文件路径','select* from [Excel表名(默认为Sheet1)$]') select * from 表名；需要创建Excel文件并指定列名后才可以导出。

Answer 2

上网上查一下vb操作excel程序，然后将你的rs记录集循环向每行每列赋值就好了。