Hacer respaldo de la base de datos de MS-SQLServer (programáticamente)

Dos formas de lograrlo, utilizando código de VFP.

Con SQLDMO:

LOCAL loServer, loBackup

loServer   = CREATEOBJECT('SQLDMO.SqlServer')
loServer.Connect("MiServidor","MiUsuario", "Mi password")

loBackup = CREATEOBJECT('SQLDMO.Backup')
WITH loBackup
 .Database     = "LabasedeDatos"
 .Files        = '[C:BackupsNombreRespaldo]'
 .Initialize   =  .T.
 .BackupSetName   = "MiRespaldo"
 .BackupSetDescription = "MiDescripcion"
 .SQLBackup(loServer)
ENDWITH

Y con ADO:

LOCAL lcSQLScript, loConnection

loConnection = CREATEOBJECT('ADODB.CONNECTION')
loConnection.Open("Provider=SQLOLEDB.1;User ID=MiUsuario"+;
 +";PWD=MiPassword"+;
 +";Persist Security Info=False"+;
 +";Initial Catalog=LaBasedeDatos"+;
 +";Data Source=MiServidor")

lcSQLScript = ;
"BACKUP DATABASE [LaBasedeDatos] TO  DISK = N'C:BackupsNombreRespaldo' "+;
"WITH  INIT ,  NOUNLOAD ,  NAME = N'MiRespaldo',  NOSKIP ,  STATS = 10,  "+;
"DESCRIPTION = N'MiDescripcion',  NOFORMAT "

loConnection.Execute(lcSQLScript)

Espero les sea de utilidad.

Espartaco Palma Martínez