DUVIDA SELECT SUM VALOR_ITEM

USUARIO.EXCLUIDOS 17/09/2006 15:01:06
#172009
Pessoal preciso informar o resultado deste select


SELECT SUM(VALOR_ITEM) FROM ITENS_PEDIDO WHERE NUM_PEDIDO = '" & (NUMEROPEDIDO) & "'

em um campo .text no meu formulario

... mais uma duvida básica..rsrs

Grato
CLEVERSON.F 17/09/2006 20:10:19
#172038
rs.open "seu select",conexao
if not rs.eof then
msgbox "valor resultado é " & rs.fields(0).value
end if
USUARIO.EXCLUIDOS 19/09/2006 16:27:22
#172457
Muito obrigado pela ajuda, consegui, vejam como ficou o codigo da rotina que atualiza o valor total conforme os itens do pedido:

Dim conexaox As New ADODB.Connection
Dim Tbsql As New ADODB.Recordset
Dim CONSULTASQL As String
Dim numerpedido As String

numerpedido = txt_num_pedido.Text
CONSULTASQL = "select Sum(valor_item_pedido) as valor from itens_pedido where num_pedido = '" & (numerpedido) & "';"

If conexaox.State = adStateOpen Then
conexaox.Close

conexaox.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\PIZZARIA1.mdb"
Set Tbsql = conexaox.Execute(CONSULTASQL)

If txt_valor_total.Text = "0,00" Then
MsgBox "valor total = 0"
txt_cod_produto_pizza_inteira.SetFocus
Else
txt_valor_total = Tbsql!valor
txt_valor_total.Refresh

conexaox.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\PIZZARIA1.mdb"
Set Tbsql = conexaox.Execute(CONSULTASQL)

If txt_valor_total.Text = "0,00" Then
MsgBox "valor total = 0"
txt_cod_produto_pizza_inteira.SetFocus
Else
txt_valor_total = Tbsql!valor
txt_valor_total.Refresh
End If
End If
End If

valeu...
Tópico encerrado , respostas não são mais permitidas
Voltar