Fórum Como gerar backup do MS SQL Server #271942

procedure
var
ADOCommand : TADOCommand;
begin

ADOCommand := TADOCommand.Create(nil); //Cria o objeto de comando para executar a rotina de backup do SQL SERVER 2000
with ADOCommand do begin

ADOCommand.Name := ´ADOGeraBackup´; //Nome do objeto
ADOCommand.ConnectionString := ConnStr; //Cria a conexão com o Provider do SQL Server
ADOCommand.CommandType := cmdText; //Define como command Text para execução de linhas de comando
ADOCommand.CommandText := ´BACKUP DATABASE Banco TO DISK = ´´BancoBackup.bak´;
ADOCommand.Execute; //Executa a linha de comando

end;