AJUDA.. BANCO DE DADOS DAO

RDPISA 20/06/2017 13:38:51
#474627
Ola tenho um programa de cadastro de associados com varios campos, estava instalado em uma maquina ja com alguns cadastros, resolvi compartilhar este banco de dados em uma outra maquina que ficou como servidor, tem varios pcs que acessa este banco de dados. Só que um desavisado foi no antigo pc e cadastrou varios registros, e agora como faço para copiar estes registros para o banco de dados que esta no servidor sem duplicar os que ja estão cadastrados. ou seja só copia os cadastro novos.....

fiz assim mas da erro dis que ta duplicando index..

Private Sub Command2_Click()

Dim copiar As Integer

Do
If Databanco.Recordset!CadData = Databanco1.Recordset!CadData Then [txt-color=#e80000]===> Aqui é que não sei o que fazer pra pular quando o registro for igual..[/txt-color]
Databanco1.Recordset.MoveNext
If Databanco1.Recordset.EOF Then
MsgBox [Ô]Fim[Ô]
copiar = 101
Else
End If
Else

Databanco.Recordset.AddNew
Databanco.Recordset!CadData = Databanco1.Recordset!CadData
Databanco.Recordset!Cadastro = Databanco1.Recordset!Cadastro
Databanco.Recordset!Nome = Databanco1.Recordset!Nome
Databanco.Recordset!DataNascimento = Databanco1.Recordset!DataNascimento
Databanco.Recordset!RG = Databanco1.Recordset!RG
Databanco.Recordset!CPF = Databanco1.Recordset!CPF
Databanco.Recordset!Endereço = Databanco1.Recordset!Endereço
Databanco.Recordset!Numero = Databanco1.Recordset!Numero
Databanco.Recordset!Complemento = Databanco1.Recordset!Complemento
Databanco.Recordset!Bairro = Databanco1.Recordset!Bairro
Databanco.Recordset!Fone = Databanco1.Recordset!Fone
Databanco.Recordset!Cel = Databanco1.Recordset!Cel
Databanco.Recordset!Observacao = Databanco1.Recordset!Observacao
Databanco.Recordset.Update


End If
copiar = copiar + 1
Loop While copiar <= 100

End Sub
DAMASCENO.CESAR 20/06/2017 15:58:42
#474629 Resposta escolhida
pesquise sobre if not exists
RDPISA 23/06/2017 23:59:18
#474704
flw consegui
Tópico encerrado , respostas não são mais permitidas
Voltar