SoloCodigo

SQL

Código: Text

1.  
2. SELECT chl_tb.hora, chl_tb.hora2, DateDiff('n',[hora],[hora2]) AS direfencia
3. FROM chl_tb;
4.  
5.  

Prové algo asi (sentencia de prueba):

Se ve que el mismo campo se repite, eso es porque el objetivo seria algo asi:

05:00
05:00
--------
10:00

Ahora viene algo que asusta un poco, porque es algo complicado.
Esa suma viene de irse acumulando registros mostrados en un MSFlexgrid
Si la columna tiene muchas filas pues seria algo como esto:
05:00
05:00
05:00
05:00
05:00
-------
25:00

Obviamente se ve que el resultado no puede estar en formato de hora, aunque sus datos si sean de hora. Pero esto se complica más, puesto que si llegase a existir un 05:30 entonces el resultado seria 25:30

Entonces lo que tengo que probar (y en caso de fallar preguntar por aqui) seria el intentar que el resultado sea en formato numerico decimal quedando asi:
Es decir, convertir el dato hora a numerico (pero con decimales).

05:00
05:00
05:00
05:00
05:00
-------
25

O en caso de una media hora asi:

05:00
05:00
05:00
05:30
05:00
-------
25.5 -->(sin redondeo)

Como que de formarse esto, mejor me ahorro el dolor de cabeza de cómo sería esto en las funciones de Crystal para el caso del reporte y mejor usaria la misma SQL que haria esto en VB, pero incrustandola en el reporte de Crystal y asi matar dos pajaros de un tiro.

Hola por aquí por este foro de Bd nuevamente

No les da rabia cuando se hace algo y luego viene el que le dio inicio y marcha al proyecto y luego de que esté todo hecho (y más cuando algunas cosas costaron hacerlas) venir a decidir que los datos mejor sean X y no Y ????

Tenía un programa que trabajaba con numeros, me costó que aceptara decimales puesto que redondeaban las sumas, etc, igual en Crystal. Pero listo, resuelto.

Ahora viene el muy...    que es mejor (prefiere) que en vez de indicar las horas AM y PM de horas de Trabajo de un Empleado, que mejor se ingrese la "Hora de Entrada" y la "Hora de Salida" y automaticamente el programa determina las horas entre hora y hora. Ya por aquí por el foro me han ayudado a cómo hacer eso posible.

Increible que esa decisión de cambio de datos, haya cambiado todo, la ventana que lo maneja (form), su codigo (obviamnente), la tabla que lo relaciona, y desde luego, de eso no escapa el reporte, sentecias SQL nuevas, etc. Todo lo anterior hecho a esto, directo a la papelera del escritorio (por asi decirlo).

El cambio de datos ni siquiera se le ocurrio viendo el progreso del programita, sino de un archivo Excel del cual parte todo esto, es ahí cuando uno se pregunta ¿y porqué no dedujo estos cambios antes de yo haber hecho las cosas? (antes de darme el archivo), simplemente otro más que cree que todo se soluciona con un click, boton derecho y propiedades.

Perdon por lo escrito, es que es la segunda vez que me pasa algo así y ha sido con el mismo individuo, no critico los cambios, digo de que al menos los haga antes y así no hacer que lo ya hecho (en dias y/o horas) no haya valido nada. Todo esto porque la cuestion no fue agregar sino reemplazar/sustituir cosas ya hechas. Sólo sé que de volver a pasar, me voy a sentar con este señor y le voy a explicar mejor las cosas, para que no esté a diestra y siniestra cambiando las cosas a su antojo/gusto luego del trabajo ya hecho.

Bueno a lo que venía a preguntar:
Por favor ¿Sabe alguien como sumar Horas en una sentencia SQL?
He estado intentado algo con CONVERT(DateTime, campo), DATEDIFF() y SUM(DATEPART()) pero error seguido de otro, no he logrado formar algo concreto que funcione.

Como estos datos son el todo y el protagonista del programita, tengo que preguntar, dónde lo subo (cuando esté listo) para que se lo bajen porque al ayudarme a resolver estos problemas, practicamente es como si el programa fuese de todos, aun saliendo del paso de algunos problemitas antes presentados sin consultarlo por aquí, ya un par de cosas, me han ayudado a resovlerlo por aquí. Lo guardan de recuerdo  

Saludos aquí nuevamente.

No tengo idea de como solventar este asunto, no sé si en algun momento haya tenido alguien este problema:

Tengo dos ComboBox (son más pero tratan de lo mismo pero distintas horas)
En uno se indica hora de Entrada del empleado, y en el otro se indica la hora de salida.
En un Label se coloca el estimado de Horas de ese rango.

Pero los Combo tienen lo siguiente: (ambos los mismos datos)
6:00 am
6:30 am
7:00 am
7:30 am
8:00 am
8:30 am
9:00 am
.... etc
.... etc
.... etc
12:00 pm
12:30 pm
1:00 pm
1:30 pm
2:00 pm

Si se selecciona en un combo 7:00 am y en el otro 12:00 pm, se deberia de mostrar en el Label de horas = 5 (horas trabajadas)

Ni idea en verdad de como atacar o darle la vuelta correcta a esto, no podría con algo como:


Las combinaciones en la sentencia de deición son demasiadas, ha sido lo primero que me paso por la mente, no digo que sea lo que vaya a usar.
¿No habra algun control de VB que permita resolver este tipo de tarea?

Ya tenia el programita listo y viene el que lo mando a hacer a venir a desear tomar los datos de otra forma y me desperoleo todo, espero que no tenga que reestructurar las tablas o el reporte, alguien sabe por fa?  

Lo siento pero lo expuesto aquí anteriormente no dio resultado, se perdia la conexión (link) con los campos de la tabla, quedando de esa forma, un reporte en blanco, seguire intentando con la esperanza de por fin encontrar la solucion de esto.  

Parece que ya esta resuelto  

Queria seguir probando con lo que ya tenia armado, me daba cosa probar de 0 con otra cosa distinta desde el comienzo, asi que ahí dandole a ver que podía arreglar de lo montado.

Cambie el:
AMLb = Val(AMLb) + Val(![AM1])

Por un leve ajuste:
AMLb = Format(CCur(AMLb) + CCur(![AM1]), standard)

E igual con los demás, y ya muestra decimales.

Todo listo, muchas gracias muchachos  

Ahora solo me queda resolver el redondeo de decimales en Crystal.
Aun indicando a cada campo del reporte, el Formato de decimal y aun trayendose los datos (que si estan en decimal) de la Tabla de la BD, Crystal los muestra como enteros y las Formulas de Sumatoria de Crystal me redondean esos datos, parece la historia sin fin  
Pero al menos ya el programa se liberó del problema  

Epale F_Tanori que tal como va todo, y la familia bien? a que bueno me alegro, que siga asi entonces  

Con eso que expones ya tengo plan B  

El plan A al cual había recurrido es el siguiente, con esta SQL de siempre:

Y de esa SQL meti sus Alias en unos Labels así:

        Dim AMLb As Double
        Dim PMLb As Double
        Dim TotalLb As Double
        Dim Clausula26 As Double
        Dim AMextD As Double
        Dim PMextD As Double
        Dim TotalextD As Double
        Dim AMextN As Double
        Dim PMextN As Double
        Dim TotalextN As Double
       
        With Data2.Recordset
            While Not .EOF
                '.......................................
                'AM: (Horario Laboral Normal)
                If IsNumeric(![AM1]) = False Then
                    Exit Sub
                Else
                    AMLb = Val(AMLb) + Val(![AM1])
                End If
                '.......................................
                'PM: (Horario Laboral Normal)
                If IsNumeric(![PM1]) = False Then
                    Exit Sub
                Else
                    PMLb = Val(PMLb) + Val(![PM1])
                End If
                '.......................................
                'Total1: (Total Horas Laboradas)
                If IsNumeric(![Total1]) = False Then
                    Exit Sub
                Else
                    TotalLb = TotalLb + Val(![Total1])
                End If
                '.......................................
                'Clausula 26:
                If IsNumeric(![Total1]) = False Then
                    Exit Sub
                End If
               
                If Val(![Total1]) > 44 Then
                    Clausula26 = Clausula26 + Val(![Total1]) - 44
                Else
                    Clausula26 = 0
                End If
               
                '.......................................
                'AM Extra Diurna:
                If IsNumeric(![AM2]) = False Then
                    Exit Sub
                Else
                    AMextD = AMextD + Val(![AM2])
                End If
                '.......................................
                'PM Extra Diurna:
                If IsNumeric(![PM2]) = False Then
                    Exit Sub
                Else
                    PMextD = PMextD + Val(![PM2])
                End If
                '.......................................
                'Total Extra Diurnas:
                If IsNumeric(![Total2]) = False Then
                    Exit Sub
                Else
                    TotalextD = TotalextD + Val(![Total2])
                End If
                '.......................................
                'AM Extra Nocturna:
                If IsNumeric(![AM3]) = False Then
                    Exit Sub
                Else
                    AMextN = AMextN + Val(![AM3])
                End If
                '.......................................
                'PM Extra Nocturna:
                If IsNumeric(![PM3]) = False Then
                    Exit Sub
                Else
                    PMextN = PMextN + Val(![PM3])
                End If
                '.......................................
                'Total Extra Nocturna:
                If IsNumeric(![Total3]) = False Then
                    Exit Sub
                Else
                    TotalextN = TotalextN + Val(![Total3])
                End If
                '.......................................
                .MoveNext
            Wend
        End With
        LbAM1.Caption = AMLb
        LbPM1.Caption = PMLb
        LbTotal1.Caption = TotalLb
    LbClau26.Caption = Clausula26
        LbAM2.Caption = AMextD
        LbPM2.Caption = PMextD
        LbTotal2.Caption = TotalextD
        LbAM3.Caption = AMextN
        LbPM3.Caption = PMextN
        LbTotal3.Caption = TotalextN

Los Exit Sub entre ellas es porque cuando la SQL2 no encuentra nada en el rango de fechas, entonces daba error de Null. Estos Labels están abajo de un MSFlexGrid el cual es el que muestra la consulta de la tabla, generado por una SQL1. Estos Labels son Totales de columna del MSFlexGrid pero exactamente de la Tabla de la BD, la grilla solo se lo trae.

Pero con esto ultimo he visto que los Totales no sirven para decimales ya que esos Labels de Totales hacen esto: 1 + 1.5 = 2  

Yo creo que pondre en comentarios el Plan A y pasare a tu Plan B de "rompa el vidrio en caso de emergencia" y que quede lo que por fin sirva al 100% sin fallos

PD: Estos totales solo salen en la ventana (Form) no se guardan en la BD, se generan en base a los datos de la BD pero no se guardan. Si salen en un reporte. Gracias a las funciones de Crystal eso del TotalLB>44 si se hace bien en el reporte, me costó pero ya se guardan decimales en la BD antes tambien caían redondeados como enteros, ya había provado con CDec(), CDbl(), CCur(), si salian los decimales pero se guardaban en la BD valores enteros, pero ya, ahora si se guardan decimales.  Todo estos datos son de Horas, al hablar de decimales es por lo que trabajar 1 y 1/2 siendo asi 1.5 (una hora y media)  En pocas palabras mi problme es realmente dos, decimales (2 digitos) sin redondeo y ese susodicho dato de Clausula26 y es todo y lo único que me falta para cerrar ese capitulo jum!

Bueno aprovecho para decirles que un cliente me ha contratado un software BRUTAL... tengo que desarrollarlo en menos de un mes
Luego colgaré los requisitos para ver si alguien me lo desarrolla... Gracias por todo!

¿para ver si alguien me lo desarrolla?   no queras decir "para ver si alguien me ayuda (hechar una mano)" lo justo es en ayudar a vencer algunas trancas/estancamientos, porque de no ser asi, entonces otro lo desarrolla y de una vez que coloque en el post de respuesta, la cuenta de banco a depositar por el trabajo. LOL!  

Si eso debe ser, hechar una mano, solo es un mal orden de las palabras  
verdad!!  ¿?

Es que la BD está en Access, eso podría servirme en SQL Server por ejemplo, esto parece que se unirá luego a otro programa que trabaja con archivos planos, yo lo hice así con esta Bd y pues como que me parece que voy a tener que recurrir a unas marañas y actos de magia que ya estoy determinando para salir de este muerto  

tu sistema operativo es windows vista? dry.gif (o es solo el skin?)

hehehe.. es WinXP lo que pasa es que le tengo puesto el Windows Blinds que le da una apariencia como esta y junto con el yodm3D tengo de sobra y lo suficiente en mi desktop para trabajar amoniozamente (al menos en mi particion Windows)

Para evitarme esos problemas lo que hice fue mejor bajar el IDE netbeans junto con el JDK, esto lo que hace es instalar todo lo necesario para que corra Java.

lo puedes bajar de aqui

La verdad nunca tuve el problema que decís, pero ojala esto ayude.

Muchas gracias robertogt un paquete completo con lo que necesitaba era justo lo que necesitaba encontrar, descargué, instalé y corrí por fin el NetBeans gracias al link que me indicaste, thank's man    

se puede poner un \archivo.txt en la ruta del CrystalReport.FileName?  
en todo caso, me saca el mismo error: Error 20997 en tiempo de ejecucion

Ya lo del ODBC estaba hecho   en lo que no caía era como conectarme a ella en el crystal para hacer el reporte, pero ya di con donde debía de dar para eso.  

 

Saludos a todos

Tengo un problema que en verdad no sé como sería su salida, trato de hacer un reporte, sus datos, una base de datos SQL Server 7, pero al proceder desde Crystal Report 8.5 a crear el reporte, en la lista de Bases de Datos, lo único que siempre consigo referente a SQL Server, son las tablas nativas propias del SQL Server, las Master, pero nada que sea mio, ninguna Bd, ninguna tabla mia.

Podría alguien sugerirme el punto que pueda ayudar a que esto tenga algun sentido? porque con ese asunto como indico, no veo manera de poder crear algun reporte hacia una Bd Sql Srever.

 

hola comunidad, escribo este post debido a un problema de enlace de un datagrid, primera vez que veo que Google no tiene ni un link al aviso "No se puede inicializar los enlaces de datos" lo cual es el error que saca un form con un datagrid.

Tengo un programita que se conecta a una BD SQL Server 7 que está en otro pc, es SQL Server 7 porque la topología de la red es de par a par, no hay servidor ni ningun pc con windows server, aunque desde el punto de vista para el programa, él si verá entre el programa y la Bd una arquitectura cliente/servidor, pero con una Bd que SQL Server que funcione en sistema operativo de escritorio, como el windows xp.

El programita si se conecta a la Bd, debido al realizar operaciones de regisros, consultas, edicion, etc. Pero tengo una ventanita que tiene un DataGrid, al tratar de cargar esta ventanita, el programa se tarda un ratico, y luego saca un aviso que dice:
"No se puede inicializar los enlaces de datos"

Este es el código Load del Form que tiene el DataGrrid:

El DataGrid está conectado o enlazado a la Bd y la tabla por un control Ado, el código de conexión a la Bd no lo tiene este Form debido a que el Form Padre ya tiene la conexión ella, en todo caso este es el código de la conexión a la Bd que tengo en un modulo y llamo desde el Load del Form Padre:
Otra cosa, es que el Form con el DataGrid si carga los datos localmente, es decir, ejecutando el programa en la PC que tiene la BD, localhost, pero desde otra PC, es que sucede este problema, sé que el asunto está en el Load del Form que tiene el DataGrid pero no he logrado ver aun qué es lo que falte de código en la conexión del Adodc1 para que el DataGrid muestre los registros de la tabla.  Alguna observación a comentar sobre este problema? no sea que yo esté mirando donde no es.