[Resolvido]Deletar Registros de Um Banco de Dados Na Rede Através de Outro Banco de Dados

Olá amigos do fórum!

Preciso de ajuda numa dúvida, é o seguinte:

Criei um sistema que transfere dados (vendas) externos para o servidor. (Consulta acréscimo)
Agora eu preciso efetuar este processo para deletar os dados.
Como fazer?
Utilizo essa sequencia para transferir os dados. Na consulta acréscimo consigo colocar o endereço da rede, fica fácil, mas preciso deletar os registros da tabela antes de enviar os novos dados registrados ou atualizados

Private Sub bt_trans_todos_Click()

On Error GoTo Err_bt_trans_todos_Click

If MsgBox("Deseja transferir dados agora?", vbYesNo, "OpenSystem") = vbYes Then

DoCmd.SetWarnings False

DoCmd.OpenQuery "Acre_Clientes_SPE0A" 'Aqui é uma consulta acréscimo com o endereço da rede
DoCmd.OpenQuery "Acre_Clientes_SPE0B"
DoCmd.OpenQuery "Acre_Clientes_SPE0C"

MsgBox ("Dados transferidos e sincronizados com sucesso!"), vbInformation, "OpenSystem"

Me.img_ok1.Visible = True
Me.img_ok2.Visible = True
Me.img_ok3.Visible = True
Me.img_ok5.Visible = True

Else

MsgBox ("Transferência cancelada"), vbInformation, "OpenSystem"

End If

Exit_bt_trans_todos_Click:
Exit Sub
Err_bt_trans_todos_Click:
MsgBox "Sem conexão com a rede.", vbCritical, "A V I S O !"
Resume Exit_bt_trans_todos_Click

End Sub

Olá Marco, pode ser uma consulta eliminar.
Abraço

Ola ahteixeira! como faço isso?

Crie uma consulta de exclusão!

Olá amigos! Mas não é só criar a consulta, ela tem que excluir registros de uma tabela em outro banco de dados na rede.
A consulta acréscimo possibilita fazer isso facilmente, mas não sei como fazer com uma consulta exclusão.
Ou fazer pelo VBA tipo assim:

CurrentDB.Execute "DELETE NomedaTabela \\NomedoServidor\NomedaPasta\BandodeDados

Mas ja tentei de varias formas montar uma sequencia e não consigo.

Ao montar essa consulta de acréscimo, vc vinculou tabelas externas ao seu BD não?

É pra excluir todos os dados da tabela ?

São 4 Tabletes com o mesmo sistema de vendas e seus respectivos banco de dados (para venda externa). No final do dia os vendedores
descarregam todas as vendas feitas atraves dos tablets para o servidor (utilizo uma consuta acrescimo) até ai tudo bem...

Os tablets tem seu proprio banco de dados, o do servidor é outro.
Os computadores que ficam na empresa conectam-se diretamente a esse servidor, porem os tables não.

Agora eu preciso fazer a mesma coisa, porem para deletar, ou atualizar
qualquer um dos dois atualizar ou deletar vai resolver meu problema. Na criação da consulta acrescimo te da a opção de escolher o bando de dados destino em qualquer lugar dentro ou fora, mas a consulta atualização e exclusão não tem essa opção.
Essa é a questão.

Sim, é para excluir todos os dados da tabela.

Ou então não usar consulta, montar uma sequencia no vba  que faça isso.

Vamos ver se eu entendi. Os tablets da empresa tem Access instalado, certo ? Você passa por consulta de acrescimo os dados dos tablets para o banco que está na rede. Após concluir, você quer remover os dados das tabelas dos tablets. Então, você nos tablets vai criar uma consulta de exclusão (não sei o Access que você usa, aqui eu uso o 2010 então vou me basear nele) pra cada tabela que você quer limpar dos tablets.



Primeiro você cria uma consulta, então:

1 - Seleciona a consulta exclusão;

2 - Dois cliques no asterisco da tabela, ou arrasta ele pro campo pra ele excluir TODOS os dados da tabela;

3- manda executar.

Após salvar, é só botar na rotina após enviar os dados para o servidor pra ele executar essa consulta de exclusão!

Espero ter ajudado.

Na verdade, quero fazer isso do servidor para os tablets.
Quanto for atualizados muitos registros no servidor

Exemplo: Produtos

Atualizei varios preços de produtos
Agora vou enviar para os tablets
Porem tenho que apagar todos os registros de produtos dos tables antes.
Ou usar Atualização que tambem me deixa na mesma duvida.

Quando eu envio as vendas dos tablets para o servidor, as vendas dos tables são automaticamente apagadas, por uma consulta exclusão que funciona bem, pq estou apagando os registros que esta no banco de dados do tablet.
Agora como faço para apagar os registros dos tables atraves do servidor?

Olá a todos.
Marcos tente assim:

Código:

CurrentDb.Execute "DELETE * FROM NomedaTabela IN '\\NomedoServidor\NomedaPasta\BandodeDados.accdb'"

Abraço

Tentei, mas não deu certo, mas é essa a ideia, estamos no caminho certo!

Olá, verifique melhor como colocou.
Teste numa base de dados no disco c:\
Estou no telemóvel e não posso postar exemplo.
Aguardamos se algum membro obteve bom resultado e possa ajudar.
Abraço

Ok amigo ahteixeira, obrigado

Bom amigos, ainda não obtive sucesso...!

Olá Marcos, veja exemplo colocado no repositório.
https://www.maximoaccess.com/t26731-exemplo-apagar-deletar-registos-de-um-banco-atraves-de-outro-banco-de-dados
Abraço

Amigo ahteixeira, funcionou perfeitamente, mas, porem preciso direcionar para tabela em outro computador.

CurrentDb.Execute "DELETE * FROM tblExemplo IN '" & Application.CurrentProject.Path & "\\Servidor\PastadoBd\TabelaDados.mdb'"
Assim não funcionou. Como direcionar?

Olá, foi um exemplo para demonstrar.
No seu caso está a colocar o caminho errado se colocou lá o meu ficheiro dados de exemplo.

Teste assim:
CurrentDb.Execute "DELETE * FROM tblExemplo IN '\\Servidor\PastadoBd\TabelaDados.mdb'"

Abraço

Amigo ahteixeira, também não deu. Esse código você havia me passado antes e não funcionou.

Olá coloque na rede os dois ficheiros que postei e rode diretamente.
Se não der poderá ser erro de permissoes da rede.
O código ultimo sendo a localização correta e nome do ficheiro e tabela, deverianfuncionar.
Abraço

Caro amigo ahteixeira, muito obrigado pela ajuda. O código que você me passou estava certo.
E como você informou da permissão da rede, era exatamente isso, funcionou perfeitamente.
Muito obrigado a você e ao outros amigos que também me ajudaram. Muito obrigado!

Olá Marcos, fico feliz ter resolvido.
Obrigado pelo retorno, os utilizadores do fórum agradecem.
Abraço