|
|
 |
专题栏目 |
 |
|
相关文章 |
|
|
|
|
|
 |
收藏几段SQL Server语句和存储过程 |
热 |
|
| 收藏几段SQL Server语句和存储过程 |
|
作者：mxfhhh 文章来源：不详 点击数： 更新时间：2007-11-14 13:07:37  |
|
|
--列出SQL SERVER 所有表，字段名，主键，类型，长度，小数位数等信息 --在查询分析器里运行即可,可以生成一个表，导出到EXCEL中 -- ====================================================== SELECT (case when a.colorder=1 then d.name else '''''''' end)表名, a.colorder 字段序号, a.name 字段名, (case when COLUMNPROPERTY( a.id,a.name,''''IsIdentity'''')=1 then ''''√''''else '''''''' end) 标识, (case when (SELECT count(*) FROM sysobjects WHERE (name in (SELECT name FROM sysindexes WHERE (id = a.id) AND (indid in (SELECT indid FROM sysindexkeys WHERE (id = a.id) AND (colid in (SELECT colid FROM syscolumns WHERE (id = a.id) AND (name = a.name))))))) AND (xtype = ''''PK''''))>0 then ''''√'''' else '''''''' end) 主键, b.name 类型, a.length 占用字节数, COLUMNPROPERTY(a.id,a.name,''''PRECISION'''') as 长度, isnull(COLUMNPROPERTY(a.id,a.name,''''Scale''''),0) as 小数位数, (case when a.isnullable=1 then ''''√''''else '''''''' end) 允许空, isnull(e.text,'''''''') 默认值, isnull(g.[value],'''''''') AS 字段说明 FROM syscolumns a left join systypes b on a.xtype=b.xusertype inner join sysobjects d on a.id=d.id and d.xtype=''''U'''' and d.name<>''''dtproperties'''' left join syscomments e on a.cdefault=e.id left join sysproperties g on a.id=g.id AND a.colid = g.smallid order by a.id,a.colorder ------------------------------------------------------------------------------------------------- 列出SQL SERVER 所有表、字段定义，类型，长度，一个值等信息 并导出到Excel 中 -- ====================================================== -- Export all user tables definition and one sample value -- jan-13-2003,Dr.Zhang -- ====================================================== 在查询分析器里运行： SET ANSI_NULLS OFF GO SET NOCOUNT ON GO SET LANGUAGE ''''Simplified Chinese'''' go DECLARE @tbl nvarchar(200),@fld nvarchar(200),@sql nvarchar(4000),@maxlen int,@sample nvarchar(40) SELECT d.name TableName,a.name FieldName,b.name TypeName,a.length Length,a.isnullable IS_NULL INTO #t FROM syscolumns a, systypes b,sysobjects d WHERE a.xtype=b.xusertype and a.id=d.id and d.xtype=''''U'''' DECLARE read_cursor CURSOR FOR SELECT TableName,FieldName FROM #t SELECT TOP 1 ''''_TableName '''' TableName, ''''FieldName '''' FieldName,''''TypeName '''' TypeName, ''''Length'''' Length,''''IS_NULL'''' IS_NULL, ''''MaxLenUsed'''' AS MaxLenUsed,''''Sample Value '''' Sample, ''''Comment '''' Comment INTO #tc FROM #t OPEN read_cursor FETCH NEXT FROM read_cursor INTO @tbl,@fld WHILE (@@fetch_status <> -1) --- failes BEGIN IF (@@fetch_status <> -2) -- Missing BEGIN SET @sql=N''''SET @maxlen=(SELECT max(len(cast(''''+@fld+'''' as nvarchar))) FROM ''''+@tbl+'''')'''' --PRINT @sql EXEC SP_EXECUTESQL @sql,N''''@maxlen int OUTPUT'''',@maxlen OUTPUT --print @maxlen SET @sql=N''''SET @sample=(SELECT TOP 1 cast(''''+@fld+'''' as nvarchar) FROM ''''+@tbl+'''' WHERE len(cast(''''+@fld+'''' as nvarchar))=''''+convert(nvarchar(5),@maxlen)+'''')'''' EXEC SP_EXECUTESQL @sql,N''''@sample varchar(30) OUTPUT'''',@sample OUTPUT --for quickly --SET @sql=N''''SET @sample=convert(varchar(20),(SELECT TOP 1 ''''+@fld+'''' FROM ''''+ --@tbl+'''' order by 1 desc ))'''' PRINT @sql print @sample print @tbl EXEC SP_EXECUTESQL @sql,N''''@sample nvarchar(30) OUTPUT'''',@sample OUTPUT INSERT INTO #tc SELECT *,ltrim(ISNULL(@maxlen,0)) as MaxLenUsed, convert(nchar(20),ltrim(ISNULL(@sample,'''' ''''))) as Sample,'''' '''' Comment FROM #t where TableName=@tbl and FieldName=@fld END FETCH NEXT FROM read_cursor INTO @tbl,@fld END CLOSE read_cursor DEALLOCATE read_cursor GO SET ANSI_NULLS ON GO SET NOCOUNT OFF GO select count(*) from #t DROP TABLE #t GO select count(*)-1 from #tc select * into ##tx from #tc order by tablename DROP TABLE #tc --select * from ##tx declare @db nvarchar(60),@sql nvarchar(3000) set @db=db_name() --请修改用户名和口令 导出到Excel 中 set @sql=''''exec master.dbo.xp_cmdshell ''''''''bcp ..dbo.##tx out c:\''''+@db+''''_exp.xls -w -C936 -Usa -Psa '''''''''''' print @sql exec(@sql) GO DROP TABLE ##tx GO -- ====================================================== --根据表中数据生成insert语句的存储过程 --建立存储过程，执行 spGenInsertSQL 表名 --感谢playyuer -- ====================================================== CREATE proc spGenInsertSQL (@tablename varchar(256)) as begin declare @sql varchar(8000) declare @sqlValues varchar(8000) set @sql ='''' ('''' set @sqlValues = ''''values (''''''''+'''' select @sqlValues = @sqlValues + cols + '''' + '''''''','''''''' + '''' ,@sql = @sql + ''''['''' + name + ''''],'''' from (select case when xtype in (48,52,56,59,60,62,104,106,108,122,127) then ''''case when ''''+ name +'''' is null then ''''''''NULL'''''''' else '''' + ''''cast(''''+ name + '''' as varchar)''''+'''' end'''' when xtype in (58,61) then ''''case when ''''+ name +'''' is null then ''''''''NULL'''''''' else ''''+'''''''''''''''''''''''''''''''''''' + '''' + ''''cast(''''+ name +'''' as varchar)''''+ ''''+''''''''''''''''''''''''''''''''''''+'''' end'''' when xtype in (167) then ''''case when ''''+ name +'''' is null then ''''''''NULL'''''''' else ''''+'''''''''''''''''''''''''''''''''''' + '''' + ''''replace(''''+ name+'''','''''''''''''''''''''''''''''''','''''''''''''''''''''''''''''''''''''''''''''''')'''' + ''''+''''''''''''''''''''''''''''''''''''+'''' end'''' when xtype in (231) then ''''case when ''''+ name +'''' is null then ''''''''NULL'''''''' else ''''+''''''''''''N'''''''''''''''''''''''' + '''' + ''''replace(''''+ name+'''','''''''''''''''''''''''''''''''','''''''''''''''''''''''''''''''''''''''''''''''')'''' + ''''+''''''''''''''''''''''''''''''''''''+'''' end'''' when xtype in (175) then ''''case when ''''+ name +'''' is null then ''''''''NULL'''''''' else ''''+'''''''''''''''''''''''''''''''''''' + '''' + ''''cast(replace(''''+ name+'''','''''''''''''''''''''''''''''''','''''''''''''''''''''''''''''''''''''''''''''''') as Char('''' + cast(length as varchar) + ''''))+''''''''''''''''''''''''''''''''''''+'''' end'''' when xtype in (239) then ''''case when ''''+ name +'''' is null then ''''''''NULL'''''''' else ''''+''''''''''''N'''''''''''''''''''''''' + '''' + ''''cast(replace(''''+ name+'''','''''''''''''''''''''''''''''''','''''''''''''''''''''''''''''''''''''''''''''''') as Char('''' + cast(length as varchar) + ''''))+''''''''''''''''''''''''''''''''''''+'''' end'''' else ''''''''''''NULL'''''''''''' end as Cols,name from syscolumns where id = object_id(@tablename) ) T set @sql =''''select ''''''''INSERT INTO [''''+ @tablename + '''']'''' + left(@sql,len(@sql)-1)+'''') '''' + left(@sqlValues,len(@sqlValues)-4) + '''')'''''''' from ''''+@tablename --print @sql exec (@sql) end GO -- ====================================================== --根据表中数据生成insert语句的存储过程 --建立存储过程，执行 proc_insert 表名 --感谢Sky_blue -- ====================================================== CREATE proc proc_insert (@tablename varchar(256)) as begin set nocount on declare @sqlstr varchar(4000) declare @sqlstr1 varchar(4000) declare @sqlstr2 varchar(4000) select @sqlstr=''''select ''''''''insert ''''+@tablename select @sqlstr1='''''''' select @sqlstr2='''' ('''' select @sqlstr1= '''' values ( ''''''''+'''' select @sqlstr1=@sqlstr1+col+''''+'''''''',''''''''+'''' ,@sqlstr2=@sqlstr2+name +'''','''' from (select case -- when a.xtype =173 then ''''case when ''''+a.name+'''' is null then ''''''''NULL'''''''' else ''''+''''convert(varchar(''''+convert(varchar(4),a.length*2+2)+''''),''''+a.name +'''')''''+'''' end'''' when a.xtype =104 then ''''case when ''''+a.name+'''' is null then ''''''''NULL'''''''' else ''''+''''convert(varchar(1),''''+a.name +'''')''''+'''' end'''' when a.xtype =175 then ''''case when ''''+a.name+'''' is null then ''''''''NULL'''''''' else ''''+''''''''''''''''''''''''''''''''''''+''''+''''replace(''''+a.name+'''','''''''''''''''''''''''''''''''','''''''''''''''''''''''''''''''''''''''''''''''')'''' + ''''+''''''''''''''''''''''''''''''''''''+'''' end'''' when a.xtype =61 then ''''case when ''''+a.name+'''' is null then ''''''''NULL'''''''' else ''''+''''''''''''''''''''''''''''''''''''+''''+''''convert(varchar(23),''''+a.name +'''',121)''''+ '' [1] [2] 下一页 |
|
| 文章录入：mintao 责任编辑：mintao |
|
|
上一篇文章： C#和SQL数据浏览分页
下一篇文章： 写SQL语句的一点建议 |
|
|
| 【字体：小 大】【发表评论】【加入收藏】【告诉好友】【打印此文】【关闭窗口】 |
|
 注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！ 本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网] |
| 网友评论：（只显示最新10条。评论内容只代表网友观点，与本站立场无关！） |
| |
|
|
|
|
