22 de marzo de 2004

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

No hay comentarios. :

Publicar un comentario