/*數據庫備份存儲過程*/
/*支持從服務器備份數據至本地機器上*/
-- 作者: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幫助論壇)