使用VB将Excel导入到Sql中

使用VB把Excel导入到Sql数据库中，其实有几种方法。

下面我介绍的这种方法，较为简单。

其实这种方法的话，是直接使用T-SQL操作的，因此，到了VB里面，直接eccute这个代码就OK了的。

-----------------------------------------------------下面是在T-sql中的语句

if object_id('NewTable') is not null/*判断表NewTable是否存在，如果存在则删除它*/

        drop table NewTable

Select * Into NewTable From OpenDataSource('Microsoft.Jet.OLEDB.4.0'," _
                   & "'Data Source=" & Excel文件名（绝对路径） & _
                   ";User ID=Admin;Password=;Extended properties=Excel 5.0')...[工作表名]

 

-----------------------------------------------------上面是在T-sql中的语句

这样，就把这个Excel工作表完整的导入到Sql当前数据库下的NewTable的表中了。

如果想到VB里面使用，则连接到这个数据库，并且使用Excute执行上面的T-SQL语句即可。