KB-27260: Fazendo backup do banco de dados com o E3.

Descrição:

Como fazer o backup de um banco de dados através do E3?

Solução:

Para isso, há duas possibilidades:

1. Se o banco de dados for Access, copie o arquivo correspondente ao banco de dados manualmente.
2. Se o banco de dados for SQL, crie um botão na tela e, no seu evento Click, insira um script que envie um comando ao SQLServer para executar o backup. Por exemplo:

'Cria o objeto backup do banco de dados:
  
'Referencia o ActiveX: 
Set Server = CreateObject("SQLDmo.SqlServer")

'Habilita verificação de login e cria uma conexão confiável:
Server.LoginSecure = True 
Server.Connect SQLServer

'BackUp efetivo:
Set objBackup = CreateObject("SQLDMO.Backup")

'Configura propriedades:
objBackup.BackupSetName  = NomeArqBackUp
objBackup.Database       = NomeBD
objBackup.Action         = "0"
objBackup.BackupSetDescription = BackupSetDescription
objBackup.Files        = NomeArqBackUp & ".bak"
objBackup.TruncateLog  = "0"
objBackup.Initialize   = True
objBackup.SQLBackup Server

'Desconecta do servidor SQL:
 Server.disconnect
 
 'clean up
 set Server = nothing
 set objBackup = Nothing