Criando uma Nova Tabela A Partir de um Inner Join

[Ulisses Arrais 2]

Pessoal, tenho esse Select Com Inner Join que monta uma tela de consulta.

 

<%
sqlProd = "SELECT Produtos.Produto, "
sqlProd = sqlProd & "Produtos.VRL_Unitario, Pedido_Item.QTD_Pedido, Produtos.cod_produto "
sqlProd = sqlProd & "FROM Produtos INNER JOIN Pedido_Item "
sqlProd = sqlProd & "ON Produtos.COD_Produto = Pedido_Item.COD_Produto "
sqlProd = sqlProd & "WHERE COD_Pedido = " & Session("CodPed")
sqlProd = sqlProd & " ORDER BY Produtos.Produto"
Set rsProd = Conexao.Execute(sqlProd)
%>
<%
 If not rsProd.EOF then rsProd.MoveFirst
        While Not rsProd.EOF
    %>

Mas agora preciso que esse mesmo select alem de montar a tela insira esses valores em outra tabela. Isso é possivel?

[xanburzum 169]

você pode jogar esse resultado em uma tabela temp (temporária) e a partir dela fazer o INSERT.

[Ulisses Arrais 2]

Seria esse o caminho:

 

<%
sql = INSERT INTO nova tabela (cod_pedido, cod_produto, qtd_pedido, vrl_unitario) VALUES (rsProd("cod_pedido"), rsProd("cod_produto"), rsProd("qtd_pedido"), rsprod("vrl_unitario") WHERE cod_pedido = " & Session("codped")

Isso funciona ou teria que colocar um move.next para funcionar?

[xanburzum 169]

isso seria apenas o INSERT, o certo seria fazer um loop nesta SQL, pois seu resultado provavelmente terá mais que um registro. por exemplo:

 

 

For i = 1 To recordset.Count

Response.write request.form("produtos")(i)&"<BR>" & request.form("qtd_produtos")(i)&"<BR>"
SQL = "INSERT INTO lista (lista_prodID,lista_quant) Values ('"&request.form("produtos")(i)&"','"&request.form("qtd_produtos")(i)&"')"