Function Main() Dim sDBDataSource Dim sDBCatalog Dim sDBUserID Dim sDBPassword Dim bDBUseTrusted Dim sOLAPServer Dim sOLAPCatalog Dim oPackage Dim oConnection Dim oTask Dim oCustomTask
' 取得当前DTS包对象的技巧 Set oPackage = DTSGlobalVariables.Parent ' 取得包中的数据连接对象 Set oConnection = oPackage.Connections("DBConnection")
' 配置数据源对象的数据连接信息 If bDBUseTrusted Then oConnection.UseTrustedConnection = bDBUseTrusted Else oConnection.UserID = sDBUserID oConnection.Password = sDBPassword End If