none
Contar quantos vezes aparece um texto com 3 Parametros Tabela RRS feed

  • Pergunta

  • Olá

    Podem ajudar

    Tenho uma tabela no Access e preciso contar quantas vezes aparece estes registros.

    O codigo abaixo esta dando um erro e sitaxe faltanto operador.

    With MSFlexGrid1
    
    For i = 1 To .Rows - 1
      Set rs = New ADODB.Recordset
      With rs 
        .ActiveConnection = con
        .Source = "SELECT COUNT(STATUS) FROM TBL_REGISTROS_TRATADOS WHERE STATUS = " & frm_principal.MSFlexGrid1.TextMatrix(i, 0) & "AND Data = #" & Calendar1.Value & "# "
        .CursorType = adOpenStatic
        .Open
      End With
      
      If rs.RecordCount <> 0 Then
        frm_principal.MSFlexGrid1.TextMatrix(i, 2) = rs(0)
        ' MsgBox rs(0) & " vezes"
      Else
        frm_principal.MSFlexGrid1.TextMatrix(i, 2) = ""
        MsgBox "Nenhuma vez"
      End If
      rs.Close
      Set rs = Nothing
    Next

    Se possivel podem auxiliar para fazer a contagem com trez parametros

    PARAMETRO1 = NOME

    PARAMETRO2=STATUS

    PARAMETRO3=DATA

    grato;

    Bruno

     

     

    sexta-feira, 4 de fevereiro de 2011 01:13

Respostas

  • E ai Xará, faça assim

     

    Se quiser que conte se aparecer em um dos três campos

    Select Count(*) From Sua_Tabela Where Campo1='seucriterio' or Campo2='seucriterio' or Campo3='seucriterio'

     

    Se quiser que apareça só se estiver presente nos três campos

    Select Count(*) From Sua_Tabela Where Campo1='seucriterio' and Campo2='seucriterio' and Campo3='seucriterio'

     

    Teste ai e qqer coisa fale.

    Att

     

    PS Vi que esta usando um campo com data, por padrão a data deve ser passada como mm/dd/yyyy para isto use o seguinte

    Format(Calendar1.Value,"mm/dd/yyyy")

     


    Bruno Silva Leite
    officevb.com
    • Marcado como Resposta BRUNOJUL domingo, 29 de maio de 2011 00:10
    sexta-feira, 4 de fevereiro de 2011 23:13