Jump to content
Fórum Script Brasil
  • 0

Recuperar Numeroid Na Mesma Tela


mulderx

Question

olá gente! estou com uma dúvida no meu sistema de cadastros ... eu tenho um sistema onde o usuário escolhe uma lista de produtos do banco, e depois ele mostra uma tela para preencher os dados cadastrais dele. A parte de produtos eu montei com session, e na hora que ele envia os dados, a intenção é ele gravar no banco os dados cadastrais na tabela registros_cadastros e os produtos escolhidos na tabela registros_produtos ... bom, a parte de gravar os dados cadastrais eu consegui fazer, mas pra cadastrar os produtos na mesma tela, eu preciso recuperar o ID desse cadastro. Eu tenho um código pronto aqui, mas não funcionou. Se houver um outro método, por favor!!

código pronto para cadastrar o cliente e os seus produtos

<%Option Explicit%>
<!-- #include file="conexao.asp" -->
<%
on error resume next
Dim sqlCliente, sqlPedido, rstCliente, varCliente, rstPedido, Produto

if Session("Pedido").count = 0 then
	response.write (" Não há produtos em sua cesta")
else


'Cadastrando o visitante
	sqlCliente = "select * from Cliente"
	Set rstCliente = Server.CreateObject("ADODB.RecordSet")
	rstCliente.Open sqlCliente, strConn, 1, 3

rstCliente.Addnew

rstCliente("Nome") = request.form("fNome")
rstCliente("Email") = request.form("fEmail")
rstCliente("Endereco") = request.form("fEndereco")
rstCliente("Cidade") = request.form("fCidade")
rstCliente("Estado") = request.form("fEstado")
rstCliente.update
'recuperando o código deste cliente
varCliente = rstCliente("ClienteID")  

'inserindo o produto, a quantidade e o cliente na tabela Pedido
	for each Produto in Session("Pedido")
	sqlPedido = "Insert into Pedido(ClienteID, ProdutoID, ProdutoQuantidade, Data) VALUES (" & varCliente  & ", " & Produto & ", " & Session("Pedido").item(produto)& ", #" & Now() & "#)"
	Set rstPedido = Server.CreateObject("ADODB.RecordSet")
	rstPedido.Open sqlPedido, strConn
    Set rstPedido = nothing
	next

	if err.Number > 0 then
  response.write "Erro no processamento do pedido: " & Err.Description
	else
  response.write "Seu pedido foi armazenado com sucesso!"
	end if
end if
%>

.....

Link to comment
Share on other sites

2 answers to this question

Recommended Posts

  • 0

olá.

você falou, falou, falou, e eu não consegui entender qual é sua duvida.

Pode ser mais direto?

O que é esse trecho de codigo, e porque não funcionou?

Link to comment
Share on other sites

  • 0

beleza ... xeuver se consigo explicar melhor ...

preciso gravar no banco de dados o cadastro do cliente e os produtos que ele escolhe,´e ele fará isso na mesma tela "enviar.asp" ... ali no código, como pode ver, eu consegui fazer a programação pra ele gravar o cadastro do usuário:

rstCliente.Addnew

rstCliente("Nome") = request.form("fNome")
rstCliente("Email") = request.form("fEmail")
rstCliente("Endereco") = request.form("fEndereco")
rstCliente("Cidade") = request.form("fCidade")
rstCliente("Estado") = request.form("fEstado")
rstCliente.update
após isso, tem essa linha aqui:
'recuperando o código deste cliente
varCliente = rstCliente("ClienteID")  
essa linha é importante, pois ele tem que recuperar o codigoID dos dados cadastrais que ele acabou de gravar, pra que o ASP possa executar a gravação dos produtos do usuário em seguida:
'inserindo o produto, a quantidade e o cliente na tabela Pedido
for each Produto in Session("Pedido")
sqlPedido = "Insert into Pedido(ClienteID, ProdutoID, ProdutoQuantidade, Data) VALUES (" & varCliente  & ", " & Produto & ", " & Session("Pedido").item(produto)& ", #" & Now() & "#)"
Set rstPedido = Server.CreateObject("ADODB.RecordSet")
rstPedido.Open sqlPedido, strConn
   Set rstPedido = nothing
next

O bicho tá pegando é jusatamente nessa linha onde ele recupera o CodigoID ... ele simplesmente não tá recuperando sad.gif

e é isso q eu queria saber, se tem outra forma de se fazer isso, pois essa aí não tá funcionando aqui sad.gifsad.gif

Deu pra sacar agora? wink.gif

Link to comment
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Answer this question...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.



  • Forum Statistics

    • Total Topics
      152.2k
    • Total Posts
      651.9k
×
×
  • Create New...