在vfp中备份、恢复 SQL数据库

*数据备份 
LOCAL BF
BF = ''
OSERVER = CREATEOBJECT('sqldmo.sqlserver')
OSERVER.CONNECT('XINGXIAO02','sa','')
OBACKUP = CREATEOBJECT('sqldmo.backup')
OBACKUP.DATABASE = 'kcjh'
OBACKUP.FILES = 'c:/temp/kcjh_back.dat'
OBACKUP.INITIALIZE = .T.
OBACKUP.ACTION = 0
BF = OBACKUP.SQLBACKUP(OSERVER)
IF EMPTY(BF)
    = MESSAGEBOX('无法进行备份')
ENDIF 
OSERVER.DISCONNECT
RELEASE OSERVER

*数据恢复
OSERVER = CREATEOBJECT('SQLDMO.SQLServer')
OSERVER.CONNECT('XINGXIAO02','sa','')
ORESTORE = CREATEOBJECT('SQLDMO.Restore')
ORESTORE.DATABASE = 'kcjh'
ORESTORE.FILES = 'C:/Temp/kcjh_back.Dat'
ORESTORE.ACTION = 0
? ORESTORE.GENERATESQL()
RUN E:/Program Files/Microsoft SQL Server/MSSQL/Binn/sqlservr.exe -m
CRESULT = ORESTORE.SQLRESTORE(OSERVER)
IF EMPTY(CRESULT)
    = MESSAGEBOX('无法完成恢复')
ENDIF 
OSERVER.DISCONNECT
RELEASE OSERVER