如果存在（從 dbo.sysobjects 選擇 *，其中 id = object_id(N'[dbo].[s_LoadPackageToServer]') 和 OBJECTPROPERTY(id, N'IsProcedure') = 1）
刪除過程 [dbo].[s_LoadPackageToServer]
GO
建立過程 s_LoadPackageToServer
@PackageName varchar(128) ,
@檔名 varchar(500) ,
@用戶名 varchar(100) ,
@密碼varchar(100)
作為
/*
執行 s_LoadPackageToServer
@PackageName = 'mypackage' ,
@FileName = 'c:dtspckgsmypackage.dts' ,
@用戶名 = 'sa' ,
@密碼='密碼'
*/
聲明 @objPackage int
聲明 @rc int
exec @rc = sp_OACreate 'DTS.Package', @objPackage 輸出
如果@rc <> 0
開始
raiserror('建立包 rc = %d 失敗', 16, -1, @rc)
返回
結束
exec @rc = sp_OAMethod @objPackage, 'LoadFromStorageFile' , null,
@UncFile = @FileName, @password = null
如果@rc <> 0
開始
raiserror('無法載入套件 rc = %d, 套件 = %s', 16, -1, @rc, @PackageName)
返回
結尾
exec @rc = sp_OAMethod @objPackage, 'SaveToSQLServerAs' , null,
@NewName = @PackageName、@ServerName = @@ServerName、@ServerUserName = @Username、@ServerPassword = @Password
如果@rc <> 0
開始
raiserror('無法載入套件 rc = %d, 套件 = %s', 16, -1, @rc, @PackageName)
返回
結尾
去
執行 s_LoadPackageToServer
'我的包裹',
'c:DTS_AN2CP_DIC.dts' ,
'薩',
'薩'