jika ada (pilih * dari dbo.sysobjects di mana id = object_id(N'[dbo].[s_LoadPackageToServer]') dan OBJECTPROPERTY(id, N'IsProcedure') = 1)
prosedur pelepasan [dbo].[s_LoadPackageToServer]
GO
Buat prosedur s_LoadPackageToServer
@NamaPaket varchar(128) ,
@NamaFile varchar(500) ,
@Nama pengguna varchar(100) ,
@Kata sandi varchar(100)
sebagai
/*
exec s_LoadPackageToServer
@NamaPaket = 'paket saya' ,
@NamaFile = 'c:dtspckgspaketsaya.dts' ,
@Nama Pengguna = 'sa' ,
@Kata Sandi = 'pwd'
*/
nyatakan @objPackage int
deklarasikan @rc int
exec @rc = sp_OACreate 'DTS.Package', keluaran @objPackage
jika @rc <> 0
mulai
raiserror('gagal membuat paket rc = %d', 16, -1, @rc)
kembali
akhir
exec @rc = sp_OAMethod @objPackage, 'LoadFromStorageFile' , null,
@UncFile = @NamaFile, @kata sandi = nol
jika @rc <> 0
mulai
raiserror('gagal memuat paket rc = %d, paket = %s', 16, -1, @rc, @NamaPaket)
kembali
akhir
exec @rc = sp_OAMethod @objPackage, 'SaveToSQLServerAs' , null,
@NamaBaru = @NamaPaket, @ServerName = @@ServerName, @ServerUserName = @NamaPengguna, @ServerPassword = @Password
jika @rc <> 0
mulai
raiserror('gagal memuat paket rc = %d, paket = %s', 16, -1, @rc, @NamaPaket)
kembali
akhir
pergi
exec s_LoadPackageToServer
'paket saya' ,
'c:DTS_AN2CP_DIC.dts' ,
'sa' ,
'di'