insert em duas tabelas

[lucianowolff 0]

boa tarde galera sou novo em programação e estou com uma duvida em inserir dados em duas tabelas como faço isso?

 

<%

Set conn = Server.CreateObject("ADODB.Connection")

conn.Open Application("str_conexao")

 

1 tabela(clientes)

nome = trim(request.form("nome"))

idade = trim(request.form("idade"))

estadocivil = request.form("estadocivil")

sexo = request.form("sexo")

rg = trim(request.form("rg"))

cpf = trim(request.form("cpf"))

 

2tabela(endereco)

endereco = trim(request.form("endereco"))

bairro= trim(request.form("bairro"))

estado = request.form("estado")

cidade = trim(request.form("cidade"))

telefone = trim(request.form("telefone"))

 

Set rscliente = Server.CreateObject("ADODB.RecordSet")

sql = "INSERT INTO Clientes(nome, idade, estadocivil, sexo, rg, cpf, endereco, bairro,estado,cidade,telefone) "

sql = sql & "VALUES ('" & nome & "', '" & idade & "', '" & estadocivil & "', '" & sexo & "', '" & rg & "' , "

sql = sql & "'" & cpf & "' , '" & endereco & "' , '" & bairro & "' , '" & estado & "' , '" & cidade & "', '" & telefone & "') "

rscliente.open sql, conn, 1, 1

response.redirect "inserir.asp?msg=1"

set rscliente = nothing

set conn = nothing

 

%>

[Mário Monteiro 179]

para facilitar poe um campo de autonumeros em ambas e mais um campo chave estrageira na segunda pra fazer o relacionamento antes de inserir dados...

[lucianowolff 0]

isso eu ja fiz mais minha duvida tenho que fazer dois recordsert para isso ou da para fazer em um só

[Mário Monteiro 179]

faça com dois, recupere o id do primeiro insertt e use no outro...

[lucianowolff 0]

essa que é a duvida como recoper o id você tem um exemplo parea me mostrar pois procurei em varia lugares e nao achei nada.

[Mário Monteiro 179]

bem uma forma simples é selecionar o registros a apartir dos dados que você acabou de inserir, outra é inserir junto com os dados um campo numerico extra e unico, ou seja você deverá incrementa-lo, como este será conheceido você seleciona o id a partir deste campo....

[lucianowolff 0]

cara acho que assim nao vou conseguir...preciso de um exemplo na realolha o meu codigocara por favor me ajude sempre nao consigo fazer isso quero aprender e resolver esse problema <%nome = trim(request.form("nome"))idade = trim(request.form("idade"))estadocivil = request.form("estadocivil")sexo = request.form("sexo")rg = trim(request.form("rg"))cpf = trim(request.form("cpf"))endereco = trim(request.form("endereco"))bairro= trim(request.form("bairro"))estado = request.form("estado")cidade = trim(request.form("cidade"))telefone = trim(request.form("telefone"))Set conn = Server.CreateObject("ADODB.Connection")conn.Open Application("str_conexao")Set objRS=Server.CreateObject("ADODB.RecordSet")Set objRS2 = Server.CreateObject("ADODB.RecordSet")Set rscliente = Server.CreateObject("ADODB.RecordSet")sql = "SELECT * FROM tblCliente cli INNER JOIN tblEndereco end ON cli.codCliente = end.codClienterscliente.open sql, conn, 1, 1' Adicinando os dados na primeira tabela com' o método addnew do recordsetobjRS.AddNewobjRS("codCliente")=strcodClienteobjRS("nome")= strnomeobjRS("idade")= stridadeobjRS("estadocivil")= strestadocivilobjRS("sexo")= strsexoobjRS("rg")= strrgobjRS("cpf")= strcpfobjRS.Update ' Atualizando o recordset' Segundo recordset para adicionar os dados a segunda tabelaobjRS2.AddNewobjRS2("codCliente")=strcodClienteobjRS2("endereco")= strenderecoobjRS2("bairro")= strbairroobjRS2("estado")= strestadoobjRS2("cidade")= strcidadeobjRS2("estado")= strestadoobjRS2.Update ' Atualizando o segundo recordset' E os dados foram cadastrados com o dois recordsets' cada um em sua tabela do banco de dadosrscliente.closeobjRS.CloseobjRS2.CloseobjConn.CloseSet objRS = NothingSet objRS2 = NothingSet objConn = Nothing%><%'Set rs=Server.CreateObject("ADODB.RecordSet")'Set rs1 = Server.CreateObject("ADODB.RecordSet")'sql = "INSERT INTO Clientes(nome, idade, estadocivil, sexo, rg, cpf, endereco, bairro, estado, cidade, telefone) "'sql = sql & "VALUES ('" & nome & "', '" & idade & "', '" & estadocivil & "', '" & sexo & "', '" & rg & "' , "'sql = sql & "'" & cpf & "' , '" & endereco & "' , '" & bairro & "' , '" & estado & "' , '" & cidade & "', '" & telefone & "') "'conn.execute sql'response.redirect "inserir.asp?msg=1"'rscliente.close'conn.close'set conn = nothing'%>

[Mário Monteiro 179]

como disse um modo simples é selecionar a partir do que você inseriu

 

antes de adicionar o segunto seleciona o id

 

[tr][/tr][tr][/tr]

ASP

Set rsId = Server.CreateObject("ADODB.RecordSet") sql = "SELECT Id FROM tblCliente WHERE codCliente = " & strcodCliente & " AND nome = " & strnome & " AND idade = " & stridade & " AND estadocivil = " & strestadocivil & " AND sexo = " & strsexo & " AND rg = " & strrg & " AND cpf = " & strcpf & "" rsId .open sql, conn, 1, 1

 

logico que o codigo acima deve dar erro, pois não sei os tipos de dados de seus campos, mas poe aspas nos que forem texto e muda o nome do campo Id para o correto, assim você pega este valor e usa no outro insert

[lucianowolff 0]

aminha dificuldade nao é o select mas sim os insrts nao consegui inserir na vase porque tenho que onserir todos os dados nas tabelas é isso que nao consigoentendeu!!!!!!!

[dark0 0]

você nao consegue inserir os dados nas tabelas?

 

Brother, se liga na sintaxe:

 

Sql = "Insert Into tabela (nome_campo_tabela) values ('valor_do_formulario')"

Conexao.execute(Sql)

 

Seguindo essa sintaxe, basta adicionar os campos e os valores..

Nao tem misterio cara ..!

 

Veja o que você nao ta conseguindo ae, e posta o trecho do codigo que você ta errando, assim fica mais facil..

Veja bem.. eu disse o trecho do codigo.. E nao a pagina toda..

 

Abraços

[lucianowolff 0]

cara e o seguinte preicso inserir os dados em duas tabelas atraves de um forma apenas, sera que fui claro o insert eu sei fazer mais o relacionamento entre as tabelas que nao sei como pegar o id da tabela usuarios e passar para a tabela endereco

 

e isso apenas mais nada!!!!!

 

 

 

<%

'tabela usuarios

nome = trim(request.form("nome"))

idade = trim(request.form("idade"))

estadocivil = request.form("estadocivil")

sexo = request.form("sexo")

rg = trim(request.form("rg"))

cpf = trim(request.form("cpf"))

 

 

'tabela endereco

endereco = trim(request.form("endereco"))

bairro= trim(request.form("bairro"))

estado = request.form("estado")

cidade = trim(request.form("cidade"))

telefone = trim(request.form("telefone"))

 

Set conn = Server.CreateObject("ADODB.Connection")

conn.Open Application("str_conexao")

 

Set rsusuario = Server.CreateObject("ADODB.RecordSet")

sql = "INSERT INTO Usuario(nome, idade, estadocivil, sexo, rg, cpf) "

sql = sql & "VALUES ('" & nome & "', '" & idade & "', '" & estadocivil & "', '" & sexo & "', '" & rg & "','" & cpf & "') "

conn.execute sql

 

Set rs = Server.CreateObject("ADODB.RecordSet")

sql = "SELECT * FROM Usuario user INNER JOIN Endereco end ON user.cod_user = end.cod_user "

rs.open sql, conn, 1, 1

 

Set rs = Server.CreateObject("ADODB.RecordSet")

sql = "INSERT INTO Endereco(endereco, bairro, estado, cidade, telefone)"

sql = sql & "'" & endereco & "' , '" & bairro & "' , '" & estado & "' , '" & cidade & "', '" & telefone & "') "

conn.execute sql

 

response.redirect "inserir.asp?msg=1"

rsusuario.close

conn.close

set conn = nothing

%>

 

 

acho que fui claro, espero que tenham entendido a minha, preciso saber como trablhar com duas tabelas principalmante inserindo dados nela