Respaldar Base de Datos MSDE/MS Sql Server con VFP

Muchas veces cuando desarrollamos aplicaciones Cliente/Servidor con MSDE o MS Sql Server deseamos incluir la opción de respaldo. La siguiente función les ayuda a hacerlo.

1.- Nos conectamos a Master

LOCAL lCdb_respaldar,lCdb_dispositivo,lNconex
** Nos conectamos a Master
lNconex=SQLCONNECT('Master')

2.- Tenemos dos formas de hacer el respaldo, Iniciacilzando el Dispositivo de respaldo o agregandole el respaldo a dicho dispositivo

lCdb_respaldar='midb'
lCdb_dispositivo='midispositivo.bak'

2.1- Inicializando el dispositivo

If sqlexec(lNconex,"backup database "+lCdb_respaldar+" to " ;
   +lCdb_dispositivo+" with init") > 0
   =Messagebox('Respaldo Realizado con exito',64,'Respaldo')
Endif

2.2.- Agregando el respaldo al dispositivo

If sqlexec(lNconex,"backup database "+lCdb_respaldar+" to "+lCdb_dispositivo) > 0
   =Messagebox('Respaldo Realizado con exito',64,'Respaldo')
Endif

3.- Como crear un dispositivo de respaldo en caso de no poseerlo.

If sqlexec(lNconex,"sp_addumpdevice 'disk', '"+lCdb_respaldar+"', ;
   'C:Archivos de programaMicrosoft SQL ServerMSSQLBACKUP"+lCdb_respaldar+".BAK'") > 0
   =Messagebox('Dispositivo creado con exito',64,'Respaldo')
Endif
=SQLDISCONNECT(lNconex )

Nota: Para este ejemplo se asumio que se posee una conexión en la base de datos de VFP llamada Master. La ruta de donde se debe crear el dispositivo varia dependiendo la ruta donde se instaló el servidor MSDE o MS Sql Server.

Espero les sirva.

José G. Samper