Как в ErWin 4.1 перенести в базу SQL2000 комментарии к полям?

Сделал перенос комментариев. Может кому-то будет нужно, помещаю процедуру. Для переноса нужно сохранить файл в xml-формате, написать простенькую программу которая будет вызывать эту процедуру, передавая тело xml-файла модели как параметр.

[source]
/******************************************************
Описание
Перенос примечаний к столбцам из ErWin4.1-модели
Если примечания нет, переносится название в логической модели
Параметры
@xmlIn - xml-файл модели

История изменений
06/26/2003 - создан andsm
*******************************************************/
CREATE PROCEDURE DB_CreateDefinition @xmlIn text AS
set nocount on
declare @idoc int
exec sp_xml_preparedocument @idoc OUTPUT, @xmlIn
declare @CrsWork cursor
set @CrsWork=cursor for
SELECT *
FROM OPENXML (@idoc, '/ERwin4/Model/Entity_Groups/Entity/Attribute_Groups/Attribute/AttributeProps/Physical_Name')
with(LogicalName varchar(128) '../../@Name' ,
EntityName varchar(128) '../../../../@Name',
EntityPropsName varchar(128) '../../../../EntityProps/Name',
PhysicalName varchar(128) '../Physical_Name',
Definition varchar(7500) '../Definition'
)

declare @LogicalName varchar(128),
@EntityName varchar(128) ,
@EntityPropsName varchar(128) ,
@PhysicalName varchar(128),
@Definition varchar(7500)

declare @strSQL varchar(8000),
@iCount int
open @CrsWork
fetch next from @CrsWork into @LogicalName, @EntityName, @EntityPropsName, @PhysicalName, @Definition
-- insert into testdb..TT (Name) values('Test')
while @@fetch_status=0
begin
if (@Definition IS NULL or RTrim(@Definition)='')
set @Definition=@LogicalName


set @iCount=(select count(*) from ::fn_listextendedproperty(NULL, 'user', 'dbo', 'table', @EntityName, 'column', @PhysicalName) xp where xp.name in ('MS_Description') )
if (@ICount>0)
set @strSQL='EXECUTE sp_updateextendedproperty N''MS_Description'', N'''+@Definition+''' , N''user'', N''dbo'', N''table'', N'''+@EntityName+''', N''column'', N'''+@PhysicalName+''''
else
set @strSQL='EXECUTE sp_addextendedproperty N''MS_Description'', N'''+@Definition+''' , N''user'', N''dbo'', N''table'', N'''+@EntityName+''', N''column'', N'''+@PhysicalName+''''
if (Object_ID(@EntityName) IS NOT NULL)
begin
set @iCount=(select count(*) from syscolumns where id=Object_ID(@EntityName) and [name] in(@PhysicalName))
if @iCount>0
begin
--insert into testdb..TT (Name) values(@strSQL)
exec (@strSQL)
end
-- else
-- insert into testdb..TErr (strSQL) values('@EntityName='+@EntityName+' '+'@PhysicalName='+@PhysicalName)
end
-- else
-- insert into testdb..TErr (strSQL) values('@EntityName='+@EntityName+' '+'@PhysicalName='+@PhysicalName)

-- EXECUTE sp_addextendedproperty N'MS_Description', @Definition , N'user', N'dbo', N'table', @EntityName, N'column', @PhysicalName
fetch next from @CrsWork into @LogicalName, @EntityName, @EntityPropsName, @PhysicalName, @Definition
end

close @CrsWork
deallocate @CrsWork

SELECT *
FROM OPENXML (@idoc, '/ERwin4/Model/Entity_Groups/Entity/Attribute_Groups/Attribute/AttributeProps/Physical_Name')
with(LogicalName varchar(128) '../../@Name' ,
EntityName varchar(128) '../../../../@Name',
EntityPropsName varchar(128) '../../../../EntityProps/Name',
PhysicalName varchar(128) '../Physical_Name',
Definition varchar(7500) '../Definition')

EXEC sp_xml_removedocument @idoc
GO

[/source]

Сделал перенос комментариев. Может кому-то будет нужно, помещаю процедуру. Для переноса нужно сохранить файл в xml-формате, написать простенькую программу которая будет вызывать эту процедуру, передавая тело xml-файла модели как параметр.