不帅 发表于 2015-1-16 22:53:24

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.,)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显然不具有优势。

谁可相欹 发表于 2015-1-20 05:52:09

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

仓酷云 发表于 2015-1-28 19:31:26

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

乐观 发表于 2015-2-5 22:40:07

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

冷月葬花魂 发表于 2015-2-14 00:16:11

呵呵,这就是偶想说的

不帅 发表于 2015-3-4 03:22:04

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

admin 发表于 2015-3-11 15:50:48

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

再见西城 发表于 2015-3-19 01:37:47

光写几个SQL实在叫无知。

第二个灵魂 发表于 2015-3-27 02:17:58

呵呵,这就是偶想说的
页: [1]
查看完整版本: MYSQL网页编程之保藏几段SQL Server语句和存储历程