Jump to content


Photo

Problema Em Adicionar Dados


  • Faça o login para participar
6 replies to this topic

#1 ashburner

ashburner

    12 Horas

  • Usuários
  • 123 posts
  • Sexo:Não informado

Posted 10/11/2004, 14:42

estou com um problema nesta parte do meu código, ele não insere nas 2 tabelas, ele insere os dados apenas na linha qu está em negrito. alguém pode me dizer o por que disso?

Radio = request.form("rInformativo")
Set objConn =  Server.CreateObject("ADODB.Connection")
objConn.Open "DBQ=e:/www/grafipel.com.br/db/cadastros.mdb;Driver={Microsoft Access Driver (*.mdb)};"
if radio = "1" then
strQuery = "INSERT INTO cadastros(Nome,Idade,Telefone,Email,Genero,Loja) VALUES('"&Nome&"','"&Idade&"','"&Telefone&"','"&Email&"','"&Genero&"','"&Loja&"')"
strQuery = "INSERT INTO emails(nome,email) VALUES('"&Nome&"','"&Email&"')"
else
strQuery = "INSERT INTO cadastros(Nome,Idade,Telefone,Email,Genero,Loja) VALUES('"&Nome&"','"&Idade&"','"&Telefone&"','"&Email&"','"&Genero&"','"&Loja&"')"
end if

Edição feita por: ashburner, 10/11/2004, 14:42.


#2 Worm

Worm

    Veterano

  • Ex-Admins
  • 1343 posts
  • Sexo:Masculino
  • Localidade:São Paulo - SP
  • Interesses:Obter o maximo conhecimento.

Posted 10/11/2004, 15:13

DO jeito que está não vai inserir nas duas ao mesmo tempo, seu código está assim:
se do radio vier 1 executar uma sql agora se vier 2 executar outra sql.

é isso mesmo que vc quer?

#3 ashburner

ashburner

    12 Horas

  • Usuários
  • 123 posts
  • Sexo:Não informado

Posted 10/11/2004, 16:19

eu quero que se vier 1 ele execute as duas linhas e se vier 2 ele faça apenas uma.

#4 Worm

Worm

    Veterano

  • Ex-Admins
  • 1343 posts
  • Sexo:Masculino
  • Localidade:São Paulo - SP
  • Interesses:Obter o maximo conhecimento.

Posted 10/11/2004, 16:47

ai seria assim.

Radio = request.form("rInformativo")
Set objConn =  Server.CreateObject("ADODB.Connection")
objConn.Open "DBQ=e:/www/grafipel.com.br/db/cadastros.mdb;Driver={Microsoft Access Driver (*.mdb)};"
if radio = "1" then
strQuery = "INSERT INTO cadastros(Nome,Idade,Telefone,Email,Genero,Loja) VALUES('"&Nome&"','"&Idade&"','"&Telefone&"','"&Email&"','"&Genero&"','"&Loja&"')"
strQuery = "INSERT INTO emails(nome,email) VALUES('"&Nome&"','"&Email&"')"
strQuery1 = "INSERT INTO cadastros(Nome,Idade,Telefone,Email,Genero,Loja) VALUES('"&Nome&"','"&Idade&"','"&Telefone&"','"&Email&"','"&Genero&"','"&Loja&"')"
set rs = objconn.execute (strQuery,strquery1)
else
strQuery = "INSERT INTO cadastros(Nome,Idade,Telefone,Email,Genero,Loja) VALUES('"&Nome&"','"&Idade&"','"&Telefone&"','"&Email&"','"&Genero&"','"&Loja&"')"
set rs = objconn.execute (strQuery,strquery1)
end if 

seria algo mais menos assim e vc está esquecendo de executar a query, se não executar não grava.

valew.

#5 ashburner

ashburner

    12 Horas

  • Usuários
  • 123 posts
  • Sexo:Não informado

Posted 10/11/2004, 16:50

agora entendi, é q tem duas querys com o mesmo nome..valeu

#6 Worm

Worm

    Veterano

  • Ex-Admins
  • 1343 posts
  • Sexo:Masculino
  • Localidade:São Paulo - SP
  • Interesses:Obter o maximo conhecimento.

Posted 10/11/2004, 16:52

Falow cara, da uma verifica melhor no código antes de postar para evitarmos muito tópico repetido e sem utilidade para os usários.


Valew.

#7 powerAsp_X

powerAsp_X
  • Visitantes

Posted 10/11/2004, 19:12

O problema não é ter duas querys com o mesmo nome.

Basta depois de cada uma voce mandar a conexao executar a mesma.
Por exemplo:

if radio = "1" then
strQuery = "INSERT INTO cadastros(Nome,Idade,Telefone,Email,Genero,Loja) VALUES('"&Nome&"','"&Idade&"','"&Telefone&"','"&Email&"','"&Genero&"','"&Loja&"')"
     Conexao.Execute(strQuery)
strQuery = "INSERT INTO emails(nome,email) VALUES('"&Nome&"','"&Email&"')"
     Conexao.Execute(strQuery)
else
strQuery = "INSERT INTO cadastros(Nome,Idade,Telefone,Email,Genero,Loja) VALUES('"&Nome&"','"&Idade&"','"&Telefone&"','"&Email&"','"&Genero&"','"&Loja&"')"
end if 

[]'s

:ph34r:




1 user(s) are reading this topic

0 membro(s), 1 visitante(s) e 0 membros anônimo(s)

IPB Skin By Virteq