Jump to content


Photo

Insert Com Select


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

#1 regitronic

regitronic

    Novato no fórum

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

Posted 09/11/2009, 09:56

Gente um dilema grande aqui
Tenho uma tabela com o nome produtos e uma com o nome pedidos.
Tenho uma pagina na qual o vendedor digita o codigo e a quantidade, então o sistema a partir do codigo digitado pelo vendedor tem de buscar o nome e o valor do produto na tabela produtos e inserir estes dados (codigo, nome, quantidade e valor) na tabela pedidos.

Tentei fazer assim mas não deu
<%

tabela = request.form("vend")
cliente = request.form("cod")
produto = request.form("prod")
quantidade = request.form("qtd")
data = day(now)/month(now)/year(now)
nome = ("select nome FROM produtos WHERE codigo='"&produto&"'")
valor = ("select valor FROM produtos WHERE codigo='"&produto&"'")


set conexao = createobject("AdoDb.connection")
constr = "Driver={Microsoft Access Driver (*.mdb)};DBQ="& server.MapPath("bd1.mdb")
conexao.open constr
set rs = conexao.execute("insert into pedidos (data, cod_loja, pedido, nome, quantidade, valor) values ("&data&", "&produto&", 1, "&nome&", "&quantidade&", "&valor&"")
 
%>


#2 Renan L. Queiroz

Renan L. Queiroz

    Mestre

  • Usuários
  • 690 posts
  • Sexo:Masculino
  • Localidade:Brasilia - DF

Posted 09/11/2009, 10:13

O esquema é simples:
insert valor1, valor2, valor3
select result1, result2, result3
from table1 where condicional1 = valorDaPagina
Você informa os dados a serem inseridos (INSERT) e seleciona extamente os campos necessários para o
preenchimento (SELECT) da tabela(s) (FROM, JOIN) com as condicionais desejadas (WHERE).

Veja se o links lhe ajuda!
1 - INSERT SELECT
;-)

Edição feita por: Renan L. Queiroz, 09/11/2009, 10:17.

Especialidade: Desenvolvimento e Banco de Dados.


Este post lhe ajudou? Agradeça: Posted Image


#3 RonsisM

RonsisM

    Super Veterano

  • Usuários
  • 15724 posts
  • Sexo:Masculino
  • Localidade:Plovdiv

Posted 05/10/2017, 05:18

Fortunately there is a much easier and more effective way out.orginstallmentloansforbadcredit. payday lenders Talk to a Smartline Adviser Thinking about switching home loans We can help.
Comprar Propecia Sin Receta levitra from canada Kamagra Fast London Kamagra Accion Terapeutica
Therapy Propecia Propecia Online Order Cheap viagra Online Pharmacy No Prescription Viagra Y Cialis Cual Es Mejor Viagra Prezzo Migliore

#4 HaroNism

HaroNism

    Super Veterano

  • Usuários
  • 13822 posts
  • Sexo:Masculino
  • Localidade:San Miguel de Tucuman

Posted 09/10/2017, 21:06

Tarif Cialis 10 Buy Propecia 5mg Usa Order Xenical Orlistat Cheap cialis Will Amoxicillin Treat A Yeast Infection
Dove Comprare Il Cialis On Line Cephalexin 500mg And Bladder Infection buy viagra Toncils Infection Amoxicillin Otc Prednisone
Viagra Generika Rezeptfrei Online viagra Mexican Amoxil Priligy Testimonios Viagra Info
Zithromax And Robitussin Kamagra Oral Jelly Cape Town viagra Does Cialis Work

#5 LarPhozyHah

LarPhozyHah

    Super Veterano

  • Usuários
  • 14515 posts
  • Sexo:Masculino
  • Localidade:San Miguel de Tucuman

Posted 10/10/2017, 13:24

Can I Purchase Progesterone Free Consultation viagra Acheter Cialis Pas Cher Paris 20 Mg Lisinopril Sale No Perscription
Get Tadalis Sx Soft Viagra cialis Flagyl Without Insurance

#6 HaroNism

HaroNism

    Super Veterano

  • Usuários
  • 13822 posts
  • Sexo:Masculino
  • Localidade:San Miguel de Tucuman

Posted 15/10/2017, 04:39

Cialis 100mg Vendo Cialis Levitra viagra online pharmacy No Rx Required
Levitra France Buy Doxycycline No Rx Amoxil Pregnancy Category viagra Buy Propecia Online 5mg Lioresal En Ligne 10mg

#7 LarPhozyHah

LarPhozyHah

    Super Veterano

  • Usuários
  • 14515 posts
  • Sexo:Masculino
  • Localidade:San Miguel de Tucuman

Posted 21/10/2017, 23:37

Olmetec Online Without Prescription Propecia Generic Finasteride Hair Growth viagra Generic Levitra Paypal




0 user(s) are reading this topic

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

IPB Skin By Virteq