分享一点点代码。

pt1314917 2011-02-20 04:36:47

在开发小项目时，经常会遇到很多的对表的增删改查操作，无外乎就是些增删改查的存储过程和c#调用代码。这些很大程度上都差不多，不厌其烦，用代码生成器，有时候又觉得不太灵活。有很多地方还要改动，比较麻烦。所以就偷了个懒，自己写了个存储过程，专门用来自动生成这些代码。分享下，如果大家在使用过程中发现有不好的地方，也可以指出来，好改正改正。。。

存储过程比较长，可能要分几次贴出。。。




 -- =============================================

-- Author:		shipeng.wang

-- Create date: 2010-12-31

-- Description:	根据表名，自动生成增、删、改参数化存储过程和调用代码

-- =============================================

create proc [dbo].[sp_SendCode]

@tablename varchar(20),  --表名

@type int=1,			 --类型（1：存储过程，2：调用代码）

@opertype int=1,         --操作类型（1：查，2：增，3：改，4：删）

@fields varchar(2000)='*',--要操作的列（查、增、改时有效，默认操作所有列，多个列用英文逗号隔开）

@where varchar(500)=''   --要作为条件的列（查、改、删时有效，默认为空，多个列名用英文逗号隔开，如：字段1,字段2，其中主键列可以省略）

as

	--不返回受影响的行数，提高性能

	set nocount on

	

	--分别定义主键列,主键列是否自增列,主键列的类型,最后要生成的代码

	declare @keyfield varchar(20),@iden int,@partype varchar(20),@code varchar(4000)

	select @keyfield=c.name,@iden=c.is_identity,@partype=d.name from sys.indexes a,sys.index_columns b,sys.columns c,systypes d

	where  a.object_id=b.object_id and a.index_id=b.index_id and a.object_id=c.object_id and c.user_type_id=d.xtype

	and b.column_id=c.column_id and a.is_primary_key=1 and d.status=0

	and a.object_id=OBJECT_ID(@tablename) 

	

	--查询时，是否只返回实体对象(1:是，0:不是)

	declare @isflag bit

	set @isflag=0 

	if(@where=@keyfield)

		set @isflag=1

	

	--进行非空处理

	if(not exists(select 1 from sysobjects where id=OBJECT_ID(@tablename)))

	begin

		print '请输入正确的表名！'

		return

	end

	

	--修改的列集合

	declare @updatefields varchar(1000)

	set @updatefields=''

	

	--如果指定了要操作的列，进行校验。防止出现错误列

	if(@fields!='' and @fields!='*')

	begin

		declare @oldfields varchar(200)

		set @fields=REPLACE(@fields,'，',',')

		if(right(@fields,1)!=',')

			set @fields=@fields+','

		set @oldfields=@fields

		set @fields='' 

		--遍历，筛选出@fields中的有效列

		while(CHARINDEX(',',@oldfields)>0)

		begin

			--获取到字段名

			declare @tempf varchar(50) 

			set @tempf=SUBSTRING(@oldfields,1,charindex(',',@oldfields)-1)

			if exists(select 1 from syscolumns where id=OBJECT_ID(@tablename) and name=@tempf)

			begin

				set @fields=@fields+@tempf+','

				set @updatefields=@updatefields+@tempf+'=@'+@tempf+','

			end

			set @oldfields=SUBSTRING(@oldfields,charindex(',',@oldfields)+1,LEN(@oldfields))

		end

	end

	--如果没有有效字段，或是操作所有字段

	if(@fields='*' or @fields='')

	begin

		set @fields=''

		select @fields=@fields+name+',',@updatefields=@updatefields+case when name!=@keyfield then name+'=@'+name+',' else '' end  

		from syscolumns where id=OBJECT_ID(@tablename)

	end

	

	if(@updatefields!='')

		set @updatefields=STUFF(@updatefields,LEN(@updatefields),1,'')

	

	--保存条件

	declare @tempwhere varchar(200)

	set @tempwhere=''

	--如果有条件时，也对条件进行相同处理

	if(@where!='')

	begin

		declare @oldwhere varchar(200),@tempfield varchar(50) 

		set @where=REPLACE(@where,'，',',')

		if(right(@where,1)!=',')

			set @where=@where+','

		set @oldwhere=@where

		set @where='' 

		--遍历，筛选出@fields中的有效列

		while(CHARINDEX(',',@oldwhere)>0)

		begin

			set @tempfield=SUBSTRING(@oldwhere,1,charindex(',',@oldwhere)-1)

			if exists(select 1 from syscolumns where id=OBJECT_ID(@tablename) and name=@tempfield)

			begin

				set @tempwhere=@tempwhere+@tempfield+','

				set @where=@where+' and '+@tempfield+'=@'+@tempfield

			end

			set @oldwhere=SUBSTRING(@oldwhere,charindex(',',@oldwhere)+1,LEN(@oldwhere))

		end

	end

	if(@where='' and (@opertype=3 or @opertype=4))

	begin

		--如果没有有效条件，则将主键作为条件

		set @tempwhere=@keyfield+','

		set @where=' and '+@keyfield+'=@'+@keyfield

	end

	

	--生成存储过程

	if(@type=1)

	begin

		--增加时，如果操作列中 存在主键列，并且主键列为自增列时，排除该列

		if(@opertype=2 and CHARINDEX(@keyfield,@fields)>0 and @iden=1)

		begin

			set @fields=stuff(@fields,charindex(@keyfield+',',@fields),LEN(@keyfield+','),'')

		end

		set @fields=stuff(@fields,LEN(@fields),1,'')

		

		--生成存储过程的参数声明

		declare @paras varchar(1000)

		--生成存储过程

		if(@opertype=1) --查询

		begin

			--根据条件来生成

			select @paras=ISNULL(@paras+',' + CHAR(13),'')+'@'+a.name+' '+b.name

			+case when b.name in('varchar','nvarchar','char','nchar') then '('+LTRIM(a.length)+')' else '' end

			 from syscolumns a,systypes b

			where a.id=OBJECT_ID(@tablename) and a.xtype=b.xtype and CHARINDEX(','+a.name+',',','+@tempwhere+',')>0

			and b.status=0

			set @code ='/*-- ============================================='+CHAR(13)+

					   '-- Author:		shipeng.wang'+CHAR(13)+

					   '-- Create date: '+CONVERT(varchar(10),getdate(),120)+CHAR(13)+

					   '-- Description:	对表'+@tablename+'中数据进行查询'+CHAR(13)+

					   '-- =============================================*/'+CHAR(13)

			

			set @code=@code+'create proc [sp_'+@tablename+'_select'+case @isflag when 0 then '' else '_one' end +']'+CHAR(13)+isnull(@paras+ CHAR(13),'')

					 +'as'+CHAR(13)

					 +CHAR(9)+'select '+@fields+' from ['+@tablename +'] where 1=1'+ @where

					 +CHAR(13)

		end

		else if(@opertype=2)--增加

		begin

			--根据添加的字段来生成

			select @paras=ISNULL(@paras+',' + CHAR(13),'')+'@'+a.name+' '+b.name

			+case when b.name in('varchar','nvarchar','char','nchar') then '('+LTRIM(a.length)+')' else '' end

			 from syscolumns a,systypes b

			where a.id=OBJECT_ID(@tablename) and a.xtype=b.xtype and CHARINDEX(','+a.name+',',','+@fields+',')>0

			and b.status=0

			set @code ='/*-- ============================================='+CHAR(13)+

					   '-- Author:		shipeng.wang'+CHAR(13)+

					   '-- Create date: '+CONVERT(varchar(10),getdate(),120)+CHAR(13)+

					   '-- Description:	对表'+@tablename+'中数据进行添加'+CHAR(13)+

					   '-- =============================================*/'+CHAR(13)

			set @code=@code+'create proc [sp_'+@tablename+'_insert]'+CHAR(13)+isnull(@paras+ CHAR(13),'')

					 +'as'+CHAR(13)

					 +CHAR(9)+'insert into ['+@tablename +'] ('+@fields+') values(@'+REPLACE(@fields,',',',@')+')'

					 +CHAR(13)

		end

		else if(@opertype=3) -- 修改

		begin

			

			--如果没有有效条件，则将主键作为条件

			if(@where='')

			begin

				set @tempwhere=@keyfield

				set @where=' and '+@keyfield+'=@'+@keyfield

			end

		

			--根据添加的字段和条件来生成

			select @paras=ISNULL(@paras+',' + CHAR(13),'')+'@'+a.name+' '+b.name

			+case when b.name in('varchar','nvarchar','char','nchar') then '('+LTRIM(a.length)+')' else '' end

			 from syscolumns a,systypes b

			where a.id=OBJECT_ID(@tablename) and a.xtype=b.xtype and (CHARINDEX(','+a.name+',',','+@fields+',')>0 or CHARINDEX(','+a.name+',',','+@tempwhere+',')>0)

			and b.status=0

			set @code ='/*-- ============================================='+CHAR(13)+

					   '-- Author:		shipeng.wang'+CHAR(13)+

					   '-- Create date: '+CONVERT(varchar(10),getdate(),120)+CHAR(13)+

					   '-- Description:	对表'+@tablename+'中数据进行修改'+CHAR(13)+

					   '-- =============================================*/'+CHAR(13)

			set @code=@code+'create proc [sp_'+@tablename+'_update]'+CHAR(13)+isnull(@paras+ CHAR(13),'')

					 +'as'+CHAR(13)

					 +CHAR(9)+'update ['+@tablename +'] set '+@updatefields+' where 1=1'+@where

					 +CHAR(13)

		end

		else if(@opertype=4)

		begin

			

			--根据条件来生成

			select @paras=ISNULL(@paras+',' + CHAR(13),'')+'@'+a.name+' '+b.name

			+case when b.name in('varchar','nvarchar','char','nchar') then '('+LTRIM(a.length)+')' else '' end

			 from syscolumns a,systypes b

			where a.id=OBJECT_ID(@tablename) and a.xtype=b.xtype and CHARINDEX(','+a.name+',',','+@tempwhere+',')>0

			and b.status=0

			

			set @code ='/*-- ============================================='+CHAR(13)+

					   '-- Author:		shipeng.wang'+CHAR(13)+

					   '-- Create date: '+CONVERT(varchar(10),getdate(),120)+CHAR(13)+

					   '-- Description:	对表'+@tablename+'中数据进行删除'+CHAR(13)+

					   '-- =============================================*/'+CHAR(13)

			set @code=@code+'create proc [sp_'+@tablename+'_delete]'+CHAR(13)+isnull(@paras+ CHAR(13),'')

					 +'as'+CHAR(13)

					 +CHAR(9)+'delete ['+@tablename +'] where 1=1'+@where

					 +CHAR(13)

		end

	end
...全文
1960 60 打赏 收藏 转发到动态 举报
写回复
用AI写文章
60 条回复
切换为时间正序
请发表友善的回复…
发表回复
ruoxiaohan 2011-07-31
  • 打赏
  • 举报
 回复
下载链接在那啊！
General_Y 2011-06-13
  • 打赏
  • 举报
 回复
好东西，谢谢楼主了
wuhua007 2011-03-15
  • 打赏
  • 举报
 回复
楼主真牛。谢谢分享！！！！！
乐CC 2011-02-28
  • 打赏
  • 举报
 回复
楼主有心，想当年我用C#连Oracle的时候，新增表后台处理要定义数据结构来存储读取，所以也写过一个自动连接数据库生成结构体定义的工具，不过现在不用C#和Oracle了，都忘了，哈哈~
jinqilin1982 2011-02-28
  • 打赏
  • 举报
 回复
楼主真牛！相当不错
风中追梦郎 2011-02-26
  • 打赏
  • 举报
 回复
支持楼主分享。
comrdliyang 2011-02-26
  • 打赏
  • 举报
 回复
不知能否重用！顶下！
zengdeng888 2011-02-26
  • 打赏
  • 举报
 回复
好长的代码
Delta 2011-02-26
  • 打赏
  • 举报
 回复
[Quote=引用 8 楼 phil999 的回复:]
友情UP
[/Quote].......................
zhaoqiliang527 2011-02-26
  • 打赏
  • 举报
 回复
收藏啦！
sfxdawn 2011-02-26
  • 打赏
  • 举报
 回复
多謝分享。
chensheng2611 2011-02-26
  • 打赏
  • 举报
 回复
太长，先分了再说。谢谢lz
skyaspnet 2011-02-26
  • 打赏
  • 举报
 回复
看看。。
qingYun1029 2011-02-25
  • 打赏
  • 举报
 回复
必须顶！！！

多谢分享！！！
duyongjiu9 2011-02-25
  • 打赏
  • 举报
 回复
NB啊LZ 自己写来的最实用
xiongxyt2 2011-02-25
  • 打赏
  • 举报
 回复
收藏,谢谢楼主.
wasd123qe 2011-02-25
  • 打赏
  • 举报
 回复
123
解释多余的 2011-02-25
  • 打赏
  • 举报
 回复
收藏了，谢谢分享！
lijianli9 2011-02-24
  • 打赏
  • 举报
 回复
谢谢lz共享哦。
austin_luotuo 2011-02-24
  • 打赏
  • 举报
 回复
王sir，还没有变懒嘛！跟你顶下。
顶
要顶
必须顶
不得不顶
用尽全力顶
再加上千斤顶
总之把它顶到顶
接着使出葵花宝顶
就算顶到史前也要顶
老子看了会用道德经顶
孔子亲自拜你为师天天顶
秦始皇站在阿房宫上使劲顶
汉高祖挥师杀向东罗马为你顶
吕布抛弃了貂禅而选择了帮你顶
张三丰见了后用太极拳九式全力顶
左冷禅召开武林盟主大会商讨如何顶
西门吹雪从此学会了最强一招剑神一顶
龙剑飞的如来神掌最后一式改为万佛朝顶
陆小凤从此再也不管闲事了而专门来为你顶
四大名捕四面出击看天下还有没有人敢不在顶
加载更多回复（40）
百度分享代码--一键分享Baidu Share BEGIN
http://share.baidu.com/code/advance 一、概述 百度分享代码已升级到2.0，本页将介绍新版百度分享的安装配置方法，请点击左侧列表查看相关章节。 二、代码结构 分享代码可以分为三个部分：HTML、设置和js加载，示例如下： 代码结构如下： 展示按钮 --> window._bd_share_config = {
微信H5分享 代码和详细配置步骤 js + Java 代码
正常分享状态显示： 分享异常状态显示： 一切变得那么的。。。无助！！！ 开始以为在H5页面上添加一些东西即可，后来发现，完全不是自己想象的那个样子。 这个东西，对于一个从未用过微信JS的码农来说，或许要被带坑里去卡个几天！！！ 以下是本人的一点点经验拿来和各位分享，希望刚接触到的少走一些弯路！   思路： 1.需要公众号一个，得到appid，appkey等等 2.需要在H...
java整人代码大全_整人代码vbs大全分享
整人代码vbs大全分享vbs制作方法1、在记事本中粘贴vbs代码；2、另存为vbs文件，双击即可运行。以下是分享的一些代码重要提示：关机和死机的代码自己玩玩就可以了，发给别人实在有点缺德，万一别人有重要的东西没保存自己可能要负相应的后果。一、做我女朋友吗，告白(抖音里很火的)无危害msgbox("做我女朋友可以吗？")msgbox("房产证上写你名")msgbox("保大")msgbox("我妈会...
跳一跳html小游戏代码,100 行代码实现『跳一跳』辅助
原标题：100 行代码实现『跳一跳』辅助 作者：学数学的程序猿来源：http://www.cnblogs.com/dongkuo/p/8285162.html写在前面好久没写博客了，今天来一发吧。分享一下今天下午用python写的"跳一跳"小游戏的辅助程序。之前是准备用树莓派操控一个"机械手指"来代替人的触摸操作，但该方案还在酝酿中，实现了再分享。接下来要分享的是用"纯软件"的方法来玩"跳一跳"。...
IT技术分享的一点点总结
写在前面几乎所有的技术团队都在进行技术分享，有时组织分享总觉得不够好，总想把技术分享做得更好一些。本篇总结了我们团队技术分享的过程，帮助团队提高技术分享质量。若有更好的提升建议，欢迎留言交流。为什么要做技术分享技术分享的好处多多，这里就简单写几个；扩大知识领域，能有更广的知识储备快速了解新知识使原本会的知识更扎实完善知识体系给队员一个展示自我的机会组建学习型技术团队，使公司更有竞争力留下文字或者影...
非技术区

7,765

社区成员

63,203

社区内容

发帖
与我相关
我的任务
社区描述
.NET技术 非技术区
社区管理员
  • 非技术区社区
加入社区
  • 近7日
  • 近30日
  • 至今

加载中

查看更多榜单
社区公告
暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章