Execute a SQL 2000 DTS Package from VB6 - Visual Basic 6

Josh Fruits

http://www.programmers-corner.com

josh@programmerscorner.com

This function will allow you to execute a SQL 2000 DTS package from within Visual Basic. Any version of SQL 2000 loaded on the executing computer in order to use the Microsoft DTSPackage Object Library reference.

'Reference Microsoft DTSPackage Object Library
Public Sub ExecuteDTS(sServer As String, sPackage As String, _
    Optional sUser As String = vbNullString, _
    Optional sPassword As String = vbNullString)
    
    Dim oPackage As DTS.Package2 'The DTS Package Object
    
    ' Initialize DTS Package
    Set oPackage = New DTS.Package2
    
    ' Run DTS Package
    ' LoadFromSQLServer can be replaced with LoadFromRepository or
    ' LoadFromStorageFile depending on the storage location of the package
    oPackage.LoadFromSQLServer sServer, sUser, sPassword, _
        DTSSQLStgFlag_UseTrustedConnection
    oPackage.Execute
    
    ' Cleanup
    Set oPackage = Nothing
End Sub