Solved

Issues with running a DTS package remotely from a VB app

Posted on 2008-06-17
3
302 Views
Last Modified: 2013-11-30
Hello, I am having a issue with running a DTS package from my VB app when the VB app is not on the DB server.  

Detailed:
DB:  MSSQL 2000
VB:  2008

The DTS package is a simple DTS that takes an excel file from a location on the DB server and loads the data into a MSSQL database table.  The version of SQL Server is 2000.  The VB app is simply running the DTS package when a button is pushed.  If the VB app resides on the DB server, the DTS runs succesfully, however once we move the VB app off of the server and onto a remote machine we recieve the error that the location where the excel file resides is invalid.

I have verified the remote user and remote PC has access to the directory where the excel file resides.  I have shared out the directory to verify all users have access to it.  I have also changed the DTS package to use a UNC path for the excel file location instead of the physical drive.  But I still have the issue.

Thanks for any help you can provide.
----- Run Package

Dim oPKG As DTS.Package, oStep As DTS.Step

        oPKG = New DTS.Package

 

        Dim sServer As String, sUsername As String, sPassword As String

        Dim sPackageName As String, sMessage As String

        Dim lErr As Long, sSource As String, sDesc As String

 

        ' Set Parameter Values

        sServer = "SERVER"

        sUsername = "USER"

        sPassword = "PASSWORD"

        sPackageName = "PACKAGE NAME"

 

        ' Load Package

        oPKG.LoadFromSQLServer(sServer, sUsername, sPassword, _

            DTS.DTSSQLServerStorageFlags.DTSSQLStgFlag_Default, , , , sPackageName)

 

        ' Set Exec on Main Thread

        For Each oStep In oPKG.Steps

            oStep.ExecuteInMainThread = True

        Next

 

        ' Execute

        oPKG.Execute()

 

        ' Get Status and Error Message

        For Each oStep In oPKG.Steps

            If oStep.ExecutionResult = DTS.DTSStepExecResult.DTSStepExecResult_Failure Then

                oStep.GetExecutionErrorInfo(lErr, sSource, sDesc)

                sMessage = sMessage & "Step """ & oStep.Name & _

                    """ Failed" & vbCrLf & _

                    vbTab & "Error: " & lErr & vbCrLf & _

                    vbTab & "Source: " & sSource & vbCrLf & _

                    vbTab & "Description: " & sDesc & vbCrLf & vbCrLf

            Else

                sMessage = sMessage & "Step """ & oStep.Name & _

                    """ Succeeded" & vbCrLf & vbCrLf

            End If

        Next

 

        oPKG.UnInitialize()

 

        oStep = Nothing

        oPKG = Nothing

 

        ' Display Results

        MsgBox(sMessage)
 

----- End Run Package
 
 
 
 

----Connection on Form Load
 

        strconnect = "Provider=SQLOLEDB;Data Source=SERVER_NAME;

                              Initial Catalog=DB_NAME"

        con.Open(strconnect, "USER", "PASSWORD")

        con.CommandTimeout = 0

-----

Open in new window

0
Comment
Question by:DCG_Developer
  • 2
3 Comments
 
LVL 11

Expert Comment

by:dready
Comment Utility
0
 

Author Comment

by:DCG_Developer
Comment Utility
Thanks for the info but I only switched to a UNC path bc I was recieving the error file path not found when using the physical path i.e. C:\Folder\xxx.xls to the excel file.  So I don't think it is a path issue but some sore of odd rights issue when calling a DTS package remotely using a VB application.
0
 

Accepted Solution

by:
DCG_Developer earned 0 total points
Comment Utility
It ended up being a rights issue where for some reason the excel file was not inheriting the folders permissions, after doing a restart of the server it seems to have corrected this, thanks.
0

Featured Post

How to run any project with ease

Manage projects of all sizes how you want. Great for personal to-do lists, project milestones, team priorities and launch plans.
- Combine task lists, docs, spreadsheets, and chat in one
- View and edit from mobile/offline
- Cut down on emails

Join & Write a Comment

I was working on a PowerPoint add-in the other day and a client asked me "can you implement a feature which processes a chart when it's pasted into a slide from another deck?". It got me wondering how to hook into built-in ribbon events in Office.
For both online and offline retail, the cross-channel business is the most recent pattern in the B2C trade space.
Via a live example, show how to shrink a transaction log file down to a reasonable size.
Using examples as well as descriptions, and references to Books Online, show the documentation available for datatypes, explain the available data types and show how data can be passed into and out of variables.

772 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

10 Experts available now in Live!

Get 1:1 Help Now