MYSQL网页编程之保藏几段SQL Server语句和存储历程

到2009年，甲骨文的数据库Oracle已经诞生了30周年，而MySQL却连它的一半时间都没有。微软的SQLServer仅仅比MySQL大两年，但是SQLServer的发布是建立在Sybase的基础上。server|存储历程|语句
保藏几段SQLServer语句和存储历程



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

--列出SQLSERVER一切表，字段名，主键，范例，长度，小数位数等信息

--在查询剖析器里运转便可,能够天生一个表，导出到EXCEL中

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

SELECT

(casewhena.colorder=1thend.nameelseend)表名,

a.colorder字段序号,

a.name字段名,

(casewhenCOLUMNPROPERTY(a.id,a.name,IsIdentity)=1then√elseend)标识,

(casewhen(SELECTcount(*)

FROMsysobjects

WHERE(namein

(SELECTname

FROMsysindexes

WHERE(id=a.id)AND(indidin

(SELECTindid

FROMsysindexkeys

WHERE(id=a.id)AND(colidin

(SELECTcolid

FROMsyscolumns

WHERE(id=a.id)AND(name=a.name)))))))AND

(xtype=PK))>0then√elseend)主键,

b.name范例,

a.length占用字节数,

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

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

(casewhena.isnullable=1then√elseend)同意空,

isnull(e.text,)默许值,

isnull(g.[value],)AS字段申明



FROMsyscolumnsaleftjoinsystypesb

ona.xtype=b.xusertype

innerjoinsysobjectsd

ona.id=d.idandd.xtype=Uandd.namedtproperties

leftjoinsyscommentse

ona.cdefault=e.id

leftjoinsyspropertiesg

ona.id=g.idANDa.colid=g.smallid

orderbya.id,a.colorder

-------------------------------------------------------------------------------------------------













列出SQLSERVER一切表、字段界说，范例，长度，一个值等信息

并导出到Excel中

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

--Exportallusertablesdefinitionandonesamplevalue

--jan-13-2003,Dr.Zhang

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

在查询剖析器里运转：

SETANSI_NULLSOFF

GO

SETNOCOUNTON

GO



SETLANGUAGESimplifiedChinese

go

DECLARE@tblnvarchar(200),@fldnvarchar(200),@sqlnvarchar(4000),@maxlenint,@samplenvarchar(40)



SELECTd.nameTableName,a.nameFieldName,b.nameTypeName,a.lengthLength,a.isnullableIS_NULLINTO#t

FROMsyscolumnsa,systypesb,sysobjectsd

WHEREa.xtype=b.xusertypeanda.id=d.idandd.xtype=U



DECLAREread_cursorCURSOR

FORSELECTTableName,FieldNameFROM#t



SELECTTOP1_TableNameTableName,

FieldNameFieldName,TypeNameTypeName,

LengthLength,IS_NULLIS_NULL,

MaxLenUsedASMaxLenUsed,SampleValueSample,

CommentCommentINTO#tcFROM#t



OPENread_cursor



FETCHNEXTFROMread_cursorINTO@tbl,@fld

WHILE(@@fetch_status-1)---failes

BEGIN

IF(@@fetch_status-2)--Missing

BEGIN

SET@sql=NSET@maxlen=(SELECTmax(len(cast(+@fld+asnvarchar)))FROM+@tbl+)

--PRINT@sql

EXECSP_EXECUTESQL@sql,N@maxlenintOUTPUT,@maxlenOUTPUT

--print@maxlen

SET@sql=NSET@sample=(SELECTTOP1cast(+@fld+asnvarchar)FROM+@tbl+WHERElen(cast(+@fld+asnvarchar))=+convert(nvarchar(5),@maxlen)+)

EXECSP_EXECUTESQL@sql,N@samplevarchar(30)OUTPUT,@sampleOUTPUT

--forquickly

--SET@sql=NSET@sample=convert(varchar(20),(SELECTTOP1+@fld+FROM+

--@tbl+orderby1desc))

PRINT@sql

print@sample

print@tbl

EXECSP_EXECUTESQL@sql,N@samplenvarchar(30)OUTPUT,@sampleOUTPUT

INSERTINTO#tcSELECT*,ltrim(ISNULL(@maxlen,0))asMaxLenUsed,

convert(nchar(20),ltrim(ISNULL(@sample,)))asSample,CommentFROM#twhereTableName=@tblandFieldName=@fld

END

FETCHNEXTFROMread_cursorINTO@tbl,@fld

END



CLOSEread_cursor

DEALLOCATEread_cursor

GO



SETANSI_NULLSON

GO

SETNOCOUNTOFF

GO

selectcount(*)from#t

DROPTABLE#t

GO



selectcount(*)-1from#tc



select*into##txfrom#tcorderbytablename

DROPTABLE#tc



--select*from##tx



declare@dbnvarchar(60),@sqlnvarchar(3000)

set@db=db_name()

--请修正用户名和口令导出到Excel中

set@sql=execmaster.dbo.xp_cmdshellbcp..dbo.##txoutc:+@db+_exp.xls-w-C936-Usa-Psa

print@sql

exec(@sql)

GO

DROPTABLE##tx

GO







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

--依据表中数据天生insert语句的存储历程

--创建存储历程，实行spGenInsertSQL表名

--感激playyuer

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

CREATEprocspGenInsertSQL(@tablenamevarchar(256))



as

begin

declare@sqlvarchar(8000)

declare@sqlValuesvarchar(8000)

set@sql=(

set@sqlValues=values(+

select@sqlValues=@sqlValues+cols++,+,@sql=@sql+[+name+],

from

(selectcase

whenxtypein(48,52,56,59,60,62,104,106,108,122,127)

thencasewhen+name+isnullthenNULLelse+cast(+name+asvarchar)+end

whenxtypein(58,61)

thencasewhen+name+isnullthenNULLelse+++cast(+name+asvarchar)+++end

whenxtypein(167)

thencasewhen+name+isnullthenNULLelse+++replace(+name+,,)+++end

whenxtypein(231)

thencasewhen+name+isnullthenNULLelse+N++replace(+name+,,)+++end

whenxtypein(175)

thencasewhen+name+isnullthenNULLelse+++cast(replace(+name+,,)asChar(+cast(lengthasvarchar)+))++end

whenxtypein(239)

thencasewhen+name+isnullthenNULLelse+N++cast(replace(+name+,,)asChar(+cast(lengthasvarchar)+))++end

elseNULL

endasCols,name

fromsyscolumns

whereid=object_id(@tablename)

)T

set@sql=selectINSERTINTO[+@tablename+]+left(@sql,len(@sql)-1)+)+left(@sqlValues,len(@sqlValues)-4)+)from+@tablename

--print@sql

exec(@sql)

end



GO







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

--依据表中数据天生insert语句的存储历程

--创建存储历程，实行proc_insert表名

--感激Sky_blue

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



CREATEprocproc_insert(@tablenamevarchar(256))

as

begin

setnocounton

declare@sqlstrvarchar(4000)

declare@sqlstr1varchar(4000)

declare@sqlstr2varchar(4000)

select@sqlstr=selectinsert+@tablename

select@sqlstr1=

select@sqlstr2=(

select@sqlstr1=values(+

select@sqlstr1=@sqlstr1+col++,+,@sqlstr2=@sqlstr2+name+,from(selectcase

--whena.xtype=173thencasewhen+a.name+isnullthenNULLelse+convert(varchar(+convert(varchar(4),a.length*2+2)+),+a.name+)+end

whena.xtype=104thencasewhen+a.name+isnullthenNULLelse+convert(varchar(1),+a.name+)+end

whena.xtype=175thencasewhen+a.name+isnullthenNULLelse+++replace(+a.name+,,)+++end

whena.xtype=61thencasewhen+a.name+isnullthenNULLelse+++convert(varchar(23),+a.name+,121)+++end

whena.xtype=106thencasewhen+a.name+isnullthenNULLelse+convert(varchar(+convert(varchar(4),a.xprec+2)+),+a.name+)+end

whena.xtype=62thencasewhen+a.name+isnullthenNULLelse+convert(varchar(23),+a.name+,2)+end

whena.xtype=56thencasewhen+a.name+isnullthenNULLelse+convert(varchar(11),+a.name+)+end

whena.xtype=60thencasewhen+a.name+isnullthenNULLelse+convert(varchar(22),+a.name+)+end

whena.xtype=239thencasewhen+a.name+isnullthenNULLelse+++replace(+a.name+,,)+++end

whena.xtype=108thencasewhen+a.name+isnullthenNULLelse+convert(varchar(+convert(varchar(4),a.xprec+2)+),+a.name+)+end

whena.xtype=231thencasewhen+a.name+isnullthenNULLelse+++replace(+a.name+,,)+++end

whena.xtype=59thencasewhen+a.name+isnullthenNULLelse+convert(varchar(23),+a.name+,2)+end

whena.xtype=58thencasewhen+a.name+isnullthenNULLelse+++convert(varchar(23),+a.name+,121)+++end

whena.xtype=52thencasewhen+a.name+isnullthenNULLelse+convert(varchar(12),+a.name+)+end

whena.xtype=122thencasewhen+a.name+isnullthenNULLelse+convert(varchar(22),+a.name+)+end

whena.xtype=48thencasewhen+a.name+isnullthenNULLelse+convert(varchar(6),+a.name+)+end

--whena.xtype=165thencasewhen+a.name+isnullthenNULLelse+convert(varchar(+convert(varchar(4),a.length*2+2)+),+a.name+)+end

whena.xtype=167thencasewhen+a.name+isnullthenNULLelse+++replace(+a.name+,,)+++end

elseNULL

endascol,a.colid,a.name

fromsyscolumnsawherea.id=object_id(@tablename)anda.xtype189anda.xtype34anda.xtype35anda.xtype36

)torderbycolid



select@sqlstr=@sqlstr+left(@sqlstr2,len(@sqlstr2)-1)+)+left(@sqlstr1,len(@sqlstr1)-3)+)from+@tablename

--print@sqlstr

exec(@sqlstr)

setnocountoff

end

GO
不可否认，MySQL也是一个很好的关系型数据库，或许在技术上它与其他领先的关系数据库相差并不大，或不具有劣势。但是，对于一些企业环境来说，MySQL显然不具有优势。

现在是在考虑:如果写到服务器端,我一下搞他个10个存储过程导过去,那久之服务器不就成垃圾箱了吗?即便优化了我的中间层.

仓酷云

SP4包括用于以下SQLServer2000组件的程序包：Database组件（下载文件：SQL2000-KB884525-SP4-x86.EXE）更新SQLServer2000的32位Database组件，包括数据库引擎、复制、客户端连接组件及工具。有关其他信息，请参阅ReadmeSql2k32Sp4.htm。AnalysisServices组件（下载文件：SQL2000.AS-KB884525-SP4-x86.EXE）更新SQLServer2000的32位AnalysisServices。

在select语句中可以使用groupby子句将行划分成较小的组，然后，使用聚组函数返回每一个组的汇总信息，另外，可以使用having子句限制返回的结果集。

呵呵，这就是偶想说的

财务软件要用SQL也只是后台的数据库而已,软件都是成品的,当然多学东西肯定是有好处的..

可以动态传入参数，省却了动态SQL的拼写。

光写几个SQL实在叫无知。

呵呵，这就是偶想说的