INSERIR DADOS EM DUAS TABELAS

MARCELOSN 20/03/2013 22:59:16
#420837 Resposta escolhida

No caso as tabelas não estão unica, ou seja, temos uma tabela de cadastro de ASSOCIADO com varios dados mas sem ENDEREÇO
Normalmente e feito como uma unica tabela com todas as informações


O que poderia ser diferente na minha anlise e o caso do Associado PAI ter outros associados agregado ao registro delel, onde tem a necessidade de fazer a inserção em outra tabela para agrupar.
Ao olha o insert não esta presente....

AISLANSANTOS 20/03/2013 23:03:11
#420838

Pessoal deu certo com o seguinte Código:

Dim myCmd As New Odbc.OdbcCommand
Dim myCmd2 As New Odbc.OdbcCommand
myCmd.Connection = conn
myCmd.CommandText = [Ô]INSERT INTO Associados (razao_social, nome_fantasia, cnpj, inscricao_estadual, inscricao_municipal, afe, responsavel, cidade) [Ô] & _
[Ô] VALUES( [ô][Ô] & Tb_RazaoSocial.Text & [Ô][ô], [ô][Ô] & Tb_NomeFantasia.Text & [Ô][ô], [ô][Ô] & Tb_CNPJ.Text & [Ô][ô], [ô][Ô] & Tb_InscEstadual.Text & [Ô][ô], [ô][Ô] & Tb_InscMunicipal.Text & [Ô][ô], [ô][Ô] & Tb_Afe.Text & [Ô][ô], [ô][Ô] & Tb_Resp.Text & [Ô][ô], [ô][Ô] & Tb_Cidade.Text & [Ô][ô] )[Ô]


Dim ULTIMOREGISTRO As Integer
ULTIMOREGISTRO = myCmd.ExecuteScalar()
myCmd2.Connection = conn
myCmd2.CommandText = [Ô]INSERT INTO enderecos (rua_end, numero_end, bairro_end, cidade_end, uf_end, complemento_end, ID_associados)[Ô] & _
[Ô] VALUES ( [ô][Ô] & Tb_Rua.Text & [Ô][ô] , [ô][Ô] & Tb_Numero.Text & [Ô][ô] , [ô][Ô] & Tb_Bairro.Text & [Ô][ô] , [ô][Ô] & Tb_Cidade2.Text & [Ô][ô] , [ô][Ô] & Cb_Estado.Text & [Ô][ô] , [ô][Ô] & Tb_Complemento.Text & [Ô][ô], [Ô] & ULTIMOREGISTRO & [Ô] ) [Ô]
myCmd2.ExecuteNonQuery()


Muito Obrigado, pela ajuda.