&& Nombre de base de datos = OptimoGYM
&& CN = CONEXION SQL SERVER
CN = SQLCONNECT("LINK", "sa", "Visual60")
*
* RESPALDAR
RespaldoDB = "D:\RESPALDOS\RESPALDO.DTB"
ex = SQLEXEC(CN,"BACKUP DATABASE OptimoGYM TO DISK = ?RespaldoDB WITH INIT")
IF ex <= 0
MESSAGEBOX(MESSAGE())
ENDIF
WAIT
* RESTAURAR
SQLEXEC(cn,"USE Master")
ex = SQLEXEC(CN,"RESTORE DATABASE BaseDatos FROM DISK = ?RespaldoDB")
IF ex <= 0
MESSAGEBOX(MESSAGE())
ENDIF
SQLEXEC(cn,"USE OptimoGYM")