DTS via VB parametrizado

[lruiz]

Estou com um problema para executar um DTS pelo VB.

Eu queria rodar um DTS pelo VB onde o usuário pudesse selecionar o arquivo de dados que será carregado, então o caminho e o nome do arquivo teriam que ser passados como parâmetro.

Já vi na internet alguns metodos para executar o DTS pelo VB, mas sempre com caminho do arquivo fixo.

O meu pacote está salvo no SQL, mas isso tambem não é uma restrição para o meu caso. Eu poderia usar o dts.run, mas tambem não achei uma forma de parametrizá-lo.

alguém já fez algo parecido?

Eu peguei esse exemplo no suporte MS:

Sub Command1_Click()
    Dim dtsp As New DTS.Package
    dtsp.LoadFromSQLServer _
        ServerName:="MyServer", _
        ServerUserName:="MyUserID", _
        ServerPassword:="MyPassword", _
        PackageName:="DTSDemo"
    dtsp.Execute
End Sub

ele executa com caminho fixo, ou seja, apotando para o diretório\arquivo do servidor que eu apontei quando criei o DTS. Eu só queria acrescentar algo parecido com isso:

Sub Command1_Click()
    Dim dtsp As New DTS.Package
    dtsp.LoadFromSQLServer _
        ServerName:="MyServer", _
        ServerUserName:="MyUserID", _
        ServerPassword:="MyPassword", _

    'QUERIA TER A OPÇÃO DE MARCAR AQUI O ARQUIVO
    Source:=strFile, _


        PackageName:="DTSDemo"
    dtsp.Execute
End Sub

onde strFile seria a string com o caminho e o nome do arquivo selecionado pelo usuário.

Obrigado,

ruiz

Editado Abril 9, 2009 por kuroi
Adicionar tag CODE