批量将数据库中的用户表导出到指定目录下的txt文件

----------------------------------------------------------------------------------
-- Author : htl258(Tony)
-- Date : 2010-06-26 11:55:48
-- Version: Microsoft SQL Server 2008 (RTM) - 10.0.1600.22 (Intel X86)
-- Jul 9 2008 14:43:34
-- Copyright (c) 1988-2008 Microsoft Corporation
-- Developer Edition on Windows NT 5.1 <X86> (Build 2600: Service Pack 3)
-- Blog : http://blog.csdn.net/htl258 -- Subject: 批量将数据库中的用户表导出到指定目录下的txt文件
----------------------------------------------------------------------------------
IF OBJECT_ID('p_TbToTxt') > 0
DROP PROC p_TbToTxt
GO
CREATE PROC p_TbToTxt
@dbname SYSNAME,--库名
@path NVARCHAR(100) --导出路径
AS
SET NOCOUNT ON
--格式化路径
DECLARE @s VARCHAR(8000)
IF RIGHT(@path,1)<>'/' SET @path=@path+'/'
SET @path=REPLACE(@path,'：',':')
--判断输入的盘符是否正确，不正确退出
DECLARE @t TABLE(a INT,b INT,c INT)
INSERT @t EXEC master..xp_fileexist @path
IF NOT EXISTS(SELECT 1 FROM @t WHERE c=1)
BEGIN
RAISERROR('输入的盘符不存在，请重新输入!',16,16)
RETURN
END
--判断是否存在输入路径，不存在创建
IF NOT EXISTS(SELECT 1 FROM @t WHERE b=1)
BEGIN
SET @s='md '+@path
EXEC master..xp_cmdshell @s,NO_OUTPUT
END
SET @s=NULL
--创建游标循环导出用户表
DECLARE c CURSOR FOR
SELECT 'EXEC master..xp_cmdshell ''BCP ['+@dbname+']..'+name+' OUT '+@path+name+'.txt -c -T'',NO_OUTPUT'
FROM sysobjects
WHERE TYPE='u'
OPEN c
FETCH c INTO @s
WHILE @@FETCH_STATUS=0
BEGIN
EXEC(@s)
FETCH c INTO @s
END
CLOSE c
DEALLOCATE c
SET NOCOUNT OFF
GO
--调用示例：
EXEC p_TbToTxt 'Mydb','D:/Txt'