Insert sql com loop
Olá!
Preciso inserir um conteúdo a partir de um campo do meu banco.
Tenho uma tabela Produtos, onde busco os produtos selecionados.
Para cada produto selecionado, preciso que grave uma informação na minha tabela Vendidos.
Tentei dessa forma, porém só gravou o último pedido selecionado, ignorando os demais.
sql = "select * from cart where id_pedido =" & session("pedido")
set rsprodutos = GetRS(sql)
do while not rsprodutos.eof
sql = "insert into produtos_vendidos ( "
sql = sql & "id_pedido,"
sql = sql & "id_produto,"
sql = sql & "quantidade)"
sql = sql & " VALUES ("
sql = sql & "'" & session("pedido") & "',"
sql = sql & "'" & rsprodutos("id_produto") & "',"
sql = sql & "'" & rsprodutos("quantidade") & "')"
call executecmd(sql)
rsprodutos.movenext 'Passa pro próximo
Loop
Como posso realizar esse insert?
Obrigado!Discussão (4)
Carregando comentários...