Somar valores de um array

[rmmtins 0]

Tenho um array da seguinte forma

 

<%

Qtd_Produto = split(request.Form("Qtd_Produto"),",")

Cod_Produto = split(request.Form("Cod_produto"),",")

St_Pedido = 1

Conta = ubound(Qtd_Produto)

'verifica se pelo menos uma linha tem registro a ser inserido

For f = 0 to conta

If trim(Cod_Produto(f)) <> "" and not isnull(Cod_Produto(f)) and trim(Qtd_Produto(f))<> "" and not isnull(Qtd_Produto(f)) then

If cdbl(Qtd_Produto(f)) > 0 then

InsereRegistro = "sim"

End if

End if

Next

%>

Tenho 2 campos em um formulario um com a Quantidade de de produto (Qtd_Produto) e outra com o Codigo do produto(Cod_Produto)

oque eu gostaria de fazer é,

Se os codigos dos produtos forem iguais somar as quantidades e gravar no banco como um codigo só

[xanburzum 169]

ou seja, vc quer verificar se, um user selecionou, por exemplo:

 

3 TV

4 PC

ect

 

Mas não seria apenas selecionar o ID vinculando com o produto. Ou vc terá vários campos de produtos onde eles podem se repetir ?

 

Esses campos serão populados pelo banco ? se for dá até pra fazer direto na SQL

[rmmtins 0]

ou seja, você quer verificar se, um user selecionou, por exemplo:

 

3 TV

4 PC

ect

 

Mas não seria apenas selecionar o ID vinculando com o produto. Ou você terá vários campos de produtos onde eles podem se repetir ?

 

Esses campos serão populados pelo banco ? se for dá até pra fazer direto na SQL

Sim, terei varios campos onde eles podem se repetir, usando o seu exemplo o usuario pode pedir em um campo

 

Produto 1 Quantidade 10

 

No segundo campo

 

Produto 1 Quantidade 1

 

a lista de produtos virá de um select em uma tabela no banco

[xanburzum 169]

dá um request.form("nome do campo") e depois recupera também o campo quantidade e relaciona os dois

[rmmtins 0]

Sim, eu faço da seguinte maneira,

 

Qtd_Produto = split(request.Form("Qtd_Produto"),",")

Cod_Produto = split(request.Form("Cod_produto"),",")

Conta = ubound(Qtd_Produto)

depois faço as verificações para gravar no banco

For f = 0 to conta

If trim(Cod_Produto(f)) <> "" and not isnull(Cod_Produto(f)) and trim(Qtd_Produto(f))<> "" and not isnull(Qtd_Produto(f)) then

If cdbl(Qtd_Produto(f)) > 0 then

InsereRegistro = "sim"

End if

End if

Next

como faço para relacionar os dois campos e fazer a soma das quantidades?

[xanburzum 169]

depois de inserir no BD vc pode usar a cláusula SUM para somar os recordsets

[rmmtins 0]

Obrigado xanburzum, poderia me mostra um exemplo de como faria isso? não tenho ideia....

[xanburzum 169]

depois de inserir no seu bd (através do INSERT INTO), vc pode fazer a consulta através

 

SELECT customer, SUM(quantity) AS "Total Itens"
FROM tabela
GROUP BY ID;