INCLUSÃO DE DADOS

FANY2016 27/04/2016 08:19:35
#461484
Oie...!?

Alguém tem um exemplo ou idéia de inclusão de dados da (primeira tabela) para a (segunda tabela) sem repetição de dados via codigo vb?

Ou seja, copiar os dados da 1° tabela para a 2° tabela.

[ô]Este exemplo abaixo copia, mas com dados repetidos que dá erro devido a chave primaria de ambas as tabelas.

[ô]Rotina
Dim sSQL As String
sSQL = [Ô] [Ô]
sSQL = [Ô]INSERT INTO tblUM (Codigo, Nome)[Ô]
sSQL = sSQL & [Ô]SELECT Codigo, Nome FROM tblDOIS[Ô]
cnn.Execute (sSQL)
DS2T 27/04/2016 11:24:59
#461500
Você precisará colocar uma condição WHERE usando a cláusula NOT EXISTS pra verificar se os dados já não existem na tabela UM.
Tente rascunhar alguma coisa aí, se tiver alguma dúvida dá um toque..
FANY2016 27/04/2016 11:51:30
#461507
Citação:

:
Você precisará colocar uma condição WHERE usando a cláusula NOT EXISTS pra verificar se os dados já não existem na tabela UM.
Tente rascunhar alguma coisa aí, se tiver alguma dúvida dá um toque..



tem com vc postar um exemplo de cláusula dessa condição?
JOAOBENEVIDES 27/04/2016 12:08:44
#461510
qual seu banco de dados ?
JOAOBENEVIDES 27/04/2016 12:10:33
#461511
segue exemplo

https://technet.microsoft.com/pt-br/library/ms184297(v=sql.105).aspx

http://stackoverflow.com/questions/20971680/sql-server-insert-if-not-exist
FANY2016 27/04/2016 12:45:21
#461515
Citação:

:
qual seu banco de dados ?


Banco de Dados ACCESS.
JOAOBENEVIDES 27/04/2016 15:08:15
#461524
esta o exemplo acima da sua questao
FANY2016 27/04/2016 17:30:44
#461539
Citação:

:
esta o exemplo acima da sua questao



NOT EXISTS funciona como EXISTS, exceto pela cláusula WHERE em que é usado para ser atendido se nenhuma linha for retornada pela subconsulta.

Por exemplo, para localizar os nomes de produtos que não estão na subcategoria rodas:

Não entendo o exemplo.

SELECT Name
FROM Production.Product
WHERE NOT EXISTS
(SELECT *
FROM Production.ProductSubcategory
WHERE ProductSubcategoryID =
Production.Product.ProductSubcategoryID
AND Name = [ô]Wheels[ô])
OMAR2011 27/04/2016 18:44:45
#461541
Criei uma tabela tblclientes com numeração automática com campos idênticos.
Dim sSQL As String
sSQL = [Ô] [Ô]
sSQL = [Ô]INSERT INTO tblclientes (Nome,endereco,bairro,cep,cidade,uf,email,celular)[Ô]
sSQL = sSQL & [Ô]SELECT Distinct Nome,endereco,bairro,cep,cidade,uf,email,celular FROM tblcliente[Ô]
Cnn.Execute (sSQL)

Observação para chave primária.
FANY2016 27/04/2016 23:58:51
#461555
Citação:

:
Criei uma tabela tblclientes com numeração automática com campos idênticos.
Dim sSQL As String
sSQL = [Ô] [Ô]
sSQL = [Ô]INSERT INTO tblclientes (Nome,endereco,bairro,cep,cidade,uf,email,celular)[Ô]
sSQL = sSQL & [Ô]SELECT Distinct Nome,endereco,bairro,cep,cidade,uf,email,celular FROM tblcliente[Ô]
Cnn.Execute (sSQL)

Observação para chave primária.



Seguir o 1° exemplo:
Resultado: Run-time error [ô]21...
As alterações solicitada para a tabela não foram satisfatórias... etc
(Porque ambas as tabelas tem chaves primaria onde não pode repetir)

O 2° teste: deu certo porque tirei a chave primaria. MAS OS DADOS DA TABELA FICARAM REPETIDOS.
OMAR2011 28/04/2016 10:03:16
#461567 Resposta escolhida
Estou com outro notebook onde não tem nenhum programa instalado.
Vou pegar seu projeto e modificar e postar.
Houve uma falha na configurações de atualização,e a hora que reverter.
ai sim mandarei.
Página 1 de 2 [14 registro(s)]
Tópico encerrado , respostas não são mais permitidas
Voltar