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显然不具有优势。 现在是在考虑:如果写到服务器端,我一下搞他个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实在叫无知。 呵呵，这就是偶想说的
页:
[1]