|
|
|
Delphi и SQL DMO
|
|||
|---|---|---|---|
|
#18+
Я столкнулся с проблемой импорта библиотеки sqldmo.dll в Delphi 5. После Progect->Import Type Library->Microsoft SQLDMO object Library-> Install, выдается ошибка что классы TDatabase, TTable, TRemateServer is alredy instaled, после изменения имени этих класов Delphi зависает. Я хотел использовать DMO для манипулирование DTS пакетами, а конкретно мне необходимо задавать путь местонахождения выходных файлов. Если я использую вызов dtsrun через xp_commandshell то выходные файлы создаются на сервере, а на сетевой диск не ложаться. Так же хотелось бы управлять доступом через DMO к записям в RecordSet-ах и другим элементам интерфейса. Если соображения? Спасибо. ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 20.08.2002, 10:29 |
|
||
|
Delphi и SQL DMO
|
|||
|---|---|---|---|
|
#18+
По моему нужно выполнить такую последовательность действий : Progect->Import Type Library->Microsoft SQLDMO object Library->Create Unit, предварительно поменяв имена классов. Результат ХХХ_TLB.PAS который предоставляет DMO интерфейс. ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 20.08.2002, 11:57 |
|
||
|
Delphi и SQL DMO
|
|||
|---|---|---|---|
|
#18+
Не проще ли использовать DMO так: dmo:OleVariant; begin dmo:=CreateOleObject('SQLDMO.Application') dmo.Servers['SomeSerbver'].Databases['MyDatabase'].CompatibilityLevel:=80; ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 20.08.2002, 13:22 |
|
||
|
Delphi и SQL DMO
|
|||
|---|---|---|---|
|
#18+
При использовании: dmo:=CreateOleObject('SQLDMO.Application'); dmo.SQLServers['MyServer'].Databases['MyDatabse'].CompatibilityLevel:=80; выдается ошибка "Член группы не найден" ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 21.08.2002, 08:23 |
|
||
|
Delphi и SQL DMO
|
|||
|---|---|---|---|
|
#18+
Либо такой сервер не найден (или до него не достучаться по имени) или база данных с таким именем не существует. ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 21.08.2002, 10:04 |
|
||
|
Delphi и SQL DMO
|
|||
|---|---|---|---|
|
#18+
К тому же этот пример чиста чтобы показать идею-концепцию и писан на коленке. Берешь идею и делаешь что тебе надо. А в тупую это код запускать смысла нет, ибо: 1) Если ты обратил внимание, там нету никакой авторизации - а следовательно, никакое административное действие принципиально невозможно, а уже тем более поменять свойства базы. 2) Вот так вот просто взять и поменять уровень совместимости на базе - для этого смелость нужна. А если бы я написал "...DataBases['DB'].Delete", ты бы тоже сходу запустил, не разобравшись? ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 21.08.2002, 10:49 |
|
||
|
|
start [/forum/topic.php?fid=58&msg=32044772&tid=2119898]: |
0ms |
get settings: |
10ms |
get forum list: |
14ms |
check forum access: |
4ms |
check topic access: |
4ms |
track hit: |
30ms |
get topic data: |
13ms |
get forum data: |
3ms |
get page messages: |
55ms |
get tp. blocked users: |
2ms |
| others: | 233ms |
| total: | 368ms |
| 0 / 0 |
