SYBASE中生成所有建表语句的过程.docVIP

SYBASE中生成所有建表语句的过程Sql代码: ? if?exists(select?1?from?sysobjects?where?name?=?sp_gent?and?type?=?P)?? ??drop?procedure?sp_gent?? go?? ?? create?procedure?sp_gent???? @tblname?varchar(30)?=?null,???? @prechar?varchar(4)?=?null,???--$:no?print???? @table_dll?varchar(16384)?=?null?out,???? @dbname?varchar(32)?=?null,???? @droptg?char(1)?=?1,???? @prxytx?varchar(255)?=?null,???? @replace?varchar(20)?=?null,???? @tabtype?varchar(1)?=?A,?--A:所有表;P:代理表;U:用户表???? @indextg?varchar(3)?=?TPI,??--T:纯表;P:主键;I:纯索引;J:除主键外的纯索引（和TP使用与I相同,和I同时使用I失效）???? @table_seg?varchar(32)?=?null,???? @index_seg?varchar(32)?=?null???? as???? begin???? ?????set?nocount?on????? ???? ????if?@tblname?is?null?begin???? ????????declare?@c_tblname?varchar(30)???? ????????declare?cur_1?cursor?for???? ????????select?name?from?sysobjects?where?type?=?U?order?by?name???? ????????open?cur_1???? ????????fetch?cur_1?into?@c_tblname???? ????????while?@@sqlstatus?=?0?begin???? ????????????exec?sp_gent????? ????????????????@tblname?=?@c_tblname,???? ????????????????@prechar?=?@prechar,???? ????????????????@dbname??=?@dbname?,???? ????????????????@droptg??=?@droptg?,???? ????????????????@prxytx??=??@prxytx?,???? ????????????????@replace?=?@replace,???? ????????????????@tabtype?=?@tabtype,?--A:所有表;P:代理表;U:用户表???? ????????????????@indextg?=?@indextg,?--A:表和索引;T:纯表;I:纯索引???? ????????????????@table_seg?=?@table_seg,???? ????????????????@index_seg?=?@index_seg???? ????????????fetch?cur_1?into?@c_tblname???? ????????end???? ????????close?cur_1???? ????????deallocate?cursor?cur_1???? ????????return???? ????end???? ???? ????declare?@obj_id?int???? ????declare?@sysstat2?int???? ????declare?@username?varchar(30)???? ???? ?????select?@obj_id?=?id,?@sysstat2?=?sysstat2?,@username??=?user_name(uid)???? ????????from?sysobjects?where?name?=?@tblname?and?type?=?U???? ????if?@@rowcount??1???? ????begin???? ????????print?table?%1!?not?exists,?@tblname???? ????????goto?err???? ????end???? ?????if?@sysstat2??1024?=?1024?begin???? ???????