AJUDA.. BANCO DE DADOS DAO

 Tópico anterior Próximo tópico Novo tópico

AJUDA.. BANCO DE DADOS DAO

VB.NET

 Compartilhe  Compartilhe  Compartilhe
#474627 - 20/06/2017 13:38:51

RDPISA
CATANDUVA
Cadast. em:Junho/2017


Última edição em 20/06/2017 14:55:13 por RDPISA

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 fao para copiar estes registros para o banco de dados que esta no servidor sem duplicar os que ja esto 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  ===> Aqui que no sei o que fazer pra pular quando o registro for igual..
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!Endereo = Databanco1.Recordset!Endereo
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


Rogrio D Pinto


Resposta escolhida #474629 - 20/06/2017 15:58:42

DAMASCENO.CESAR
ADAMANTINA
Cadast. em:Fevereiro/2009


pesquise sobre if not exists

O conhecimento como o dinheiro: quanto mais temos, mais queremos ter (Josh Billings)  


#474704 - 23/06/2017 23:59:18

RDPISA
CATANDUVA
Cadast. em:Junho/2017


flw consegui


Rogrio D Pinto


 Tópico anterior Próximo tópico Novo tópico


Tópico encerrado, respostas não sao permitidas
Encerrado por RDPISA em 23/06/2017 23:59:33