USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Fórum

  Visual Basic
Voltar
Autor Assunto:  Fazer Backup
DM MASTER
SÃO PAULO
SP - BRASIL
ENUNCIADA !
Postada em 28/01/2005 08:16 hs            
Gostaria de saber como fazer backup/Restauração do meu sistema e base de dados (Access) atraves da minha aplicação? Estou utilizando VB.Net
Eu tenho uma ideia do q fazer mas não sei como... eu preciso de alguma coisa q grave as infs da minha base em um disquete e q depois consiga ler essas infs para depois gravar no banco.
Alguém saberia me dizer como fazer isso?
Obrigado
 

DM MASTER":.
   
Rinaldo
SÃO PAULO
SP - BRASIL
ENUNCIADA !
Postada em 28/01/2005 08:36 hs            
Coloque dois CommandButton em um form e copie o código abaixo:
 
Private Sub Command1_Click()
    Me.MousePointer = vbHourglass
    BDBackup "SeuBanco.mdb"
    Me.MousePointer = vbDefault
End Sub
Private Function BDBackup(vArquivo As String)
   
    Dim vArqOrigem, vArqDestino
    vArqOrigem = vArquivo
    '12/45/7890
    If Dir(Mid(Date, 7, 4) & Mid(Date, 4, 2) & Mid(Date, 1, 2)) <> "" Then
        Kill Mid(Date, 7, 4) & Mid(Date, 4, 2) & Mid(Date, 1, 2)
    End If
    vArqDestino = Mid(Date, 7, 4) & Mid(Date, 4, 2) & Mid(Date, 1, 2) & ".bkp"
    FileCopy App.Path & "" & vArqOrigem, App.Path & "" & vArqDestino
End Function
Private Function BDRestore(vArqOrigem As String, vArqDestino As String)
   
    If Dir(vArqDestino) <> "" Then
        Kill App.Path & "" & vArqDestino
    End If
    FileCopy App.Path & "" & vArqOrigem, App.Path & "" & vArqDestino
End Function
Private Sub Command2_Click()
    Me.MousePointer = vbHourglass
    BDRestore "20041214.bkp", "SeuBanco.mdb"
    Me.MousePointer = vbDefault
End Sub
T+
Rinaldo
   
Página(s): 1/1    


Seu Nome:

Seu eMail:

ALTERAR PARA MODO HTML
Mensagem:

[:)] = 
[:P] = 
[:(] = 
[;)] = 

HTML DESLIGADO

     
 VOLTAR

  



CyberWEB Network Ltda.    © Copyright 2000-2022   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página