动态生成数据表

今天同事让我修改他以前写的动弹生成表以及字段的存储过程，因为以前只有3中选项类型，现在7种类型，所以要重新生成答案表。所以这个小任务就落在我身上了。。呵呵。 其实问题也简单了。因为他以前已经写了我只要加个判断就可以了。。。 所以废话不多说了。贴代码先。备忘。 USE [Qn] GO /****** 对象: StoredProcedure [dbo].[CreateTable] 脚本日期: 05/05/2008 08:40:45 ******/ SET ANSI_NULLS ON GO SET QUOTED_IDENTIFIER ON GO -- ============================================= -- Author: -- Create date: -- Description: -- ============================================= CREATE PROCEDURE [dbo].[CreateTable] AS BEGIN declare @sid varchar(10); declare @qd int;declare @qt int;declare @i int declare @j int;declare @str varchar(max);declare @num int;declare @createtable varchar(max) set @num=0 select top 1 @sid=SID from Questionnaire order by SID desc IF not EXISTS (SELECT name FROM sysobjects WHERE name ='answer'+@sid ) begin --begin0开始 /*----------创建表和非题目字段-----------------*/ set @createtable= 'create table answer'+@sid+' (AID int identity(1,1) primary key, UID varchar(MAX), ADateTime datetime)' exec(@createtable) /*----------创建表和非题目字段结束-----------------*/ declare cursor_find cursor for select QID,Qtype from Question where SID=@sid open cursor_find fetch cursor_find into @qd,@qt while @@fetch_status=0 begin ------循环遍历每条记录begin1开始 set @num=@num+1 if(@qt=5) ---对多选进行处理begin2开始 begin set @j=1 select @i=count(*) from [Option] where QID=@qd while(@j<=@i) begin ---解决多选的选项 begin3开始 set @createtable='alter table answer'+@sid+' add Q'+convert(varchar(50),@num)+'0'+convert(varchar(50),@j)+' varchar(max)' exec( @createtable) --print 'Q'+convert(varchar(50),@num)+'0'+convert(varchar(50),@j) set @j=@j+1 end ---begin3结束 end ----begin2结束 else if(@qt=6) ---对多选加文本的处理 begin set @j=1 select @i=count(*) from [Option] where QID=@qd while(@j<=@i+1) begin if(@j=@i+1) begin set @createtable='alter table answer'+@sid+' add Q'+'txt'+convert(varchar(50),@num)+' text' exec( @createtable) end else begin set @createtable='alter table answer'+@sid+' add Q'+convert(varchar(50),@num)+'0'+convert(varchar(50),@j)+' varchar(max)' exec( @createtable) --print 'Q'+convert(varchar(50),@num)+'0'+convert(varchar(50),@j) end set @j=@j+1 end end else if(@qt=4)---对单选加文本的处理 begin ---添加代码 set @createtable='alter table answer'+@sid+' add Q'+convert(varchar(50),@num)+' varchar(max)' exec( @createtable) set @createtable='alter table answer'+@sid+' add Q'+'txt'+convert(varchar(50),@num)+' text' exec( @createtable) end else --处理非多选项begin4开始 begin set @createtable='alter table answer'+@sid+' add Q'+convert(varchar(50),@num)+' varchar(max)' exec( @createtable) end ---begin4结束 fetch cursor_find into @qd,@qt end ---begin1结束 close cursor_find deallocate cursor_find end --begin0结束 END