[Resolvido]Sistema na Internet

Prezados amigos, tenho um sistema para controle de loja e gostária de enviar meu bando de dados para visualizar as vendas na minha casa mas não encontrei nenhum código que permita copiar o banco de dados que esta aberto e enviar via código por ftp para um servido para que na minha casa eu consiga visualizar as vendas do dia

Se for apenas para visualizar os dados o correto seria você ter um servidor WEB em vez de FTP ai você utilizaria alguns recursos do PHP para poder acessar as informações no banco de dados e até mesmo manipular os dados. O access não é um servidor/cliente tal e qual o sqlServer. Pesquise sobre isto na net.

Veja estes dois acessos;

http://www.mvps.org/access/modules/mdl0015.htm

http://www.mvps.org/access/modules/mdl0037.htm

Boa Tarde amigo Ricardo

Por acaso até tinha isso aqui na mdb off line da AccessWeb, contudo não sei se aprova mesmo isso, pois o feedback que tenho disso desde o access 97 são 2:

1- Dificuldade de implementação

2- Erros, sobre erros na maioria dos casos.

Tem alguma experiência diferente? Seria interessante conhecer, eu pessoalmente nunca usei esses módulos.

Em tempos fiz teste com esses modulos e funcionaram.

Se preferirem, podem testar com este que faz o backup em tempo real e depois já podem consultar.
Este codigo tem de ser corrido no proprio banco a ser enviado por FTP.


Public Sub EnviaBancoPorFTP()
'Para saber os comandos utilizados em FTP, vá ao
'Iniciar do seu Computador, Excutar, e digite ftp
'na janela do DOS digite, help
Dim strMsg As String
strMsg = "Vai abrir uma janela do DOS" & vbNewLine
strMsg = strMsg & Chr(149) & " Inicio à transferência do seu Banco por FTP." & vbNewLine
strMsg = strMsg & Chr(149) & " Se o seu antivírus bloquear a transferencia, permita para dar seguimento..."

If MsgBox(strMsg, vbOKCancel) = vbCancel Then
GoTo Exit_EnviaBancoPorFTP_Click
Else
Dim fs As Variant
Dim FTPScript As Variant
Set fs = CreateObject("Scripting.FileSystemObject")
'Cria ficheiro de ligação
Set FTPScript = fs.CreateTextFile("C:\LogLigacao.txt", True)
With FTPScript
'IP do servidor FTP.
.Writeline ("OPEN 74.125.230.176")
'User e password
.Writeline ("USER Ricardo 12345")
'CD é o comando para ligar e PastaBackup é o nome da pasta no FTP
.Writeline ("CD PastaBackup")
'LCD é o comando para devolver o caminho do banco de dados aberto
.Writeline ("LCD " & Right(CurrentProject.Path, Len(CurrentProject.Path) - 2))
'Usar BINARY ou ASCII para ficheiros de texto
.Writeline ("BINARY")
'PUT é o comando que envia para o servidor, teste.mdb é o nome do banco local, Backupteste.mdb é o nome do backup que fica no local remoto.
.Writeline ("PUT teste.mdb Backupteste.mdb")
'O comando "BYE" termina o processo.
.Writeline ("BYE")
.Close
End With
Call Shell("C:\WINDOWS\System32\ftp.exe -ns:c:\LogLigacao.txt", vbMaximizedFocus)

Exit_EnviaBancoPorFTP_Click:
Exit Sub
End If
End Sub

Ricardo

Só uma pergunta que houve algo aqui não entendi:

A manipulação de dados é feita directamente no servidor, ou o backup tem que ser importado para o pc?

Obrigado

Simples;

Tem de criar uma pasta no subdirectorio do FTP para receber a copia da Base de Dados, depois o codigo faz o resto.

Obrigado amigo Ricardo por mais uma preciosa ajuda.

Dica: para o exemplo que está no site da microsoft funcionar em Access 2007/2010, será necessário converter os arquivos mdb e mda para accdb e depois referenciar o arquivo accdb que foi convertido do mda para poder funcionar. Testei agora aqui e deu certo dessa maneira.