Consulta fecha mas reciente y mas datos

[Daviel]

Que tal compañeros, he estado intentando obtener de una base de datos (access) varios registros donde el criterio de eliminación son campos como "Tipo", "Año" y "Mes" sin embargo pueden existir mas de un registro donde los tres campos son iguales, ahora entonces el cuarto criterio de eliminación es el campo "fecha" donde quisiera obetener el dato con la fecha mas reciente, he utilizado la funcion Max() sin ningun exito ya que los ejemplos que he visto solo manejan un campo "x" y la fecha y son muy escuetos, en mi cunsulta aparte de los campos con los criterios de eliminación necesito los datos de varias columnas mas de la tabla para llenar una grilla, espero haberme explicado y espero sea el fro correcto para postear mi duda, sin mas pego mi código y consulta para ver si alguien pudiese hecharme una manita, de antemano muchas gracias.

Código SQL:

Sub CargarDeclaracionesCargo(ByVal vsFxAy AS AxvsFlexLib.AxvsFlexArray, ByVal TipoImpuesto AS String)
        Dim ImpCn AS NEW ADODB.Connection
        Dim ImpRd AS NEW ADODB.Recordset
        Dim Fila, Columna AS INTEGER
        Dim Importe AS DECIMAL
        Dim Consulta AS String
        ImpCn.OPEN("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & RutaRev & ";Persist Security Info=False;Jet OLEDB:DataBase Password=hu9rethu")
        Consulta = "Select Año, Mes, TipoDeclaracion, TipoImptoCred, Impuesto, ImptoDeclAnt, Actualizacion, Recargos, Total, Compensacion, AcredIVA, " & _
        "AcredIDE, PagadoSubsEmp, PagadoEfectivo, FechaPresent, NumOprn, Portal, NumFolioComp, NumOprnAnt, FechaDeclAnt, Observacion From ImptosCargo " & _
        "Where TipoImptoCred = '" & TipoImpuesto & "' Group By Mes"
        ImpRd.OPEN(Consulta, ImpCn, ADODB.CursorTypeEnum.adOpenStatic, ADODB.LockTypeEnum.adLockReadOnly)
        ON Error Resume NEXT
        WITH vsFxAy
            .ROWS = .FixedRows
            While NOT ImpRd.EOF
                .ROWS = .ROWS + 1
                .set_TextMatrix(.ROWS - 1, 1, ImpRd.FIELDS("Año").VALUE)
                .set_TextMatrix(.ROWS - 1, 2, StrConv(MonthName(ImpRd.FIELDS("Mes").VALUE, FALSE), VbStrConv.ProperCase))
                .set_TextMatrix(.ROWS - 1, 3, ImpRd.FIELDS("TipoDeclaracion").VALUE)
                .set_TextMatrix(.ROWS - 1, 4, ImpRd.FIELDS("TipoImptoCred").VALUE)
                .set_TextMatrix(.ROWS - 1, 5, ImpRd.FIELDS("Impuesto").VALUE)
                .set_TextMatrix(.ROWS - 1, 6, ImpRd.FIELDS("ImptoDeclAnt").VALUE)
                .set_TextMatrix(.ROWS - 1, 7, ImpRd.FIELDS("Actualizacion").VALUE)
                .set_TextMatrix(.ROWS - 1, 8, ImpRd.FIELDS("Recargos").VALUE)
                .set_TextMatrix(.ROWS - 1, 9, ImpRd.FIELDS("Total").VALUE)
                .set_TextMatrix(.ROWS - 1, 10, ImpRd.FIELDS("Compensacion").VALUE)
                .set_TextMatrix(.ROWS - 1, 11, ImpRd.FIELDS("AcredIVA").VALUE)
                .set_TextMatrix(.ROWS - 1, 12, ImpRd.FIELDS("AcredIDE").VALUE)
                .set_TextMatrix(.ROWS - 1, 13, ImpRd.FIELDS("PagadoSubsEmp").VALUE)
                .set_TextMatrix(.ROWS - 1, 14, ImpRd.FIELDS("PagadoEfectivo").VALUE)
                .set_TextMatrix(.ROWS - 1, 15, ImpRd.FIELDS("FechaPresent").VALUE)
                .set_TextMatrix(.ROWS - 1, 16, ImpRd.FIELDS("NumOprn").VALUE)
                .set_TextMatrix(.ROWS - 1, 17, ImpRd.FIELDS("Portal").VALUE)
                .set_TextMatrix(.ROWS - 1, 18, ImpRd.FIELDS("NumFolioComp").VALUE)
                .set_TextMatrix(.ROWS - 1, 19, ImpRd.FIELDS("NumOprnAnt").VALUE)
                .set_TextMatrix(.ROWS - 1, 20, ImpRd.FIELDS("FechaDeclAnt").VALUE)
                .set_TextMatrix(.ROWS - 1, 21, ImpRd.FIELDS("Observacion").VALUE)
                CALL AjustarAltoFila(vsFxAy, .ROWS - 1, 260, 21, 60, 4000)
                ImpRd.MoveNext()
            END While
            .ROWS = .ROWS + 1
            FOR Columna = 5 TO 14
                Importe = 0
                FOR Fila = .FixedRows TO .ROWS - 2
                    Importe = Importe + .get_TextMatrix(Fila, Columna)
                NEXT Fila
                .set_TextMatrix(Fila, Columna, Importe)
            NEXT Columna
        END WITH
        CALL AjustarColumnas(vsFxAy, 1, 18)
        ImpRd.Close()
        ImpCn.Close()
        ImpRd = Nothing
        ImpCn = Nothing
        Fila = Nothing
        Columna = Nothing
        Importe = Nothing
    END Sub
 

[quimfv]

Necesitas una sub consulta o una consulta auxiliar que te de la fecha maxima

Código SQL:

SELECT Tipo, Año, Mes, MAX(fecha) AS UltFecha FROM tuTabla GROUP BY Tipo, Año, Mes;
 

Luego si usas esta consulta como selector....

Código SQL:

SELECT T1.* 
FROM TuTabla AS T1 
          INNER JOIN (SELECT Tipo, Año, Mes, MAX(fecha) AS UltFecha 
                                      FROM tuTabla GROUP BY Tipo, Año, Mes) AS C1 
            ON T1.tipo=C1.Tipo 
                         AND T1.Año=C1.Año 
                         AND T1.Mes=C1.Mes 
                         AND T1.Fecha=C1.UltFecha
 

Obtendrás todos los campos de TuTabla pero solo el/los registros con la fecha máxima de cada Tipo,Año y Mes...

Si?

[Daviel]

Compañero, antes que nada gracias por responder, ya le hice y deshice, logre "adaptarlo" pa que funcionara (según yo) a mis necesidades, sin embargo me carga todos los datos (todos los "tipos") de la tabla y efectivamente por fecha mas reciente, mas no por tipo, ahora, quise adaptar el filtro por "Tipo" sin exito alguno, adjunto la consulta y espero tengas el tiempo de echarle un vistazo y decirme en que estoy mal, ya que me lanza el error "La expresión de combinación no está admitida.", esta es la consulta (ya adaptada) y desde ya! muchisimas gracias por tu tiempo y ayuda y de antemano muchas gracias tambien a los que puedan participar.

Consulta:

Código MySQL:

Sub CargarDeclaracionesCargo(ByVal vsFxAy As AxvsFlexLib.AxvsFlexArray, ByVal TipoImpuesto As String)
        Dim ImpCn As New ADODB.Connection
        Dim ImpRd As New ADODB.Recordset
        Dim Fila, Columna As Integer
        Dim Importe As Decimal
        Dim Consulta As String
        ImpCn.Open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & RutaRev & ";Persist Security Info=False;Jet OLEDB:DataBase Password=hu9rethu")
        Consulta = "Select T1.* From ImptosCargo As T1 Inner Join (Select Año, Mes, TipoDeclaracion, TipoImptoCred, Impuesto, ImptoDeclAnt, Actualizacion, " & _
        "Recargos, Total, Compensacion, AcredIVA, AcredIDE, PagadoSubsEmp, PagadoEfectivo, Max(FechaPresent) As FechaMax, NumOprn, Portal, NumFolioComp, " & _
        "NumOprnAnt, FechaDeclAnt, Observacion From ImptosCargo Group By Año, Mes, TipoDeclaracion, TipoImptoCred, Impuesto, ImptoDeclAnt, Actualizacion, " & _
        "Recargos, Total, Compensacion, AcredIVA, AcredIDE, PagadoSubsEmp, PagadoEfectivo, NumOprn, Portal, NumFolioComp, NumOprnAnt, FechaDeclAnt, " & _
        "Observacion) As C1 On T1.TipoImptoCred = '" & TipoImpuesto & "' And T1.Año = C1.Año And T1.Mes = C1.Mes And T1.FechaPresent = C1.FechaMax"
        'Consulta = "Select Año, Mes, TipoDeclaracion, TipoImptoCred, Impuesto, ImptoDeclAnt, Actualizacion, Recargos, Total, Compensacion, AcredIVA, " & _
        '"AcredIDE, PagadoSubsEmp, PagadoEfectivo, FechaPresent, NumOprn, Portal, NumFolioComp, NumOprnAnt, FechaDeclAnt, Observacion From ImptosCargo " & _
        '"Where TipoImptoCred = '" & TipoImpuesto & "' Order By Mes"
 

[Daviel]

Perdón, esta es la consulta correcta, bueno, no tan correcta:

Código SQL:

Consulta = "Select T1.* From ImptosCargo As T1 Inner Join (Select Año, Mes, TipoDeclaracion, TipoImptoCred, Impuesto, ImptoDeclAnt, Actualizacion, " & _
        "Recargos, Total, Compensacion, AcredIVA, AcredIDE, PagadoSubsEmp, PagadoEfectivo, Max(FechaPresent) As FechaMax, NumOprn, Portal, NumFolioComp, " & _
        "NumOprnAnt, FechaDeclAnt, Observacion From ImptosCargo Group By Año, Mes, TipoDeclaracion, TipoImptoCred, Impuesto, ImptoDeclAnt, Actualizacion, " & _
        "Recargos, Total, Compensacion, AcredIVA, AcredIDE, PagadoSubsEmp, PagadoEfectivo, NumOprn, Portal, NumFolioComp, NumOprnAnt, FechaDeclAnt, " & _
        "Observacion) As C1 On T1.TipoImptoCred = '" & TipoImpuesto & "' And T1.Año = C1.Año And T1.Mes = C1.Mes And T1.FechaPresent = C1.FechaMax"