/********************

* function:sqlserver 表结构转换成Oralce 表结构，不支持索引以及自动增长

**********************/

--取消影响行数

set nocount on;

--创建表名游标

declare table_cursor cursor for

select CONVERT(varchar(300),x.name) name,CONVERT(varchar(500),y.value) value

from sys.tables x

left join (select major_id,value from sys.extended_properties where minor_id=0) y

on x.object_id=y.major_id

where x.name='T_STATISTICS_WaterOutputMonth'

order by x.name;

--声明变量

declare

@sql varchar(max)='',

@primary varchar(300),

@tableName varchar(300), --表名称

@tabledes varchar(500); --表名称描述

--创建表结构临时表

create table #table(colname varchar(300),

isprimary int,

typename varchar(50),

intlength int,

decimallength int,

nullflag int,

defaultval varchar(50),

commonts varchar(500)

)

--打开游标

open table_cursor;

fetch next from table_cursor into @tableName,@tabledes;

while @@FETCH_STATUS = 0

begin

truncate table #table;

insert into #table (colname,isprimary,typename,intlength,decimallength,nullflag,defaultval,commonts)

SELECT CONVERT(varchar(300),a.name) [字段名],

(case when (SELECT count(*)

FROM sysobjects

WHERE (name in (SELECT name

FROM sysindexes

WHERE (id = a.id)

AND (indid in (SELECT indid

FROM sysindexkeys

WHERE (id = a.id)

AND (colid in (SELECT colid

FROM syscolumns

WHERE (id = a.id)

AND (name = a.name)))))))

AND (xtype = 'PK')) > 0 then 1

end) [主键],

b.name [类型],

COLUMNPROPERTY(a.id, a.name, 'PRECISION') as [长度],

isnull(COLUMNPROPERTY(a.id, a.name, 'Scale'), 0) as [小数位数],

(case when a.isnullable = 1 then 1 else 0 end) [允许空],

e.text [默认值],

CONVERT(varchar(500),g.[value]) AS [说明]

FROM syscolumns a

left join systypes b

on a.xtype = b.xusertype

inner join sysobjects d

on a.id = d.id

and d.xtype = 'U'

and d.name <> 'dtproperties'

left join syscomments e

on a.cdefault = e.id

left join sys.extended_properties g

on a.id = g.major_id

AND a.colid = g.minor_id

left join sys.extended_properties f

on d.id = f.class

and f.minor_id = 0

where b.name is not null

and d.name=@tableName

order by a.id,a.colorder

--初始化变量

set @sql='';

--构建表结构

select @sql+='

'+case colname when 'Comment' then 'Comments' else colname end +' '

+case typename

when 'varchar' then 'varchar2('+CONVERT(varchar(10),intlength)+') '

when 'int' then 'number(4) '

when 'decimal' then 'number('+CONVERT(varchar(10),intlength)+ ( case when decimallength>0 then ','+ CONVERT(varchar(10),decimallength) else '' end)+') '

when 'datetime' then 'date '

else typename

end

+ case when defaultval is not null and len(defaultval)>0 then 'default '+

(case when charindex('getdate',defaultval)>0 then 'sysdate '

when charindex('newid',defaultval)>0 then 'sys_guid() '

else (case when typename='int' or typename='decimal' then REPLACE(REPLACE(defaultval,'(',''),')','') else defaultval end )

end)

else '' end

+ case when nullflag=0 then ' not null,' else ',' end

from #table;

select * from #table

if @sql is not null and len(@sql)>0

begin

set @sql=left(@sql,len(@sql)-1);

--创建表结构

set @sql='create table '+ @tableName+'('+@sql+

'

);

comment on table '+@tableName+' is '''+@tabledes+''';

'

--添加备注

select @sql+= case when commonts is not null and len(commonts)>0 then 'comment on column '+@tableName+'.'+colname+' is '''+commonts+''';

' else '' end

from #table;

--添加主键索引

if exists(select 1 from #table where isprimary=1 )

begin

set @primary=''

select @primary+= colname+','

from #table

where isprimary=1

set @primary=left(@primary,len(@primary)-1);

set @sql+='alter table '+@tableName+' add constraint PK_'+@tableName+' primary key ('+@primary+');'

end

end

print @sql;

fetch next from table_cursor into @tableName,@tabledes;

end

close table_cursor;

deallocate table_cursor;

drop table #table;