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

数据库:SQL Server2000

CREATE PROCEDURE [dbo].[au_XLS2TMP]

@sheet NVARCHAR(50)='UserList'

AS

DECLARE @STR VARCHAR(2000)

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

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