SOMAR AS CONTAS COM VENCIMENTO NO MÊS ATUAL

MOREIRA 02/09/2014 00:28:04
#440846
bom, galera, bom dia a todos, preciso somar as contas com vencimento no mês atual,

estou usando o mysql

estou usando assim

o que está errado ?

  Set rst = New ADODB.Recordset
    sql = [Ô]Select month(titulo_pagar_data_vencto) as mes, sum(titulo_pagar_valor_doc) as conta_vencer_mes from tb_titulos_pagar[Ô]
    sql = sql & [Ô] Where month(titulo_pagar_data_vencto) = month(now())[Ô]
    
    rst.Open sql, Conexao, 3
    Do While Not rst.EOF
   
    If rst!conta_vencer_mes > 0 Then
        lbl_total_prev_mes.Caption = Format(rst!conta_vencer_mes, [Ô]###,##0.00[Ô])
    End If
   
    rst.MoveNext
    Loop

MOREIRA 02/09/2014 01:09:43
#440847
resultado,,,,

  Set rst = New ADODB.Recordset
    sql = [Ô]Select month(titulo_pagar_data_vencto) as mes, year(titulo_pagar_data_vencto) as ano, sum(titulo_pagar_valor_doc) as conta_vencer_mes from tb_titulos_pagar[Ô]
    sql = sql & [Ô] Where month(titulo_pagar_data_vencto) =[ô][Ô] & Month(Date) & [Ô][ô]And Year(titulo_pagar_data_vencto) =[ô][Ô] & Year(Date) & [Ô][ô][Ô]
    rst.Open sql, Conexao, 3
    Do While Not rst.EOF
   
    If rst!conta_vencer_mes > 0 Then
        lbl_total_prev_mes.Caption = Format(rst!conta_vencer_mes, [Ô]###,##0.00[Ô])
    End If
   
    rst.MoveNext
    Loop
Tópico encerrado , respostas não são mais permitidas
Voltar