Ordenar por Fechas - Página 2 - VB-MUNDO

J.M.Movilla · #11 (**permalink**) 23-07-2008, 20:05:25

Pues ya la última por mi parte: revisa la línea en que haces la grabación de ese dato en tu DB. Si es preciso le pones :

Código:

rs.Fields("Fecha") = Format(DatoOrigen, "dd/mm/yyyy")

El_Principiante · #12 (**permalink**) 23-07-2008, 20:12:20

JeJe, No te des por vencido de alguna u otra forma creeme que lo voy a solucionar. de cualquier forma te agradezco tu aportación, ha se me olvidaba sigue sin arreglarme el orden de las fechas.

J.M.Movilla · #13 (**permalink**) 23-07-2008, 20:29:02

Oye, amigo El_Principiante: ¿No te importaría subir esa base de datos comprimida con WinRar? (salvo que contenga datos reales y de tipo protegido como DNI o RUT, datos de religión, datos bancarios, etc...)

Algo tiene que tener ese fichero "retorcido" que podamos enderezar... digo yo.

El_Principiante · #14 (**permalink**) 23-07-2008, 20:35:29

Si ese es el problema que ya tiene demasiados registros para ser exactos 832 y si tiene información que es muy confidencia. pero mira. habia estado probando solamente ese codigo con un cliente pero ahora tome otro cliente y que crees me hace el orden de fechas exactamente como se lo indico y ahi no tengo problemas voy a seguir probando de uno por uno y verificarlo obviamente con la base de datos y aunque me tarde mas pero voy a revisar registro por registro. ya luego les cuento cual fue el problema.

El_Principiante · #15 (**permalink**) 23-07-2008, 21:06:02

Bueno por fin solucione mi problema:

El problema no esta en la consulta, estaba en la Grilla. me quedo de esta forma.

Código:

If Rs.State = 1 Then Rs.Close
   Rs.Open "SELECT * FROM Ppagos WHERE NOMBRE = '" & .TxtActualizarNombre.Text & "' ORDER BY Ffecha", cnn, adOpenStatic, adLockOptimistic
            Rs.Requery
            Call .FlexGridCargar(.GrillaPpagos)
            
            Fila = 1
            While Rs.EOF = False
                .GrillaPpagos.TextMatrix(Fila, 0) = Format(Rs.Fields("Ffecha"), "dd-MMM-yyyy")
                .GrillaPpagos.TextMatrix(Fila, 2) = Format(Rs.Fields("Pagos"), "$ #,##0.00")
                Fila = Fila + 1
                Rs.MoveNext
            Wend
            .TotalPpagos = Format(Sumar(.GrillaPpagos, 2), "$ #,##0.00")
        .Show vbModal

Creo que esto era una Novatada, pero en fin a veces se nos escapan algunos detalles. Gracias a todos los que se esforzaron por ayudarme.

Hasta Pronto.

J.M.Movilla · #16 (**permalink**) 23-07-2008, 21:11:27

No me digas que no te habías enterado de que era en la grilla donde te escribía "07/12/2008" un movimiento de hace 10 días, y tú sin enterarte... Te vamos a pasar factura por el despiste... Sí, sí; ese fallo vas a tener que pagarlo...

El_Principiante · #17 (**permalink**) 23-07-2008, 21:16:46

Jejejejejeje, La verdad es que ya me estaba volviendo loco. pero en fin ahi esta la solución.