Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Delphi и DTS [D5, MSSQL]


Voland_s ©   (2002-06-14 20:57:00) 

Люди кто нибуть пытался работать с DTS под Делфей ?
у меня получается запустить только пошагово т.е. каждый шаг я могу выполнить, а когда пытаюсь запустить весь пакет на исполнение матерится и не хочет ничего делать, пока так и работаю пошагово...


Voland_s   (2002-06-17 11:50:00) [1]

Да я его запускаю в Enterprise Manager без проблем, даже если я его запускаю через ShellExecute(DTSrun.exe ...) все тоже ОК.

При работе в Делфи: Ошибка access violation, я перепробовал разные варианты и почему то никак, может ты чего то подскажешь ...


unfam   (2002-06-16 01:19:00) [2]

2 Voland_s. Наверное, я накосорезил с вопросом, но приведеный тобой код никак не помогает ответить на вопрос, почему у тебя так работает, а просто dtsPkg.Execute - нет. Скажи, а если пакет сохранить на сервере а потом из Enterprise Manager запустить, он нормально отрабатывет ? Какую ругательную фразу выдает Delphi ?


Voland_s   (2002-06-15 11:15:00) [3]

dtsPkg := TPackage.Create(Nil);
dtsPkg.LoadFromStorageFile(ExtractFileDir(forms.Application.ExeName)+"\DTS_In.dts","","","","DTS_In");
dtsPkg.GlobalVariables.Item(1)._Set_Value(Name);
dtsPkg.Steps.Item(2).Execute;
dtsPkg.Steps.Item(1).Execute;
dtsPkg.Steps._Release;
dtsPkg.CleanupInstance;
Sleep(1000);


unfam   (2002-06-15 03:03:00) [4]

Я работаю (хотя, может быть это слишком громко сказано). Напиши соответствующий кусок кода своей программы.


Наверх

Титульная страница Поиск, карта сайта Написать письмо