Backup - VBWEB


	Fórum
	Visual Basic

Responder

Voltar

Autor

Assunto: Backup

Edson_vb6

SÃO JOÃO DEL REI
MG - BRASIL

ENUNCIADA !

Postada em 17/04/2008 09:46 hs

Olá pessoal,

Achei um código na net pra fazer backup do banco de dados (access) e coloquei no meu programa pra teste. Funcionou perfeitamente!

Acontece que quando fiz o backup pela 1ª vez ele ocultou todos meus registros do meu banco de dados, ou seja, se eu abrir meu programa consigo ter acesso e alterar todos meus registros (mostrando que ainda estão lá no banco de dados), mas quando abro o banco de dados não aparece nada!

O código é esse:

Public Function backup()

Dim X, Y As Integer
Dim stAppName As String

    stAppName = "C:THNUTRIArj.exe a -vva f:Thnutri c:THNUTRICadastro.mdb /y"

    Call Shell(stAppName, 1)

    Unload frmPrincipal

End Function

TÓPICO EDITADO

Edson_vb6

SÃO JOÃO DEL REI
MG - BRASIL

Postada em 18/04/2008 08:41 hs

Pessoal, descobri o que estava acontecendo. O problema era com a pessoa na frente do micro mesmo, rs...

Ela estava fazendo o backup normal, só que ele fazia o backup de um banco e eu olhava os registros em outros.

Fazer o que né? Nem tudo é perfeito, rsrs...

Mesmo assim obrigado!

Macaubal

MACAUBAL
SP - BRASIL

Postada em 18/04/2008 08:45 hs

Voce ja penseu em fazer seu backup utilizando o WinRar?

Voce tem que ter o arquivo RAR.EXE na pasta raiz de onde será executado o formulário

'No exemplo o arquivo Rar.EXE esta no caminho "c:"

Dim X As Variant
On Error GoTo 1
Origem = "C:BANCO.MDB"
Destino = "C:NOMEDOARQUIVO.rar"
If Dir$(Destino) <> "" Then Call Kill(Destino)
X = Shell("C:RAR A -df " & Destino & " " & Origem, 1) '1 vbNormalFocus

'o -df é utilizado para deletar o arquivo existente e compactar novamente

Qualquer dúvida me escreva

Abraços

Página(s): 1/1

Seu Nome:
Seu eMail:		ALTERAR PARA MODO HTML
Mensagem: [:)] = [:P] = [:(] = [;)] = HTML DESLIGADO

VOLTAR