Order By no me ordena, por que?

[Daviel]

Que tal compañeros, posteo esta consulta pa ver en que estoy mal, me carga los datos que quiero hasta ahi funciona pero no del todo, pues no me ordena, espero puedan ayudarme, de antemano muchas gracias.

Código SQL:

"Select T1.* From ImptosCargo As T1 Where T1.TipoImptoCred = '" & TipoImpuesto & "' Order By T1.Mes"
 

[huesos52]

Que no te ordena?
Que tienes en la columna mes?
no te los ordena primero los 1 luego 2 (3,4,5,6 etc)?

saludos

[Daviel]

En esa columna (de la BD) tengo los meses en formato numerico (1,2,3,...12) y el campo se llama "Mes"

[Daviel]

y no, no me los ordena

[gnzsoloyo]

Mira, técnicamente debería ordenártelo bien, porque esta consulta:

Código SQL:

SELECT T1.* 
FROM ImptosCargo T1 
WHERE T1.TipoImptoCred = '" & TipoImpuesto & "' 
ORDER BY T1.Mes
 

así lo indica.
Sin embargo, el ORDER BY en concurrencia con el WHERE, éste tiene prioridad en el ordenamiento, por lo que el resultado puede ser diferente al esperado.

Este tipo de cosas están perfectamente documentadas en los Manual de Referencia, por ejemplo, el de MySQL: 7.2.10. Cómo optimiza MySQL ORDER BY. Otros DBMS tienen situaciones de este tipo (Oracle))

Una solución temporal sería poner todo esto como subconsulta que luego se ordena:

Código SQL:

SELECT * 
FROM 
    (SELECT * 
    FROM ImptosCargo 
    WHERE TipoImptoCred = '" & TipoImpuesto & "' ) T1
ORDER BY Mes
 

Por otro lado, para estar seguros de lo que sucede en tu caso sería buena idea que postearas una captura del resultado de la consulta, sea en texto o en imagen. De ese modo podremos ver bien cómo está quedando la tabla resultado.

[Daviel]

Antes que nada gracias por tu apoyo, lamento decir que no funciona, posteo la subrutina completa, muchas gracias de antemano.

Subrutina:

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 T1.* From ImptosCargo As T1 Where T1.TipoImptoCred = '" & TipoImpuesto & "' Order By T1.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
 

P.D. No sé como postear una imagen (para la tabla de datos y la grilla) espero que la subrutina completa ayude en ausencia de la BD y la Grilla.

[gnzsoloyo]

Bueno, el código que estás posteando no nos sirve de nada para saber qué falla en la consulta (si es que es la consulta la que falla), además de que no se debe poner código de programación acá...
Por otro lado, mi pregunta sería: ¿Access o SQL Server? ¿VB6? ¿Qué estás usando?

No puedes postear imágenes porque tienes pocos posts y poco tiempo participando en FDW. Podrías postear la tabla resultado copiándola como texto o algo así.

[leonardo_josue]

Hola Daviel:

Podría apostar que estás trabajando con ACCESS, por el tipo de driver que estás utilizando pero si estoy equivocado me corriges.

Creo que no haz mencionado de qué tipo es tu campo mes, una cosa es que tengas sólo números y otra muy diferente que tengas un campo tipo numérico, puedes ver de que estoy hablando en este ejemplo de MySQL:

Código MySQL:

mysql> create table meses (numero int, cadena varchar(2));
Query OK, 0 rows affected (0.88 sec)
 
mysql> insert into meses values (1, '1'), (2, '2'), (3, '3'), (4, '4'),
    -> (5, '5'), (6, '6'), (7, '7'), (8, '8'), (9, '9'), (10, '10'),
    -> (11, '11'), (12, '12');
Query OK, 12 rows affected (0.08 sec)
Records: 12  Duplicates: 0  Warnings: 0
 
mysql> select * from meses order by numero;
+--------+--------+
| numero | cadena |
+--------+--------+
|      1 | 1      |
|      2 | 2      |
|      3 | 3      |
|      4 | 4      |
|      5 | 5      |
|      6 | 6      |
|      7 | 7      |
|      8 | 8      |
|      9 | 9      |
|     10 | 10     |
|     11 | 11     |
|     12 | 12     |
+--------+--------+
12 rows in set (0.07 sec)
 
mysql> select * from meses order by cadena;
+--------+--------+
| numero | cadena |
+--------+--------+
|      1 | 1      |
|     10 | 10     |
|     11 | 11     |
|     12 | 12     |
|      2 | 2      |
|      3 | 3      |
|      4 | 4      |
|      5 | 5      |
|      6 | 6      |
|      7 | 7      |
|      8 | 8      |
|      9 | 9      |
+--------+--------+
12 rows in set (0.00 sec)
 

Revisa que tu campo sea de tipo numérico o en su defecto tendrás que hacer la conversión a numero en el order by.

También convendría que nos pongas el orden en que te está presentando los datos, para darnos una idea de que puede estar ocurriendo.

Saludos
Leo.

[Daviel]

Antes que nada no sabia que no habia que postear código (no he leido las reglas), el resultado de la consulta es algo amplio (como lo muestra el código), por lo que no se me ocurre como postearlo aqui, solo para el antecedente uso Access 2003 y visual studio 2005, y pues gracias de cualquier forma por el interés.

[Daviel]

¡EXCELELENTE! compañero leonardo_josue diste en el clavo, efectivamente mi campo "Mes" era de tipo "Texto" y ahora que lo cambie a tipo "Número" funciona perfectamente, te agradezco mucho tu bien ilustrada explicación, PROBLEMA RESUELTO.

[leonardo_josue]

Son pequeños detalles que de repente se pasan por alto, pero me da gusto que hayas dado con la solución.

Saludos
Leo

[patiurco]

Otra mas que resuelves Leo puedo ver que eres bastantante bastante bueno.

[leonardo_josue]

Gracias patiurco, pero realmente esa sólo cuestión de revisar los detalles básicos. Me gusta tratar de ayudar, así como cuando he necesitado ayuda otros lo han hecho.

Es como el karma (y no me refiero simplemente a la valoración en el foro), en algún lado leí:

La frase más clara sobre el karma, de la retribución del universo, el que ama es amado, el que ayuda es ayudado, el que critica es criticado

Así que si puedo ayudar a alguien, me doy por bien servido, no importa que no me den karma jejejejeje.

Saludos.
Leo