Fórum Como rodar um Package do SQL Server via Programação #208837

Bom dia, como faço para rodar um arquivo DTS do SQL SERVER via programação?? li uma dica no ramos da informatica mais não consegui, segue a dica abaixo: (Quando tento importar o arquivo dtspkg.dll da erro, ´estou usando delphi6 com SQL SERVER 7.0)

1º - Importe as classes do arquivo dtspkg.dll

CODIGO:



procedure TForm1.Button1Click(Sender: TObject);

var Pakage: _package;

begin

Pakage:= CreateComObject(Class_package) as _package;
Pakage.LoadFromStorageFile( ´Arquivo.dts´ , ´´ , Package_GUID , Version_GUID , Name_Package ,emptyparam);
Pakage.Execute;
Pakage.UnInitialize;

end;

// onde: Arquivo.dts é o caminho completo + o nome do package.
// Package_GUID identificação do package (pode ser obtida em: Package | Properties no editor de packages)
// Version_GUID versão do package (pode ser obtida em: Package | Properties no editor de packages)
// Name_Package nome do package (pode ser obtida em: Package | Properties no editor de packages)