[Resolvido]Atualizar formulario ou tabela de outro bd

Assim pessoal,importei as tabelas,form,consultas e tudo mais de um aplicativo para um outro bd,agora quero saber se é possivel quando cadastrar ou atualizar um produto no cadastro do bd1 automaticamente ele se cadastrar no cadastro de produtos desse outro bd que foi importado...e o mesmo fazer com o cadastro de clientes.

Obs:Os dois bd tem cadastro de produto e cadastro de clientes.

Abçs.

Por que dois bancos iguais?

Neste bd importado tem varios recursos a mais do que no outro que não consigo fazer igual,como cupom,boletos,outras coisas,por isso quero ver se é possivel quando cadastrar os produtos e clientes em um bd,no outro tambem ja fique cadastrado.

desculpe amigo mais se vc tem um bd mais avançado por que vc precisa do outro?
acredito que os dados serao iguais, e vc queira fazer como um backup do seu BD,
da uma olhada nesse artigo do grande mestre avelino sampaio de sistema de backup,
talvez possa te ajudar.

http://www.usandoaccess.com.br/tutoriais/tuto14.asp?id=1#inicio

Concordo com os colegas Kaynan... Isso é uma... com o perdão da palavra... uma Gambiarra..

Cumprimentos.

 

Não fique chateado amigão.. Mas estamos aqui para ajudar mas também aconselhar sobre quando estamos a errar... Eu mesmo no início ja fui advertido várias vezes...A função do fórum ajudar-nos a aprender.. mas da maneira correta.

Abraços.

Bem,vou tentar fazer da maneira que tenho em mente,incluir os dois bd em um só.

obrigado pelas dicas pessoal,mas sou teimoso.
abraços.

Kaynan... inserir dados em tabelas em outro BD é relativamente simples..
E utiliza-se isso em projetos desvinculados.. e outros..

Mas no caso que citou.. não é a melhor maneira..
O ideal é adaptar... Pra isto estamos aqui.. para ajudá-lo

Veja exemplo de código que insere registros em outro BD:

Private Sub NovoRegistro()
'On Error GoTo TrataErro


Parametros_de_Inicializacao "SysPen.par"

Dim Db As DAO.Database
Dim ws As DAO.Workspace
Dim rs As DAO.Recordset
Dim NomeBD As String
Dim StrPath As String

Dim I


NomeBD = "Syspen_Be.Accdb"
StrPath = DirBancoDados & NomeBD



Set ws = DBEngine.Workspaces(0)
Set Db = ws.OpenDatabase(DirBancoDados & "\Syspen_Be.accdb", False, False, "MS Access;PWD=senha")

                StrSQLDetentos = ("SELECT * FROM Detentos")

Set rs = Db.OpenRecordset(StrSQLDetentos)


     I = MsgBox("Voce está adicionando novo registro, deseja prosseguir ?", vbYesNo, "Confirmação")
         If I = vbYes Then
         
            rs.AddNew ' Abre a edição do registro
    
'********PÁGINA 01*************************************************************************
rs![ID] = Me.txtID
rs![Nome] = Me.txtNome
rs![Sobrenome] = Me.txtSobrenome
rs![Alcunha] = Me.txtAlcunha
rs![Sexo] = Me.txtSexo
rs![Crime] = Me.cboCrime
rs![Advogado] = Me.txtAdvogado
rs![Telefone Residencial] = Me.txtTelRes
rs![Telefone Celular] = Me.txtTelCel
rs![Telefone Comercial] = Me.txtTelCom
rs![Anotações] = Me.txtAnot
rs![UnidadeRequisitante] = Me.cboUnidadeReq
rs![Nível] = Me.CboAla
rs![Cela] = Me.CboCela
rs![RegimeAtual] = Me.txtRegimeAtual
rs![Se Albergado, Regime] = Me.txtSe_albergado
rs![Prisão Civil] = Me.txtPrisao_Civil
rs![RDD] = Me.txtRDD
rs![Se RDD, Local e Período] = Me.txtSeRdd
rs![Transferido] = Me.txtTransferido

'********PÁGINA 02*************************************************************************
rs![Nome Contato Emergência] = Me.txtContato
rs![Telefone 1 do Contato de Emergência] = Me.txtTel11Contato
rs![Telefone 2 do Contato de Emergência] = Me.txtTel2Contato
rs![Relação do Contato de Emergência] = Me.txtRelacaoContato
rs![Nome Contato Emergência1] = Me.txtContato1
rs![Telefone 1 do Contato de Emergência1] = Me.txtTel1Contato1
rs![Telefone 2 do Contato de Emergência1] = Me.txtTel2Contato1
rs![Relação do Contato de Emergência1] = Me.txtRelacaoContato1
rs![Nome do Médico] = Me.txtMedico
rs![Telefone do Médico] = Me.txtTelMedico
rs![Alergias] = Me.txtAlergias
rs![Medicamentos] = Me.txtMedicamentos

'********PÁGINA 03*************************************************************************
rs![Nome] = Me.txtNome
rs![Sobrenome] = Me.txtSobrenome
rs![Naturalidade] = Me.txtNaturalidade
rs![Estado Civil] = Me.txtEstadoCivil
rs![Nome da Mãe] = Me.txtNomeMae
rs![Nome do Pai] = Me.txtNomePai
rs![Data de Nascimento] = Me.txtDataNascimento
rs![Nacionalidade] = Me.txtnacionalidade
rs![RG/CPF] = Me.txtDocumentos
rs![Filhos] = Me.txtFilhos
rs![Se Falecida] = Me.txtFalecida
rs![Se falecido] = Me.txtFalecido
rs![Profissão] = Me.txtProfissao
rs![Grau de Instrução] = Me.txtInstrucao
rs![Telefone] = Me.txtTelRes1
rs![Trabalho- anterior a Prisão] = Me.txtTrabalho
rs![Conjuge] = Me.txtConjuge
rs![Etnia] = Me.txtEtinia
rs![Tipo Físico] = Me.txtTipoFisico
rs![Peso Informado] = Me.txtPeso
rs![Cabelos] = Me.txtCabelos
rs![Olhos] = Me.txtOlhos
rs![Estatura] = Me.txtEstatura
rs![Sinais Particulares] = Me.txtSinais
rs![Endereço] = Me.txtEndereco
rs![Estado] = Me.cboEstado
rs![Cidade] = Me.cboCidade
rs![País] = Me.txtPais
rs![CodigoPostal] = Me.txtPostal
rs![Complemento] = Me.txtComplemento

'********PÁGINA 03*************************************************************************
rs![Data da Prisão] = Me.txtDataPrisao
rs![Origem] = Me.txtOrigem
rs![Data da Saída] = Me.txtDataSaida
rs![Reicidente] = Me.txtReicidente
rs![EntradaNaUnidade] = Me.CboEntradaUnidade
rs![Processo Número] = Me.txtProcessoNum
rs![Infração] = Me.txtInfração
rs![Regime] = Me.txtRegime
rs![Situação Penal] = Me.CboSituacaoPenal
rs![Pena Ano] = Me.CboPenaAno
rs![Pena Mês] = Me.CboPenaMes
rs![Condicional] = Me.txtCondicional
rs![Término Pena] = Me.txtTerminoPena
rs![Juizado] = Me.txtComarca
rs![Vara] = Me.txtVara
rs![Promotoria] = Me.txtPromotoria
rs![Processos em outras Comarcas] = Me.txtProcessoOutrasComarcas
rs![Situação do Processo Anterior] = Me.txtSituaçãoProcAnterior
rs![Promotoria] = Me.txtPromotoria
rs![Mês Alvará] = Me.cboMesAlvara
rs![Alvará] = Me.txtAlvara
rs![Assitente Jurídico] = Me.txtAssistenteJu
rs![Observações] = Me.txtObservacoes
rs![Data da Inclusao na unidade] = Me.txtDataInclusao

        ' Atualiza os dados na tabela
        rs.Update
           MsgBox "Registro adicionado com sucesso!!!" & vbCrLf & _
           "Vá no módulo de inserir fotos, para aplicar" & vbCrLf & _
           "as fotos do Detento", vbInformation, "Atenção!"
           Me.btn_InserirFotos.Enabled = True
           Me.txtAvisoFoto.Enabled = True
           Me.btnNovo.Caption = "LIBERAR CADASTRO"
           Me.btnNovo.ForeColor = vbRed
           Call LimpaCampos
           Call BloqueiaCampos
        
        Else
        Cancel = True
        End If
        End If


rs.Close
Db.Close
Set rs = Nothing
Set Db = Nothing
'TrataErro:

'If err.Number = 3021 Then
'MsgBox...
'Else
'MsgBox "Erro Não:" & err.Number & "; Descrição:" & err.Description
'Resume Next
'End If

End Sub

Cumprimentos.

Piloto teria como fazer um exemplo,tipo..... .2 BD, quando cadastrasse o Cliente em 1bd ja o cliente ficasse inserido na tabela do outro BD.

Abçs.

Piloto se puder me faz esse exemplo, ou se tiver algum no forum alguém me indicar.
Abçs.

Segue dois Bd's, BdExemplo_1 e BdExemplo_2

Abra o 1 e clique no botão do formulário... o registro ativo será incluído na tabela no BD 2


Cumprimentos.

Obrigado Piloto,qualquer dúvida to te chamando.

Abraços.

Piloto no exemplo que me passou, cada registro faço no bd1 tenho que clicar no botão para atualizar a tabela do bd2,teria um jeito assim:tenho um formulario de clientes que ja estão cadastrados,teria um jeito de quando clicar, ja atualizar o segundo bd com todas as informações.

Abçs.

Em um botão:

Private Sub Comando226_Click()
Dim Rs As DAO.Recordset
Dim Db As DAO.Database
Dim Ws As DAO.Workspace

Set Ws = DBEngine.Workspaces(0)
Set Db = Ws.OpenDatabase(CurrentProject.Path & "\BdExemplo_2.accdb", False, False, "MS Access;PWD=senha")
Set Rs = CurrentDb.OpenRecordset("tblBase_Endereços")

Do While Not Rs.EOF
    Db.Execute "Insert Into tblBase_Endereços (Campo1, Campo2) values (""" & Rs(1) & """, """ & Rs(2) & """)"
Rs.MoveNext
Loop
End Sub


Cumprimentos.

Abençoadinho esta assim agora,cada vez que clico no botão ele cadastra tudo de novo no bd2, ele repete o que ja esta cadastrado,tem mais algo a fazer para que não repita os itens que ja estão no cadastro,só cadastrar o que não tem no bd2.
abç

Configue a tabela para que um dos campos.. não permita duplicidades...

Propriedade Indexado Sim (Duplicacao não autorizada)


Cumprimentos.

isso..isso..isso: 

Resolveu então?

Piloto eu modifiquei o teu exemplo,mas veja oque esta errado que não da certo agora.
Estou modificando no exemplo pra depois ir pro bd original.

E qual erro dá Kaynan?

https://dl.dropboxusercontent.com/u/90217826/BdExemplo_1.zip

Ola,numero de valores da consulta e campos de destino não coinsidem.Com o primeiro código consegui fazer modificações,mas com esse outro não pude.

Obs:eu mudei os nomes de propósito para depois fazer no outro bd,mas ja modifiquei de todos os jeito e não da certo.
veja pra isso pra mim que terminamos essa lida.

Kaynan.. voce está inserindo valores de campos no recordset em campos na tabela, portanto tem que ter a mesma quantidade de campos e valores...

Veja:


Db.Execute "Insert Into tblCliente (Cliente, Endereco, Cidade) values (""" & Rs(1) & """, """ & Rs(2) & """)"


Onde está o valor referente ao campo em azul?

Lembrando que Rs(0) >>>> Primeiro campo do recordset = Primeiro campo da tabela
Lembrando que Rs(1) >>>> Segundo campo do recordset = Segundo campo da tabela

etc, etc e etc....


Cumprimentos.

Beleza Piloto,só mais uma coisinha pra entender de vez,os campos do segundo bd não presisa ser igual ao do primeiro certo,só cuidar pra por os valores correspondente a cada campo é isso.

Abçs.

Correto... porém o nome dos campos tem que ser o nome do campo do bd a ser inserido.

Cunprimentos.

Então valeu meu amigo,vou tentar aplicar em meu aplicativo,por hora obrigado abençoado.
Abraços.

O Fórum agradece o Retorno.

Piloto veja se tem algo errado no código,aperto o botão inserir da o aviso Inserido mas não aparece nada na tabela do bd a ser inserido,os dois bd estão na area de trabalho. O nome do bd a ser inserido é "Comercio2.0", o nome da tabela de clientes do bd1 é "Cliente", o do bd2 também é "Cliente",não da aviso de erro nenhum só os dados não são inseridos.
Que será. Abçs.

Private Sub Inserir_Click()
Dim Rs As DAO.Recordset
Dim Db As DAO.Database
Dim Ws As DAO.Workspace
MsgBox "Registo Inserido", vbInformation, "INSERIDO"

Set Ws = DBEngine.Workspaces(0)
Set Db = Ws.OpenDatabase(CurrentProject.Path & "\Comercio2.0.accdb", False, False, "MS Access;PWD=senha")
Set Rs = CurrentDb.OpenRecordset("Cliente") 'tabBd1'

Do While Not Rs.EOF
                                            'TabBd2............................'
Db.Execute "Insert Into Cliente (Data, Nome, Endereco, Numero, Complemento, Bairro, Cep, Fone, Cidade, Estado, CPF, RG, Email) values (""" & Rs(0) & """, """ & Rs(1) & """, """ & Rs(2) & """,""" & Rs(3) & """,""" & Rs(4) & """, """ & Rs(5) & """,""" & Rs(6) & """,""" & Rs(7) & """, """ & Rs( & """,""" & Rs(9) & """,""" & Rs(10) & """,""" & Rs(11) & """,""" & Rs(12) & """)"
Rs.MoveNext
Loop
End Sub

Kaynan.. da a mensagem porque voce a colocou antes de inserir...

Deves ver como estao os seus campos.. se permite duplicacao....

Se la ja tiver o mesmo registro nao vai inserir...
Eu recomendo que va acrescentando os campo gradativamente e testando...

Aparentemente a instrução está correta..
mas sem ambos os bancos nao tenho como testar...

Sinto.


Private Sub Inserir_Click()
Dim Rs As DAO.Recordset
Dim Db As DAO.Database
Dim Ws As DAO.Workspace

Set Ws = DBEngine.Workspaces(0)
Set Db = Ws.OpenDatabase(CurrentProject.Path & "\Comercio2.0.accdb", False, False, "MS Access;PWD=senha")
Set Rs = CurrentDb.OpenRecordset("Cliente") 'tabBd1'

Do While Not Rs.EOF
Db.Execute "Insert Into Cliente (Data, Nome, Endereco, Numero, Complemento, Bairro, Cep, Fone, Cidade, Estado, CPF, RG, Email) values (""" & Rs(0) & """, """ & Rs(1) & """, """ & Rs(2) & """,""" & Rs(3) & """,""" & Rs(4) & """, """ & Rs(5) & """,""" & Rs(6) & """,""" & Rs(7) & """, """ & Rs( & """,""" & Rs(9) & """,""" & Rs(10) & """,""" & Rs(11) & """,""" & Rs(12) & """)"
Rs.MoveNext
Loop
MsgBox "Registo Inserido", vbInformation, "INSERIDO"
End Sub

Piloto o bd2 não tem nada inserido eu exclui todos os dados,por isso não a problemas com duplicação.
se der uma olhada envio os dois bd.

Obs:Minha net ta terrvel hoje.

https://dl.dropboxusercontent.com/u/98318720/Sistema%20de%20OS.zip

https://dl.dropboxusercontent.com/u/98318720/Comercio2.0.zip

Piloto segue os dois bd, o Bd sistema de OS é o bd1 no FormCliente é que coloquei o botão pra inserir os dados no outro bd "Comercio2.0.

Veja se descobre algo errado.
Obrigado desde ja amigo.

Envie-me os dois, citando os forms e tabelas envolvidos.

Cumprimentos.

Ola PIloto esta ai no post a cima.
O Bd "Sistema de OS" é o bd1, no FormCliente é que coloquei o botão pra inserir os dados no outro cadastro de cliente do segundo bd "Comercio2.0" que é o formulario "Cliente"

Até mais.

Piloto descobriu alguma coisa.

Estão em 2010... poste em 2007.

Cumprimentos.

https://dl.dropboxusercontent.com/u/90217826/Dds.zip

Piloto veja neste bd "Comercio2.01" que é pra ser inserido os dados dos clientes do Bd "ComJARS".
Fiz teste com outro bd e deu certo só neste ai "Comercio2.01" que não vai.

O botão esta no frmCliente do bd ComJARS.que é para aparecer os dados na tabela "Clientes"do outro bd.

Obs:Com o bd aberto ao apertar o botão "Bd2" vem uma mensagem dizendo item não encontrado nesta coleção,mas se abrir o cadasdtro de cliente pelo menu não diz nada.

Veja oque pode fazer.
Abçs.

Se voce ler o meu post anterior posso fazer algo sim..

Cumprimentos.

https://dl.dropboxusercontent.com/u/90217826/Comercio2.01.mdb

https://dl.dropboxusercontent.com/u/90217826/ComJARS.mdb

Mas esta em 2003.

Ok.. me fale o form e o botão...  qual bd receberá os dados?

Vamos ver se encerramos este tópico.. já está demasiado longo.


Cumprimentos.

Também acho abençoado o Bd que recebera os dados é o "Comercio2.01",o botão esta no outro bd formCliente,do bd"ComJARS"

Kaynan.. Veja se entende....

Voce está carregando no recordset uma tabela...
Set Rs = CurrentDb.OpenRecordset("Clientes") 'tabBd1'

Correto?

Quantos campos tem esta tabela? >>>>>>>>>. 11 Campos

Quantos campos colocou no código?

Db.Execute "Insert Into Clientes (Data, Nome, Endereco, Numero, Complemento, Bairro, Cep, Fone, Cidade, Estado, CPF) values (""" & Rs(0) & """, """ & Rs(1) & """, """ & Rs(2) & """,""" & Rs(3) & """,""" & Rs(4) & """, """ & Rs(5) & """,""" & Rs(6) & """,""" & Rs(7) & """, """ & Rs( & """,""" & Rs(9) & """,""" & Rs(10) & """,""" & Rs(11) & """,""" & Rs(12) & """)"

Faz a conta ai... do Rs(0) ao Rs(12) >>>>>>> São 13 campos!!!!!!

E outro detalhe.. o Rs(0) é o campo da chave primária... este não vai par ao outro bd...
E tambem está inserindo os campos de forma invertida...


Faça assim.. ao invés de utilizar
Rs(1)..... substitua por Rs!Nome
Rs(2)..... substitua por Rs!Endereço

e assim sucessivamente.... logico combinando o Rs!... com o campo na tabela...

as posições na instrução entendeu....

Db.Execute "Insert Into Clientes (Campo1,Campo2) values (""" & Rs(0) & """, """ & Rs(1) & """)"


Suponha que a informação contida em Rs(1) deva ser inserida no campo1, então:

Db.Execute "Insert Into Clientes (Campo1,Campo2) values (""" & Rs(1) & """,""" & Rs(0) & """)"



É isso ai.. mais mastigado impossível

Piloto tentei mas não ta dando certo,ali no,Db.Execute "Insert Into Clientes(é os campos da tabela que vai receber os dados do primeiro Bd certo? então porque essa tabela não recebe.

Porque ta errado a instrução amigo.. e os campos não estão batendo...

Leia atentamente o que te falei acima!!!!

Te que colocar  o Value respectivo para cada campo....

Se tentar colocar um dado tipo texto em um campo tipo numero vai dar erro...

Esta tudo explicado ai acima amigão

Vou tentar mais uma vez,ja ta me doendo os calo dos dedos.

Tem jeito não Piloto,vou deixar como esta,não sou programador como sabes, por isso algo simples pra voce é dificil pra mim.
Obrigado por teu tempo comigo.
Abçs,abençoado.

Poste o código que fez nesta sua última tentativa.

Cumprimentos.

Private Sub Comando69_Click()
Dim Rs As DAO.Recordset
Dim Db As DAO.Database
Dim Ws As DAO.Workspace

Set Ws = DBEngine.Workspaces(0)
Set Db = Ws.OpenDatabase(CurrentProject.Path & "\Comercio2.01.mdb", False, False, "MS Access;PWD=senha")
Set Rs = CurrentDb.OpenRecordset("Clientes") 'tabBd1'

Do While Not Rs.EOF
Db.Execute "Insert Into Cliente (Data, Nome, Endereco, Numero, Complemento, Bairro, Cep, Fone, Cidade, Estado, CPF) values (""" & Rs!Data & """, """ & Rs!Nome & """, """ & Rs!Endereco & """,""" & Rs!Numero & """,""" & Rs!Complemento & """, """ & Rs!Bairro & """,""" & Rs!CEP & """,""" & Rs!Fone & """, """ & RsCidade & """,""" & Rs!Estado & """,""" & Rs!CPF & """)"
Rs.MoveNext
Loop
MsgBox "Registo Inserido", vbInformation, "INSERIDO"

End Sub

Pura falta de atenção Kaynan!

Veja a expressão:

(""" & Rs!Data & """, """ & Rs!Nome & """, """ & Rs!Endereco & """,""" & Rs!Numero & """,""" & Rs!Complemento & """, """ & Rs!Bairro & """,""" & Rs!CEP & """,""" & Rs!Fone & """, """ & RsCidade & """,""" & Rs!Estado & """,""" & Rs!CPF & """)"



Estes são os campos do recordset relativos à tabela Clientes no BD ComJars.mdb....

Pois bem... na tabela cliente no BD ComJars.mdb tem algum campo com nome de >>> Data <<Nas expressões acima.. nada mais é que o nome do Campo:  Rs!NomeDoCampoNaTabela... e la não tem campo Data então Rs!Data não existe!!!!!

Verifique todos os nomes e corrija de acordo com a tabela clientes no BD ComJars.mdb


Cumprimentos.

Private Sub Comando69_Click()
Dim Rs As DAO.Recordset
Dim Db As DAO.Database
Dim Ws As DAO.Workspace

Set Ws = DBEngine.Workspaces(0)
Set Db = Ws.OpenDatabase(CurrentProject.Path & "\Comercio2.01.mdb", False, False, "MS Access;PWD=senha")
Set Rs = CurrentDb.OpenRecordset("Clientes") 'tabBd1'

Do While Not Rs.EOF
Db.Execute "Insert Into Cliente (Nome, Endereço, RG, Telefone, Celular, Cidade, Obs, Estado, Data do Cadastro, CPF) values (""" & Rs!Nome & """, """ & Rs!Endereço & """,""" & Rs!RG & """,""" & Rs!Telefone & """, """ & Rs!Celular & """,""" & Rs!Cidade & """,""" & Rs!Obs & """,""" & Rs!Estado & """,""" & Rs!Data do Cadastro & """ & Rs!CPF & """)"
Rs.MoveNext
Loop
MsgBox "Registo Inserido", vbInformation, "INSERIDO"

End Sub

Agora da erro de compilação, Piloto eu achei que ia os nomes dos campos da tabela do segundo Bd,então to bem:confused: fora

Veja após o Values, nos campos dos recordset nos dois últimos campos... onde está o erro...

Cumprimentos.