備份服務器端SQL SERVER數據庫至本地目錄

/數據庫備份存儲過程/
/支持從服務器備份數據至本地機器上/
-- 作者:yoncen
CREATE PROCEDURE up_dbbackup
(
@backup_db_name VARCHAR(128),
@filename VARCHAR(128), /備份路徑+文件名/
@flag VARCHAR(60) OUTPUT
)
AS
SET NOCOUNT ON
DECLARE @sql NVARCHAR(4000),@par NVARCHAR(1000)
IF NOT EXISTS(
SELECT * FROM master..sysdatabases
WHERE name=@backup_db_name
)
BEGIN
SELECT @flag='數據庫 '+@backup_db_name+' 不存在!'
RETURN
END
ELSE
BEGIN
IF RIGHT(@filename,1)<>'' AND CHARINDEX('',@filename)<>0
BEGIN
/定義標誌/
DECLARE @lFlag INT
EXECUTE @lFlag=master..xp_cmdshell 'DIR Z:'
IF @lFlag<>0
BEGIN
/* 在客戶機192.168.2.45上建立一個完全共享目錄db,指定一個用戶名和密碼.Win98用戶不需要用戶名和密碼*/
EXECUTE @lFlag=master..xp_cmdshell 'NET USE Z: \\192.168.2.45\db$ test /user:ca.atc\test'
IF @lFlag<>0
BEGIN
SELECT @flag='服務器創建目錄失敗!'
RETURN
END
END
SELECT @par='@filename VARCHAR(1000)'
SELECT @sql='BACKUP DATABASE '+@backup_db_name+' TO DISK=@filename WITH INIT'
EXECUTE sp_executesql @sql,@par,@filename
EXECUTE master..xp_cmdshell 'NET USE Z: /DELETE'
SELECT @flag='數據庫 '+@backup_db_name+' 備份成功!'
RETURN
END
ELSE
BEGIN
SELECT @flag='數據庫備份路徑錯誤!'
RETURN
END
END

**以上過程在SQL SERVER7.0下測試通過

**感謝 http://www.myf1.net/bbs (Visual Foxpro幫助論壇)