一个存储过程实现将Excel数据导入数据库

数据库:SQL Server2000

CREATE   PROCEDURE   [ dbo ] . [ au_XLS2TMP ]
@sheet   NVARCHAR ( 50 ) = ' UserList '
AS
DECLARE   @STR   VARCHAR ( 2000 )
/**/ /*
sp_addlinkedserver--创建一个链接的服务器，使其允许对分布式的、针对 OLE DB 数据源的异类查询进行访问
@server='USER_LIST',--被访问的服务器别名
@srvproduct='USER_LIST',--要添加为链接服务器的 OLE DB 数据源的产品名称
@datasrc='d:\file\Users.xls'   --要访问的服务器
*/
EXEC  sp_addlinkedserver  @server = ' USER_LIST ' ,  @srvproduct = ' USER_LIST ' ,  @provider = ' Microsoft.Jet.OLEDB.4.0 ' ,  @datasrc = ' d:\file\Users.xls ' ,  @provstr = ' Excel 8.0;HDR=Yes;IMEX=1; '
EXEC  sp_addlinkedsrvlogin  ' USER_LIST ' , ' false ' ,  NULL ,  NULL ,  NULL
/**/ /*
当 SET XACT_ABORT 为 ON 时，如果执行 Transact-SQL 语句产生运行时错误，则整个事务将终止并回滚。 
当 SET XACT_ABORT 为 OFF 时，有时只回滚产生错误的 Transact-SQL 语句，而事务将继续进行处理。如果错误很严重，那么即使 SET XACT_ABORT 为 OFF，也可能回滚整个事务。
编译错误（如语法错误）不受 SET XACT_ABORT 的影响。
*/
SET  XACT_ABORT  ON
/**/ /*
BEGIN DISTRIBUTED TRAN:跟踪 MS DTC 实用工具中的分布式事务
详细可参考:http://www.cnblogs.com/alanliu/archive/2007/12/25/1014259.html
*/
BEGIN   DISTRIBUTED   TRAN

SET   @STR   =   ' INSERT INTO dbo.MEMBERS  '   +  
     ' (USERNAME,USERPASS,EMAIL)  '   +  
     ' SELECT  '   +  
     ' USERNAME,USERPASS,EMAIL  '   +  
     ' FROM OPENQUERY(USER_LIST, '' SELECT * FROM [ '   +  
     @sheet   +   ' $] '' ) '
EXEC  ( @STR )

IF   @@ERROR   >   0
     GOTO  ChkRollBack

ChkRollBack:
IF   @@ERROR   >   0
     ROLLBACK   TRAN
ELSE
     COMMIT   TRAN

SET  XACT_ABORT  OFF

EXEC  sp_dropserver  ' USER_LIST ' , ' droplogins '
GO