powered by simpleCommunicator - 2.0.60     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / OLAP и DWH [игнор отключен] [закрыт для гостей] / проблемы с ADO MD
10 сообщений из 10, страница 1 из 1
проблемы с ADO MD
    #32460992
том
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Пытаюсь просмотреть метаданные многомер.базы (использ. DELPHI 7).
Успешно соединяюсь с базой, вижу количество кубов,
Catalog1:=CreateComObject(StringToGUID('ADOMD.Catalog')) as ICatalog;
Catalog1.Set_ActiveConnection(OleVariant(DataSource));
for i := 0 to Catalog1.CubeDefs.Count - 1 do

и на этом все заканчивается - при попытке просмотра куба выдает ошибку "Access violation и т.д."
CubeDef1 := Catalog1.CubeDefs as CubeDef;

Может быть кто-нибудь подскажет в чем дело, что я неправильно делаю?
...
Рейтинг: 0 / 0
проблемы с ADO MD
    #32461092
Фотография Валек
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
судя по первым словам ошибки проблемы с доступом к каталогу настройте роли
...
Рейтинг: 0 / 0
проблемы с ADO MD
    #32461094
Phenimore_Cooper
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
for i := 0 to Catalog1.CubeDefs.Count - 1 do
CubeDef1 := Catalog1.CubeDefsas CubeDef

А что это такое написано? Надо:
for i := 0 to Catalog1.CubeDefs.Count - 1 do
CubeDef1 := Catalog1.CubeDefs.GetItem(i) as CubeDef
...
Рейтинг: 0 / 0
проблемы с ADO MD
    #32461106
том
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
извиняюсь, конечно же было написано
CubeDef1 := Catalog1.CubeDefs.Item as CubeDef;

С доступом к каталогу, я думаю, все нормально, я же вижу количество кубов в каталоге!
...
Рейтинг: 0 / 0
проблемы с ADO MD
    #32461116
том
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
да что за ерунда опять ссылка на (i) куда-то подевалась (короче после Item в квадратных скобках i)
CubeDef1 := Catalog1.CubeDefs.Item(i) as CubeDef;
...
Рейтинг: 0 / 0
проблемы с ADO MD
    #32461197
Phenimore_Cooper
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Давно на паскале ничего не писал, не помню-)); но можно попробовать проверить следующие моменты - для верности (возможно, где-то скажу ерунду-):

1) После Item i в квадратных скобках? А разве не в круглых? Если попробовать в круглых?

2) Какого типа должен быть параметр у Item (тот, который i)??? В idl он объявлен как VARIANT, а ты наверняка integer ему суешь. Не знаю, как тут поступает Дельфи, но, может, создать из значения i OleVariant и именно так его отдать в параметр Item?

3) Какого типа CubeDef1?
...
Рейтинг: 0 / 0
проблемы с ADO MD
    #32461231
том
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
если обращаться к кубу с использованием Get_Item, то параметр в круглых скобках и соответствует имени куба,
если обращаться по номеру элемента в списке, т.е. Items, то в квадратных скобках и параметр порядковый номер
CubeDef1 типа CubeDef
...
Рейтинг: 0 / 0
проблемы с ADO MD
    #32462865
AlexPAV
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Я делаю примерно так ... (правда Delphi 6)

Catalog1:=CreateComObject(StringToGUID('ADOMD.Catalog')) as ICatalog;
Catalog1._Set_ActiveConnection(OleVariant(ConnectionString));
If Catalog1.CubeDefs.Count > 0 then
begin
For i := 0 to Catalog1.CubeDefs.Count-1 do
begin
CubeDef1:= Catalog1.CubeDefs as CubeDef;
далее обращение : CubeDef1.Name - имя куба
end;
end;

Удачи.
...
Рейтинг: 0 / 0
проблемы с ADO MD
    #32463752
Phenimore_Cooper
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Ну, в общем, да, так и есть. После CubeDefs i в квадратных скобках. Написанный код правильный, он должен работать. Если это НЕ работает, значит проблема где-то в другом -)
...
Рейтинг: 0 / 0
проблемы с ADO MD
    #32465000
Phenimore_Cooper
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
2 том:

Ну как не решил еще проблему?
...
Рейтинг: 0 / 0
10 сообщений из 10, страница 1 из 1
Форумы / OLAP и DWH [игнор отключен] [закрыт для гостей] / проблемы с ADO MD
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]