madmax...

1º criar as References Microsoft DTSPackage Object Library Microsoft DTS Custom Tasks Object Library Microsoft DTSDataPump Scripting Object Library Dim opkg As New DTS.Package 'Executa Package opkg.LoadFromSQLServer _ ServerName:="10.5.5.135,1433", _ ServerUserName:="DOUGLAS", _ ServerPassword:="", _ PackageName:="txt_de_para" opkg.Execute

Quebra-Linha

Colaborador..: Douglas Freire
Categoria(s).: Microsoft SQL Server; Visual Basic;
Data.........: 14/03/2006 09:48:43
Visualizado..: 6576 vezes
Fonte........: MadMax....