ROTINA SIMPLES BACKUP .MDB
olá;
alguem teria alguma rotina simples em vb6 para fazer backup de banco access?
desde já agradeço
alguem teria alguma rotina simples em vb6 para fazer backup de banco access?
desde já agradeço
o banco estando fechado seria assim
FileCopy [Ô]c:\arquivooriginal.mdb[Ô],[Ô]arquivobackup.mdb[Ô]
basta vc automatizar isso
FileCopy [Ô]c:\arquivooriginal.mdb[Ô],[Ô]arquivobackup.mdb[Ô]
basta vc automatizar isso
ultimamente salvo um RAR onde sempre mudo nome do arquivo , e coloco na saida do sistema pra incializar o backup , e salvo online , utilizando um sincronizador ficou automatico
Private fso As FileSystemObject
Private strDestino As String [ô]contem o caminho para o arquivo de backup
Private strOrigem As String [ô]define a origem do backup
Private strnome As String [ô]nome do arquivo de backup
Private Sub backup() [ô]função para gerar backup de BD access
On Error GoTo erro
Set fso = New FileSystemObject
cmd_Backup.Enabled = False
LblAguarde.Visible = True
[ô]pergunta e propoe nome do backup
strnome = [Ô]Banco[Ô]
[ô] strnome = InputBox([Ô]Informe o Nome Para o Arquivo de Backup[Ô], [Ô]Backup[Ô], _
[ô] [Ô]Banco[Ô] & [Ô].mdb[Ô])
If strnome = [Ô][Ô] Then [ô]verifica se cancelou o inputbox
Exit Sub
End If
If Right(strnome, 4) <> [Ô].mdb[Ô] Then [ô]verifica se usuario colocou extensão correta
strnome = strnome & [Ô].mdb[Ô] [ô]c não colocaremos :)
End If
strOrigem = App.Path & [Ô]\Banco.mdb[Ô] [ô]pegua arquivo de origem
strDestino = File1.Path & [Ô]\[Ô] & strnome [ô]pegua caminho destino
fso.CopyFile strOrigem, strDestino [ô]efetua a copia
[ô]indica para o usuario o caminho onde
[ô]foi gravado o backup
LblAguarde.Visible = False
MsgBox [Ô]O Arquivo foi Gravado com Sucesso em[Ô] & vbCr & File1.Path
Dir1.Path = App.Path
Unload Me
Exit Sub
erro:
MsgBox [Ô]Erro ao Efetuar o Backup[Ô] & vbCr & _
Err.Description & [Ô] [Ô] & Err.Number, vbCritical, [Ô]Erro[Ô]
Exit Sub
End Sub
Private Sub cmd_Backup_Click()
LblAguarde.Visible = True
cmd_Backup.Enabled = False
backup
End Sub
Private Sub cmd_Sair_Click()
Unload Me
End Sub
Private Sub Dir1_Change()
File1.Path = Dir1.Path
End Sub
Private Sub Drive1_Change()
On Error GoTo erro
Dir1.Path = Drive1.Drive
Exit Sub
erro:
If Err.Number = 68 Then
MsgBox [Ô]Media Não encontrada[Ô], vbCritical, [Ô]Erro[Ô]
Exit Sub
Else
MsgBox Err.Description & [Ô] [Ô] & Err.Number
End If
End Sub [ô][ô][ô]
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
Set fso = Nothing
End Sub
Private strDestino As String [ô]contem o caminho para o arquivo de backup
Private strOrigem As String [ô]define a origem do backup
Private strnome As String [ô]nome do arquivo de backup
Private Sub backup() [ô]função para gerar backup de BD access
On Error GoTo erro
Set fso = New FileSystemObject
cmd_Backup.Enabled = False
LblAguarde.Visible = True
[ô]pergunta e propoe nome do backup
strnome = [Ô]Banco[Ô]
[ô] strnome = InputBox([Ô]Informe o Nome Para o Arquivo de Backup[Ô], [Ô]Backup[Ô], _
[ô] [Ô]Banco[Ô] & [Ô].mdb[Ô])
If strnome = [Ô][Ô] Then [ô]verifica se cancelou o inputbox
Exit Sub
End If
If Right(strnome, 4) <> [Ô].mdb[Ô] Then [ô]verifica se usuario colocou extensão correta
strnome = strnome & [Ô].mdb[Ô] [ô]c não colocaremos :)
End If
strOrigem = App.Path & [Ô]\Banco.mdb[Ô] [ô]pegua arquivo de origem
strDestino = File1.Path & [Ô]\[Ô] & strnome [ô]pegua caminho destino
fso.CopyFile strOrigem, strDestino [ô]efetua a copia
[ô]indica para o usuario o caminho onde
[ô]foi gravado o backup
LblAguarde.Visible = False
MsgBox [Ô]O Arquivo foi Gravado com Sucesso em[Ô] & vbCr & File1.Path
Dir1.Path = App.Path
Unload Me
Exit Sub
erro:
MsgBox [Ô]Erro ao Efetuar o Backup[Ô] & vbCr & _
Err.Description & [Ô] [Ô] & Err.Number, vbCritical, [Ô]Erro[Ô]
Exit Sub
End Sub
Private Sub cmd_Backup_Click()
LblAguarde.Visible = True
cmd_Backup.Enabled = False
backup
End Sub
Private Sub cmd_Sair_Click()
Unload Me
End Sub
Private Sub Dir1_Change()
File1.Path = Dir1.Path
End Sub
Private Sub Drive1_Change()
On Error GoTo erro
Dir1.Path = Drive1.Drive
Exit Sub
erro:
If Err.Number = 68 Then
MsgBox [Ô]Media Não encontrada[Ô], vbCritical, [Ô]Erro[Ô]
Exit Sub
Else
MsgBox Err.Description & [Ô] [Ô] & Err.Number
End If
End Sub [ô][ô][ô]
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
Set fso = Nothing
End Sub
USO ISSO EM MEUS CLIENTES VE SE AJUDA
ESTOU TENTANDO ENVIAR O ARQUIVO DIRETO PARA UM FTP SE TIVER ISSO ME ENVIE.
QUALQUER COISA ME AVISE.
ESTOU TENTANDO ENVIAR O ARQUIVO DIRETO PARA UM FTP SE TIVER ISSO ME ENVIE.
QUALQUER COISA ME AVISE.
Cara aqui no forum existe exemplos de como fazer isso!
Tópico encerrado , respostas não são mais permitidas