Ir para conteúdo
Fórum Script Brasil
  • 0

Ligar Tabelas


carravetta

Pergunta

Bom Dia Pessoal

Estou fazendo um formulario passo a passo, pois ele é muito grande são 5 passos. Gostaria de ligar duas tabelas, como eu faço para pegar o ID da primeira para ligarcom a próxima.

<% @ language="Vbscript" %>
<%
'#########################################################
'#                                                       #
'#              Joelmir Carravetta Matthes               #
'#                     Web Designer                      #
'#               joelmircarravetta@MSN.com               #
'#                                                       #
'#########################################################

strURLdb     = "db/database.mdb"
RecPerPag    = 10
%>

<%
   strAction              = request("action")
   strId_voce             = request("id_voce")
   strId_voce_residencial = request("id_voce_residencial")
   strId_voce_trabalho    = request("id_voce_trabalho")
   strId_voce_referencia  = request("id_voce_referencia")
   strId_voce_conjuge     = request("id_voce_conjuge")
   strId_voce_cartao      = request("id_voce_cartao")
   
   if strAction = "envia_proposta_voce" then
   strCpf_voce             = Request("cpf_voce")
   strNome_voce            = Request("nome_voce")
   strData_nascimento_voce = Request("data_nascimento_voce")
   strSexo_voce            = Request("sexo_voce")
   strIdentidade_voce      = Request("identidade_voce")
   strOrgao_emissor_voce   = Request("orgao_emissor_voce")
   strData_emissao_voce    = Request("data_emissao_voce")
   strEstado_civil_voce    = Request("estado_civil_voce")
   strDependentes_voce     = Request("dependentes_voce")
   strNome_mae_voce        = Request("nome_mae_voce")
   strEmail_voce           = Request("email_voce")
   strSite_voce            = Request("site_voce")
   end if
   
   if strAction = "envia_proposta_residencial" then
   strEndereco_residencial            = Request("endereco_residencial")
   strNumero_residencial              = Request("numero_residencial")
   strComplemento_residencial         = Request("complemento_residencial")
   strBairro_residencial              = Request("bairro_residencial")
   strCidade_residencial              = Request("cidade_residencial")
   strUf_residencial                  = Request("uf_residencial")
   strCep_residencial                 = Request("cep_residencial")
   strData_residencial                = Request("data_residencial")
   strSituacao_residencia_residencial = Request("situacao_residencia_residencial")
   strTelefone_residencial            = Request("telefone_residencial")
   strRamal_residencial               = Request("ramal_residencial")
   strTelefone_situacao_residencial   = Request("telefone_situacao_residencial")
   end if
   
   if strAction = "envia_proposta_trabalho" then
   strNome_trabalho                  = Request("nome_trabalho")
   strData_inicio_trabalho           = Request("data_inicio_trabalho")
   strSalario_trabalho               = Request("salario_trabalho")
   strCargo_trabalho                 = Request("cargo_trabalho")
   strNatureza_trabalho              = Request("natureza_trabalho")
   strEndereco_trabalho              = Request("endereco_trabalho")
   strNumero_trabalho                = Request("numero_trabalho")
   strComplemento_trabalho           = Request("complemento_trabalho")
   strBairro_trabalho                = Request("bairro_trabalho")
   strCidade_trabalho                = Request("cidade_trabalho")
   strUf_trabalho                    = Request("uf_trabalho")
   strCep_trabalho                   = Request("cep_trabalho")
   strTelefone_trabalho              = Request("telefone_trabalho")
   strRamal_trabalho                 = Request("ramal_trabalho")
   strOutras_rendas_trabalho         = Request("outras_rendas_trabalho")
   strSalario_outras_rendas_trabalho = Request("salario_outras_rendas_trabalho")
   end if
   
   if strAction = "envia_proposta_referencia" then
   strNome_1_referencia               = Request("nome_1_referencia")
   strTelefone_1_referencia           = Request("telefone_1_referencia")
   strRamal_1_referencia              = Request("ramal_1_referencia")
   strNome_2_referencia               = Request("nome_2_referencia")
   strTelefone_2_referencia           = Request("telefone_2_referencia")
   strRamal_2_referencia              = Request("ramal_2_referencia")
   strNumero_banco_referencia         = Request("numero_banco_referencia")
   strNumero_agencia_referencia       = Request("numero_agencia_referencia")
   strNumero_conta_referencia         = Request("numero_conta_referencia")
   strCheque_especial_referencia      = Request("cheque_especial_referencia")
   strCartao_master_referencia        = Request("cartao_master_referencia")
   strCartao_amex_referencia          = Request("cartao_amex_referencia")
   strCartao_sollo_referencia         = Request("cartao_sollo_referencia")
   strCartao_diners_referencia        = Request("cartao_diners_referencia")
   strCartao_loja_referencia          = Request("cartao_loja_referencia")
   strCartao_nenhuma_referencia       = Request("cartao_nenhuma_referencia")
   strCartao_outros_referencia        = Request("cartao_outros_referencia")
   strCartao_data_validade_referencia = Request("cartao_data_validade_referencia")
   strCartao_numero_referencia        = Request("Cartao_numero_referencia")
   end if 

   if strAction = "envia_proposta_conjuge" then
   strCpf_conjuge                = Request("cpf_conjuge")
   strNome_conjuge               = Request("nome_conjuge")
   strData_nascimento_conjuge    = Request("data_nascimento_conjuge")
   strEmpresa_conjuge            = Request("empresa_conjuge")
   strTelefone_comercial_conjuge = Request("telefone_comercial_conjuge")
   strRamal_conjuge              = Request("ramal_conjuge")
   strSalario_conjuge            = Request("salario_conjuge")
   end if
   
   if strAction = "envia_proposta_cartao" then
   strVencimento_cartao                 = Request("vencimento_cartao")
   strNome_cartao                       = Request("nome_cartao")
   strNome_dependente_cartao            = Request("nome_dependente_cartao")
   strData_nascimento_dependente_cartao = Request("data_nascimento_dependente_cartao")
   strParentesco_cartao                 = Request("parentesco_cartao")
   end if
%> 

<% Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.MapPath(strURLdb) 

'Recordset for add a new VOCE
if strAction="envia_proposta_voce" then
set objCadastra_Voce=server.createobject("adodb.recordset")
sql="select * from voce"
objCadastra_Voce.open sql,conn,3,3

objCadastra_Voce.AddNew
objCadastra_Voce("cpf_voce")             = strCpf_voce
objCadastra_Voce("nome_voce")            = strNome_voce
objCadastra_Voce("data_nascimento_voce") = strData_nascimento_voce
objCadastra_Voce("sexo_voce")            = strSexo_voce
objCadastra_Voce("identidade_voce")      = strIdentidade_voce
objCadastra_Voce("orgao_emissor_voce")   = strOrgao_emissor_voce
objCadastra_Voce("data_emissao_voce")    = strData_emissao_voce
objCadastra_Voce("estado_civil_voce")    = strEstado_civil_voce
objCadastra_Voce("dependentes_voce")     = strDependentes_voce
objCadastra_Voce("nome_mae_voce")        = strNome_mae_voce
objCadastra_Voce("email_voce")           = strEmail_voce
objCadastra_Voce("site_voce")            = strSite_voce
objCadastra_Voce("data_voce")            = Now()
Session("cod_voce")                      = strId_voce
objCadastra_Voce.Update
Session("estado_civil")                  = strEstado_civil_voce
response.redirect "gerenciamento.asp?action=residencial&id_voce_residencial="& strId_voce &""
end if

'Recordset for add a new RESIDENCIAL
if strAction="envia_proposta_residencial" then
set objCadastra_Residencial=server.createobject("adodb.recordset")
sql="select * from residencial where id_voce_residencial="& ID &""
objCadastra_Residencial.open sql,conn,3,3

objCadastra_Residencial.AddNew
objCadastra_Residencial("id_voce_residencial")             = strId_voce_residencial
objCadastra_Residencial("endereco_residencial")            = strEndereco_residencial
objCadastra_Residencial("numero_residencial")              = strNumero_residencial
objCadastra_Residencial("complemento_residencial")         = strComplemento_residencial
objCadastra_Residencial("bairro_residencial")              = strBairro_residencial
objCadastra_Residencial("cidade_residencial")              = strCidade_residencial
objCadastra_Residencial("uf_residencial")                  = strUf_residencial
objCadastra_Residencial("cep_residencial")                 = strCep_residencial
objCadastra_Residencial("data_residencial")                = strData_residencial
objCadastra_Residencial("situacao_residencia_residencial") = strSituacao_residencia_residencial
objCadastra_Residencial("telefone_residencial")            = strTelefone_residencial
objCadastra_Residencial("ramal_residencial")               = strRamal_residencial
objCadastra_Residencial("telefone_situacao_residencial")   = strTelefone_situacao_residencial
objCadastra_Residencial.Update
response.redirect "gerenciamento.asp?action=trabalho"
end if

'Recordset for add a new TRABALHO
if strAction="envia_proposta_trabalho" then
set objCadastra_Trabalho=server.createobject("adodb.recordset")
sql="select * from trabalho where id_voce_trabalho="& strId_voce_trabalho &""
objCadastra_Trabalho.open sql,conn,3,3

objCadastra_Trabalho.AddNew
objCadastra_Trabalho("id_voce_trabalho")               = strId_voce_trabalho
objCadastra_Trabalho("nome_trabalho")                  = strNome_trabalho
objCadastra_Trabalho("data_inicio_trabalho")           = strData_inicio_trabalho
objCadastra_Trabalho("salario_trabalho")               = strSalario_trabalho
objCadastra_Trabalho("cargo_trabalho")                 = strCargo_trabalho
objCadastra_Trabalho("natureza_trabalho")              = strNatureza_trabalho
objCadastra_Trabalho("endereco_trabalho")              = strEndereco_trabalho
objCadastra_Trabalho("numero_trabalho")                = strNumero_trabalho
objCadastra_Trabalho("complemento_trabalho")           = strComplemento_trabalho
objCadastra_Trabalho("bairro_trabalho")                = strBairro_trabalho
objCadastra_Trabalho("cidade_trabalho")                = strCidade_trabalho
objCadastra_Trabalho("uf_trabalho")                    = strUf_trabalho
objCadastra_Trabalho("cep_trabalho")                   = strCep_trabalho
objCadastra_Trabalho("telefone_trabalho")              = strTelefone_trabalho
objCadastra_Trabalho("ramal_trabalho")                 = strRamal_trabalho
objCadastra_Trabalho("outras_rendas_trabalho")         = strOutras_rendas_trabalho
objCadastra_Trabalho("salario_outras_rendas_trabalho") = strSalario_outras_rendas_trabalho
objCadastra_Trabalho.Update
response.redirect "gerenciamento.asp?action=referencia"
end if


'Recordset for add a new REFERENCIA
if strAction="envia_proposta_referencia" then
set objCadastra_Referencia=server.createobject("adodb.recordset")
sql="select * from referencia where id_voce_referencia="& strId_voce_referencia &""
objCadastra_Referencia.open sql,conn,3,3

objCadastra_Referencia.AddNew
objCadastra_Referencia("id_voce_referencia")              = strId_voce_referencia
objCadastra_Referencia("nome_1_referencia")               = strNome_1_referencia
objCadastra_Referencia("telefone_1_referencia")           = strTelefone_1_referencia
objCadastra_Referencia("ramal_1_referencia")              = strRamal_1_referencia
objCadastra_Referencia("nome_2_referencia")               = strNome_2_referencia
objCadastra_Referencia("telefone_2_referencia")           = strTelefone_2_referencia
objCadastra_Referencia("ramal_2_referencia")              = strRamal_2_referencia
objCadastra_Referencia("numero_banco_referencia")         = strNumero_banco_referencia
objCadastra_Referencia("numero_agencia_referencia")       = strNumero_agencia_referencia
objCadastra_Referencia("numero_conta_referencia")         = strNumero_conta_referencia
objCadastra_Referencia("cheque_especial_referencia")      = strCheque_especial_referencia
objCadastra_Referencia("cartao_master_referencia")        = strCartao_master_referencia
objCadastra_Referencia("cartao_amex_referencia")          = strCartao_amex_referencia
objCadastra_Referencia("cartao_sollo_referencia")         = strCartao_sollo_referencia
objCadastra_Referencia("cartao_diners_referencia")        = strCartao_diners_referencia
objCadastra_Referencia("cartao_loja_referencia")          = strCartao_loja_referencia
objCadastra_Referencia("cartao_nenhuma_referencia")       = strCartao_nenhuma_referencia
objCadastra_Referencia("cartao_outros_referencia")        = strCartao_outros_referencia
objCadastra_Referencia("cartao_data_validade_referencia") = strCartao_data_validade_referencia
objCadastra_Referencia("Cartao_numero_referencia")        = strCartao_numero_referencia
objCadastra_Referencia.Update
if Session("estado_civil") = "Casado" then
response.redirect "gerenciamento.asp?action=conjuge"
else
response.redirect "gerenciamento.asp?action=cartao"
end if
end if


'Recordset for add a new conjuge
if strAction="envia_proposta_conjuge" then
set objCadastra_Conjuge=server.createobject("adodb.recordset")
sql="select * from conjuge where id_voce_conjuge="& strId_voce_conjuge &""
objCadastra_Conjuge.open sql,conn,3,3

objCadastra_Conjuge.AddNew
objCadastra_Conjuge("id_voce_conjuge")            = strId_voce_conjuge
objCadastra_Conjuge("cpf_conjuge")                = strCpf_conjuge
objCadastra_Conjuge("nome_conjuge")               = strNome_conjuge
objCadastra_Conjuge("data_nascimento_conjuge")    = strData_nascimento_conjuge
objCadastra_Conjuge("empresa_conjuge")            = strEmpresa_conjuge
objCadastra_Conjuge("telefone_comercial_conjuge") = strTelefone_comercial_conjuge
objCadastra_Conjuge("ramal_conjuge")              = strRamal_conjuge
objCadastra_Conjuge("salario_conjuge")            = strSalario_conjuge
objCadastra_Conjuge.Update
response.redirect "gerenciamento.asp?action=cartao"

end if


'Recordset for add a new CARTÃO
if strAction="envia_proposta_cartao" then
set objCadastra_Cartao=server.createobject("adodb.recordset")
sql="select * from cartao where id_voce_cartao="& strId_voce_cartao &""
objCadastra_Cartao.open sql,conn,3,3

objCadastra_Cartao.AddNew
objCadastra_Cartao("id_voce_cartao")                    = strId_voce_cartao
objCadastra_Cartao("venciemnto_cartao")                 = strVencimento_cartao
objCadastra_Cartao("nome_cartao")                       = strNome_cartao
objCadastra_Cartao("nome_dependente_cartao")            = strNome_dependente_cartao
objCadastra_Cartao("data_nascimento_dependente_cartao") = strData_nascimento_dependente_cartao
objCadastra_Cartao("parentesco_cartao")                 = strParentesco_cartao
objCadastra_Cartao.Update
end if

%>

huh.gif

Link para o comentário
Compartilhar em outros sites

18 respostass a esta questão

Posts Recomendados

  • 0

Não sei se entendi sua dúvida, mas para ligar tabelas você precisa usar INNER JOIN. Montei um exemplo +-:

sql = "select TABELA1.campo1, TABELA2.id_campo2, TABELA2.campo3, TABELA2.campo4 from TABELA1 inner join TABELA2 on TABELA1.id_campo1 = TABELA2.id_campo2 where TABELA2.id_campo2 = "& campo3

Onde está em negrito é onde faz a ligação de um campo em comum, no campo id_campo1 é igual ao id_campo2.

Link para o comentário
Compartilhar em outros sites

  • 0

então como a andreia disse!

faz assim coloca apre a select e seleciona e manda ele para a outra página uma outra idéa é

na hora de cadastrar o 2 passo você pode colocar um select antes e pedir para ele retornar o ultimo campo cadastrado... não sei se vai dar certo

Link para o comentário
Compartilhar em outros sites

  • 0

2 opçõas

no primeiro form você define um id

session.sessionid

beleza... agora você vai jogando os valores em cookies e passando os forms... no ultimo faz cadastrar no bd....

ou cadastra o 1 e pelos dados você descobre o id do cadastro e puxa ele no proximo form...

Link para o comentário
Compartilhar em outros sites

  • 0

acho que se tá perdido!

é assim cadastra o primeiro form normal!

antes de você mandar o carinha para o form2

abre um select recupera esse que você acabo de cadastra tipo pegar o ultimo valor cadastrado ai se coloca esse id numa session ou manda na url mesmo

ai recupera ele no form2 e pronto !

Link para o comentário
Compartilhar em outros sites

  • 0

Ainda estou fazendo alguma coisa errada

set ID=server.createobject("adodb.recordset")
sql_ID="select top 1 * from voce"
ID.open sql_ID,conn,3,3
Session("cod_voce") = ID_id_voce
response.redirect "gerenciamento.asp?action=residencial"

Depois a linha onde o banco recebe a variavel é esta

objCadastra_Residencial("id_voce_residencial") = cod_voce

O que esta errado?

sad.gif

Link para o comentário
Compartilhar em outros sites

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152,3k
    • Posts
      652,4k
×
×
  • Criar Novo...