Inserir Dados Em Mais De Uma Tabela

qwert133 · Janeiro 12, 2004

Ola,

eu to querendo usar um mesmo campo de texto para cadastrar em duas tabelas:

exemplo:

Nome: |_________________|

e ele inserir os dados no access:

tabelas:

01

02

estrutura 01:

nome

teste

teste2

...

estrutura 02:

nome

qual

kajk

....

e cadastrar logo nas duas tabelas 01 e 02, no campo nome ,

Reginaldo ASP · Janeiro 12, 2004

Isso é simples:

Dim nome

nome = Request.Form(Trim("nome")) 'resgata o que foi preenchido no campo texto sem espaços

depois disso você faz quantos up date ou insert into quiser usando a variável '"&nome&"',

beleza?

qwert133 · Janeiro 12, 2004

Não entendi,

Como eu adciono nesse script que tenho:

pagina do formulario:

</head>
<body>
<form method="post" action="insert_into.asp" name="form" onsubmit="return valida_campo()">
  <div align="center">
    <center>
      <table width="44%" border="0" cellspacing="2" cellpadding="2">
        <tr align="center"> 
          <td bgcolor="#f5f5f5" width="35%"> 
            <div align="center"><font color="#000099"><b><font face="Verdana, Arial, Helvetica, sans-serif" size="2"><font color="#CCCCCC">Incluir</font></font></b></font></div>
          </td>
          <td bgcolor="#f5f5f5" width="30%"> 
            <div align="center"><font color="#000099"><b><font face="Verdana, Arial, Helvetica, sans-serif" size="2"><a href="form_exclui.asp" class="menu">Excluir</a></font></b></font></div>
          </td>
          <td bgcolor="#f5f5f5" width="35%"> 
            <div align="center"><font color="#000099"><b><font face="Verdana, Arial, Helvetica, sans-serif" size="2" color="#CCCCCC"><a href="escolhe_pra_auterar.asp" class="menu">Alterar</a></font></b></font></div>
          </td>
        </tr>
      </table>
      <table border="0" width="300" bgcolor="F5F5F5">
        <tr bgcolor="#FFFFFF"> 
          <td colspan="2" height="34"> 
            <div align="center"><font size="2"><b><font face="Verdana, Arial, Helvetica, sans-serif" color="#000066">Cadastro 
              ASPBRASIL.</font></b></font></div>
          </td>
        </tr>
        <tr> 
          <td width="76"><font size="2" face="Verdana" color="0000cc">Nome:</font></td>
          <td width="210"> 
            <input type="text" name="nome" size="20" style="font-family: Verdana; font-size: 8 pt;COLOR: 0000CC;">
          </td>
        </tr>
        <tr> 
          <td width="76"><font size="2" face="Verdana" color="0000cc">E-mail:</font></td>
          <td width="210"> 
            <input type="text" name="email" size="20" style="font-family: Verdana; font-size: 8 pt; COLOR: 0000CC;" onBlur="confere()">
          </td>
        </tr>
        <tr> 
          <td width="76"><font size="2" face="Verdana" color="0000cc">Telefone:</font></td>
          <td width="210"> 
            <input type="text" name="telefone" size="20" style="font-family: Verdana; font-size: 8 pt;COLOR: 0000CC;">
          </td>
        </tr>
        <tr> 
          <td width="76"><font size="2" face="Verdana" color="0000cc">Comentário:</font></td>
          <td width="210"> 
            <textarea rows="4" name="comentario" cols="20" style="font-family: Verdana; font-size: 8 pt;COLOR: 0000CC;"></textarea>
          </td>
        </tr>
        <tr> 
          <td width="286" colspan="2"> 
            <p align="center"> 
              <input type="submit" value="Enviar" name="enviar">
          </td>
        </tr>
      </table>
    </center>
  </div>
</form>
</body>
</html>

------------------------------------------------------------------------------------------ pagina com o script de inserção

<%
'Força a declaração de todas as variáveis
Option Explicit
'Não deixa informações no Cache
Response.Expires = 0
'Declaração das variáveis
Dim objConn, objRs, strQuery, strConnection, nome, telefone, email, comentario
'Atrubuição dos valores as respectivas variáveis
nome = Request.Form("nome")
telefone = Request.Form("telefone")
email = Request.Form("email")
comentario = Request.Form("comentario")
'Cria o objeto RecordSet e atribui a variável 
Set objConn =  Server.CreateObject("ADODB.Connection")
'Abre a conexão com o banco de dados utilizando o Drive {Microsoft Access...
'(para utilizar outro, ex: Paradox é só substituir o Drive pelo do Paradox)
'(*.mdb) indica que o arquivo utiliza extensão mdb
objConn.Open "DBQ=" & Server.MapPath("contato.mdb") & ";Driver={Microsoft Access Driver (*.mdb)}","username","password"
'Insere os dados na tabela aberta
strQuery = "INSERT INTO contato (nome,telefone,email,comentario) VALUES ('"&nome&"','"&telefone&"','"&email&"','"&comentario&"')"
'Caso ocorra um erro esta função de erro será chamada
On error Resume Next
'Executa a inserção no Banco de Dados 
Set ObjRs = objConn.Execute(strQuery)
'Fecha o Objeto de Conexão
objConn.close
'"APAGA" qualquer instancia que possa ter no objeto objRs e objConn
Set objRs = Nothing
Set objConn = Nothing
if err = 0 Then

response.redirect "sucesso.asp"
end if
%>

O que eu faço por exemplo para cadastrar o "telefone" da tabela contato e também cadastrar na tabela contato2, cadastrar as duas de vez.

Por favor, use CODE, para identificar seu código !!

Editado Janeiro 14, 2004 por urso.louco

Reginaldo ASP · Janeiro 14, 2004

strQuery = "INSERT INTO contato (telefone) VALUES ('"&telefone&"')"

objConn.Execute(strQuery)

strQuery = "INSERT INTO contato2 (telefone) VALUES ('"&telefone&"')"

objConn.Execute(strQuery)

Entrar

Inserir Dados Em Mais De Uma Tabela

Pergunta

qwert133

Link para o comentário

Compartilhar em outros sites

3 respostass a esta questão

Posts Recomendados

Reginaldo ASP

Link para o comentário

Compartilhar em outros sites

qwert133

Link para o comentário

Compartilhar em outros sites

Reginaldo ASP

Link para o comentário

Compartilhar em outros sites

Participe da discussão

Estatísticas dos Fóruns

Navegação

Atividades