Totaliza o resultado de um recorset
Boa Tarde Pessoal, nesse codigo faço um select tudo funciona ok, mas eu preciso que no fim dele seja somado o valor de todos os campos v_total_est que não vem do select o calculo e feito no codigo! Isso é possivel?
' Define variaveis e chama dados do DB
Dim Recordset1
Dim Recordset1_numRows, strConnection
strConnection = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("prod.mdb") & ";Persist Security Info=False"
Set Recordset1 = Server.CreateObject("ADODB.Recordset")
Recordset1.ActiveConnection = strConnection
Recordset1.Source = "SELECT cod_produto, produto, vrl_unitario, custo_prod, qtd_estoque FROM produtos WHERE cod_categoria = " & varClie & " ORDER BY produto "
Recordset1.CursorType = 0
Recordset1.CursorLocation = 2
Recordset1.LockType = 1
Recordset1.Open()
Recordset1_numRows = 0
%>
<%
' Montando o Form
Dim Repeat1__numRows
Dim Repeat1__index
Repeat1__numRows = -1
Repeat1__index = 0
Recordset1_numRows = Recordset1_numRows + Repeat1__numRows
<%
While ((Repeat1__numRows <> 0) AND (NOT Recordset1.EOF))
%>
<% intRecID =(Recordset1.Fields.Item("cod_produto").Value) ' Store the current RecordID in a variable %>
<tr bgcolor="#999999">
<td nowrap><div align="center"><%= intRecID %><input name="hidRecID<%= intRecID %>" type="hidden" value="<%= intRecID %>" size="5">
</div></td>
<td nowrap><%=(Recordset1.Fields.Item("produto").Value)%></td>
<td nowrap><input name="txtCust<%= intRecID %>" type="text" onChange="RecUpdate('<%= intRecID %>')" value="<%=(Recordset1.Fields.Item("custo_prod").Value)%>" size="10"></td>
<td nowrap><input name="txtNum<%= intRecID %>" type="text" onChange="RecUpdate('<%= intRecID %>')" value="<%=(Recordset1.Fields.Item("vrl_unitario").Value)%>" size="10"></td>
<td nowrap>
<%
' Calculando Margem
Dim calc1, calc2, marg, marg2
calc1 = Recordset1.Fields.Item("custo_prod")
if calc1 > 0 then
calc1 = Recordset1.Fields.Item("custo_prod")
else
calc1 = 1
end if
calc2 = Recordset1.Fields.Item("vrl_unitario")
marg = calc2 / calc1 * 100 - 100
Response.Write Formatnumber (marg)
%>
</td>
<td nowrap>
<input name="txtNum<%= intRecID %>2" type="text" onChange="RecUpdate('<%= intRecID %>')" value="<%=(Recordset1.Fields.Item("qtd_estoque").Value)%>" size="10"></td>
<td nowrap>
<%
' Calculando valor de estoque
Dim v_estoq1, v_prc, v_total_est
v_estoq1 = Recordset1.Fields.Item("qtd_estoque")
v_prc = Recordset1.Fields.Item("custo_prod")
v_total_est = v_estoq1 * v_prc
Response.Write (v_total_est)
%>
</tr>
<%
Repeat1__index=Repeat1__index+1
Repeat1__numRows=Repeat1__numRows-1
Recordset1.MoveNext()
Wend
%>Discussão (7)
Carregando comentários...