Probleminha com calculo: valor * quantidade em varios registros

[webfuture 0]

Olá galera, estou com um probleminha com um calculo aqui.. vejam só. A estrutura de meu banco de dados esta assimvalor quantidade id_compra407 10 741027153 20 741027471 30 741027487 5 741027270 3 741027Preciso gerar um valor total fazendo o calculo do valor * quantidade de cada produto onde o id_compra seja igual, alguém conhece alguma forma de fazer isto ? Saber qual o valor total da compra destes produtos, fazendo o calculo do valor * quantidade do 1, 2, 3, 4 e 5 produtos ?WebFuture

[mateuscrocha 0]

Hummmm bom....SQL = "SELECT valor,quantidade WHERE id_compra =741027"set rs = conexao.execute(sql)totalProduto = rs("valor") * rs("quantidade")

[webfuture 0]

Assim ele traz o valor do ultimo registro apenas. Não de todos. Ele faz o valor * quantidade somente do ultimo registro.WebFuture

[dead_thinker 0]

select (preco * qtd) as subtotal, ID from tabelaacho q isso resolve o pro, ai é so imprimir no laco do rs.Flw

[webfuture 0]

Aconteceu a mesma coisa.. ele só fez o valor * quantidade do ultimo registro.WebFuture

[mateuscrocha 0]

Aconteceu a mesma coisa.. ele só fez o valor * quantidade do ultimo registro.WebFuture

você tem q botar dentro de um whileWHILE NOT rs.EOF 'aqui o codigo de pegar o valor e quantidaders.movenextWEND

[webfuture 0]

Olá Matheus, foi exatamente isto que eu fiz mas não rolou.WebFuture

[dead_thinker 0]

Olá Matheus, foi exatamente isto que eu fiz mas não rolou.WebFuture

Estranho isso, testei aki e funfou beleza (SQL Server 2000)...

[webfuture 0]

Olha meu código:<%Set Conexao = Server.CreateObject("ADODB.Connection")DSNtest="DRIVER={Microsoft Access Driver (*.mdb)}; "DSNtest=dsntest & "DBQ=c:/inetpub/wwwroot/pagina/dados/dados.mdb"Conexao.Open DSNtestSet rs = Server.CreateObject("AdoDB.Recordset")rs.open "Select (valor * quantidade) as valortotal, id from pedidos where id_compra = '827080' ", conexaowhile not rs.EOFvalortotal = RS("valortotal")response.write valortotalrs.movenextwendrs.closeset rs = nothing%>Será que estou fazendo algo errado ? WebFuture

[dead_thinker 0]

Olha meu código:<%Set Conexao = Server.CreateObject("ADODB.Connection")DSNtest="DRIVER={Microsoft Access Driver (*.mdb)}; "DSNtest=dsntest & "DBQ=c:/inetpub/wwwroot/pagina/dados/dados.mdb"Conexao.Open DSNtestSet rs = Server.CreateObject("AdoDB.Recordset")rs.open "Select (valor * quantidade) as valortotal, id from pedidos where id_compra = '827080' ", conexaowhile not rs.EOFvalortotal = RS("valortotal")response.write valortotalrs.movenextwendrs.closeset rs = nothing%>Será que estou fazendo algo errado ? WebFuture

Putz veio, se tu coloca no where pra pegar so aquele id CLARO q ele so vai imprimir uma linha ne. Tira a clausula where do select.Flw... :wacko:

[webfuture 0]

No banco de dados existem 3 cadastros com este id_compra e não um só, como também podem existir x cadastros com outros ids.. O certo não seria ele calcular todos os valores onde o id_compra for igual ao que eu colocar e jogar o valor total na tela ?WebFuture

[Faru 0]

Bom estou meio sem tempo, por isso não analisei direito oque você quer, mas...

 

Pelo que vi nesta parte:

while not rs.EOFvalortotal = RS("valortotal")response.write valortotalrs.movenext

Você esta substiuindo a valor da variavel valortotal

 

Entao coloque:

While Not RS.Eofvalortotal = valortotal + Fix(RS("valortotal"))RS.MoveNextWendResponse.Write valortotal

Espero ter ajudado,

Abraços

[Mário Monteiro 179]

não sei se é issoSet rs = Server.CreateObject("AdoDB.Recordset")rs.open "Select SUM(quantidade) * valor as valortotal from pedidos WHERE id_compra =741027", conexao

[webfuture 0]

Olá Marioufpa, na verdade era mais ou menos aquilo mesmo.. Só a multiplicação que tinha de ficar dentro dos () .. rs.open "Select SUM(quantidade * valor) as valortotal from pedidos WHERE id_compra =741027", conexaojá ta resorvido!!valeu,WebFuture

[Mário Monteiro 179]

de nada tiozinhoparabens