如何在VC6.0中使用DTS

存储过程例子如下：

FROM sysobjects
WHERE name = N'test2'
AND type = 'P')
DROP PROCEDURE test2
GO

CREATE PROCEDURE test2 AS
DECLARE @object int
DECLARE @hr int
declare @GVOutput int

begin

print 'start to create DTS.Pachage'
EXEC @hr = sp_OACreate 'DTS.Package', @object OUTPUT
if @hr <> 0
BEGIN
print 'error create DTS.Package'
exec sp_OAGetErrorInfo
RETURN
END
print 'create DTS.Pachage successful'

print 'start to LoadFromSQLServer'
EXEC @hr = sp_OAMethod @object, 'LoadFromSQLServer',NULL,
@ServerName='cybics-wws\sqlserver', @PackageName='delete', @Flags=256
IF @hr <> 0
BEGIN
print 'error LoadFromSQLServer'
exec sp_OAGetErrorInfo
RETURN
END
print 'LoadFromSQLServer successful'

print '