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