[/SRC]--Народ есть проблема с T-SQL и DSO
--Текст без обработки ошибок


DECLARE @dsoServer   int, -- DSO.Server 
        @dsoDatabase int, -- DSO.MDStore 
        @dsoDim      int, -- DSO.Dimension 
	@NameServer          nvarchar( 255 ),  
        @NameDatabase        nvarchar( 255 ),  
        @NameDimension       nvarchar( 255 ),  
	@DataSourceName          nvarchar( 255 ),
	@DataSource          int,
        @hr          int 

SET     @NameServer          = 'localhost'
SET	@NameDatabase        = 'Foodmart 2000'
SET	@NameDimension       = 'test1'
SET	@DataSourceName          = 'Foodmart'



-- Создаем объект
EXEC @hr = sp_OACreate 'DSO.Server', @dsoServer OUTPUT 
--Коннектимся
EXEC @hr = sp_OAMethod @dsoServer, 'Connect', Null, @NameServer 
--Идем в нашу БД
EXEC @hr = sp_OAMethod @dsoServer, 'MDStores', @dsoDatabase OUT, @NameDatabase  

--Добавляем измерение
EXEC @hr = sp_OAMethod @dsoDatabase, 'Dimensions.AddNew', @dsoDim OUT, @NameDimension
-- Добавляется нормально


-- Далее возникает проблема вроде бы надо установить свойство DataSource в измерении 
-- В базе уже есть одно DataSource
-- пробую по разному - ОШИБКИ 
-- варианты попробовал

--1.
--EXEC @hr = sp_OAMethod @dsoDatabase, 'DataSources("Foodmart")', @DataSource OUT 
--2.
--EXEC @hr = sp_OASetProperty @dsoDatabase, 'Dimensions("test1").DataSource', @DataSource
--3.
-- читаем значение datasource
--      EXEC @hr = sp_OAMethod @dsoDatabase, 'DataSources("Foodmart")', @DataSource OUT 
-- пытаемся ее запихнуть в свойство
--	EXEC @hr = sp_OASetProperty @dsoDim, 'DataSource', @DataSource
--4.
--	EXEC @hr = sp_OASetProperty @dsoDim, 'DataSource', 'Foodmart'
--5.
	EXEC @hr = sp_OASetProperty @dsoDim, 'DataSource.Value', 'Foodmart'


--Все равно выдает ошибку 'Traversal string:  An object return value was required but not supplied' или 'Несовпадение типов'


--Как все-таки установить это свойство из SQL ???
[SRC]