• Martes 19 de Noviembre de 2024, 05:36

Mostrar Mensajes

Esta sección te permite ver todos los posts escritos por este usuario. Ten en cuenta que sólo puedes ver los posts escritos en zonas a las que tienes acceso en este momento.


Mensajes - UserCode

Páginas: 1 ... 3 4 [5] 6 7 ... 15
101
Visual Basic 6.0 e inferiores / Re: Como Editan Con Ado
« en: Domingo 10 de Junio de 2007, 20:54 »
Si, totalmente de acuerdo contigo, un Where y listo  :good:  :comp:

102
Visual Basic 6.0 e inferiores / Re: Como Editan Con Ado
« en: Domingo 10 de Junio de 2007, 15:22 »
y donde indicas cuál de tantos regisros es el que estas editando? ahi la SQL dice "Select * From Tabla" no hay Where  :blink:

Pero ya veo, todo un proceso de conexion sea por control o variable para luego directamente meter los datos, ese codigo que puse ahí esta dentro de un If TexT=Rs!Campo Then el cual está dentro de un bucle While

Código: Text
  1.  
  2. If Rs.RecordCount > 0 Then 'para que el .movefirst no de error
  3.    Rs.MoveFirst
  4.    While Not Rs.EOF
  5.          If Text1=Rs("Campo") Then
  6.                Aqui todo el codigo anterior de edicion
  7.                con esto sé que estoy parado en ese registro
  8.               Exit Sub
  9.          End If
  10.          Rs.MoveNext
  11.    Wend
  12.    Msgbox "Registro No Encontrado", vbInformation, "Aviso"
  13.  
  14.  

Si, muy semejante con lo mio del Adodc, no se diferencia mucho, ya vi, voy a ponerlo a variable y quito el control, me gusta más asi.  :comp:  :good:

103
Visual Basic 6.0 e inferiores / Como Editan Con Ado
« en: Sábado 9 de Junio de 2007, 22:26 »
Hola desarrolladores  :hola:

Me gustaría conocer como editan en ADO, yo debo recurrir al control Adodc asi:

Código: Text
  1.  
  2. Adodc1.CommandType = adCmdText
  3. Adodc1.ConnectionString = conexion
  4. Adodc1.RecordSource = "Select * From agenda_tb Where nombre='" & txtNombre.Text & "'"
  5. Adodc1.Refresh
  6. Adodc1.RecordSource = "Select * From agenda_tb Where nombre='" & txtNombre.Text & "'"
  7. Adodc1.Recordset.Fields("nombre") = txtNombre.Text
  8. Adodc1.Recordset.Fields("telefhab") = txtTelefHab.Text
  9. Adodc1.Recordset.Fields("telefcel") = txtTelefCel.Text
  10. Adodc1.Recordset.Fields("correo") = txtEmail.Text
  11. Adodc1.Recordset.Fields("direccion") = txtDireccion.Text
  12. Adodc1.Recordset.Update
  13. Adodc1.Refresh
  14. MsgBox "El Registro ha sido Actualizado", vbInformation, "Control de Registros"
  15.  
  16.  

La variable "conexion" pues se trae toda la cadena de conexión para el control Adodc, pero fuera de Editar, el resto lo puedo manejar sin usar el control Ado, es decir, lo tengo solo por este código.

Con DAO uno solo colocaba con una variable Recordset: Rs.Edit y todos felices  :rolleyes:
Pero con ADO, Rs.EditMode no conozco qué le faltaria para funcionar, porque yo puedo por ejemplo cambiar solo el codigo de conexión, pasando de DAO a ADO y el resto del código seguiría igual exceptuando el de Editar.

En el caso de no querer usar un control Adodc sino por variable Recordset, como Editan, como lo hacen  :blink:

104
MySQL / Users De Mysql
« en: Sábado 9 de Junio de 2007, 21:19 »
EDITANDO...

FEDERATA:  :P

Perdon, toy presentando unas fallas tecnicas :P debido a que no es posible eliminar el mismo usuario que crea el post, pues lo edito, ya me tropece con algo que me oriento con respecto a MySQL, mil perdones, lamento no haberme tropezado antes con eso.

Eran problemas de borrar cuentas de usuario en MySQL no sé porque a veces no me sirve poner:
DROP USER pepe;
sino:
DROP USER pepe@localhost

Pero en otras lo primero si lo acepta, era problemas de borrar cuentas de usuario debido a que necesito un usuario con Host (%) y no con Host (localhost).

Si gusta, puede borrar este post moderador :P

105
La taberna del BIT / Re: Felicidades Lencho !!!
« en: Viernes 8 de Junio de 2007, 19:21 »
huuyyy llegue tarde, bueno la intencion vale igual, FELIZ CUMPLE compadre :P

esteeeee.... quedo torta? :unsure:

106
La taberna del BIT / Re: Sobre Mi Tumba
« en: Miércoles 6 de Junio de 2007, 14:45 »
Escrito en mi Lapida: :P
Código: Text
  1.  
  2. If individuo_vivo = False Then
  3.    Msgbox "Boveda Mortuoria vacia", vbInformation,"Estado Actual"
  4. Else
  5.    Msgbox "Por favor, ingrese Flores",vbInformation,"Estado Actual"
  6. End If
  7.  
  8.  

107
La taberna del BIT / Re: El Pan De Cada Dia
« en: Martes 5 de Junio de 2007, 16:11 »
:lol: jajaja... todos estan muy buenos, el ultimo es muy cierto, en la prensa y webs de empleo piden mucho, de hecho yo estoy parado donde actualmente hago mis "trabajitos " con una mentirita de requisito, como 4 años en trabajos anteriores, tenia menos, pero los trabajitos que he hecho en otras partes me dieron una ayuda, en una parte donde solo estuve 2 años (porque era por contrato) pues me dijeron que tranquilo que indicase que ahí trabaje por todos los años del mundo que sean necesario para esas exigencias de muchos años en otras partes, que colocase eso en los papeles, cualquier cosa que llamasen, indicarian que así era. Ya lo demás de 8 lenguajes, 4 bases de datos, vehiculo 2006, etc pues en muchas ocasiones es posible que uno no abarque todo lo pedido, aunque si algunos, pero igual aqui hay gente que trabajan en esa parte del perfil en el que uno no entra, el trabajo se divide en 2 o 3 personas cada uno manejando lo suyo, pero en otras partes quieren todo eso en una sola persona, un super empleado con todo y capa. En algunos anuncios se indica Sueldo: en base a experiencia y destrezas, es lo justo, aunque hay otros que para tantos requisitos el salario no lo abarca tanto, explotacion a gran escala.  :angry:

108
Crystal Reports / Mysql Por Odbc En Crystal Report
« en: Martes 5 de Junio de 2007, 00:16 »
Saludos a todos quienes usan Crystal Report  ;)

Estoy tratando de hacer un reporte en Crystal, los datos, provenientes de una tabla de una Bd MySQL a la cual accedo actualmente y por los momentos por ODBC.

El problema está en que Crystal no logra conectarse a la BD, a pesar de que los datos de Servidor, Usuario y Password son correctos, para ver mejor esto indico los pasos con cada ventana.

Bueno, arranco todo bien con la idea de comenzar el informe/reporte:


Luego caemos en escoger el tipo de base de datos a trabajar:


Selecciono de la carpeta ODBC la conexión MySQL que reconozco en la lista, la misma con la que se conecta el programa:


Al seleccionarlo enseguida aparece la ventana ODBC de MySQL, la misma del Panel de Control y origen de datos de windows:
Yo tengo 3 usuarios en MySQL, root por default, y pepe y jose como nuevos usuarios creados, solo tienen acceso y privilegios a una BD y una Tabla, pero ni con root y su clave me ha servido.


Luego de puslar OK, me pasa a esta siguiente ventana de la cual selecciono alguno de esos dos archivos presentes que ya habia hecho antes con fallidos intentos, embasurandose cada vez más arbol ODBC de Crystal con DNS nuevos que no funcionana:


Luego de esa ventana me vuelve a mostrar otra ventana parecida (pero no igual) de la ventana ODBC de MySQL:


A la final lo único que obtengo es esto:
He cambiado localhost por nombre del PC, por la IP y nada.


Y en otras ocasiones hasta esto:


Esta ultima ventana no la carga el Crystal, es la ventana de ODBC MySQL del Windows en su Panel de Control y su cuestion de Objeto a datos, se verá que es exactamente igual a una de las ventanas ya mostradas anteriormente, con la diferenca de que está ventana si funciona:



Bueno ahí estan las pruebas, podría explicarme alguien qué estoy haciendo mal,  :(  lo que me intrigado es que la ventana ODBC que llama el Crystal es la misma de Windows que si funciona desde la aplicación de Objeto a Datos del Windows, pero no funciona al tratarla en Crystal para terminar de enlazar y hacer el reporte.
Me siento como si estuviese viviendo un capitulo de la Dimensión Desconosida  :huh:

109
La taberna del BIT / Re: El Pan De Cada Dia
« en: Lunes 4 de Junio de 2007, 21:49 »
Citar
Buenisimo el de Ikea :lol: :lol: :lol:

Si no la arma en 15 minutos, no hay entrevista  :P

Citar
Con tal, el hombre llegó, vio el proyecto, dijo que tenia una cosita en su Pendrive que habia hecho por aparte, paso el proyecto de el y le dio "Aceptar" a copiar todo. Y se tiró los avances de dias y noches desvelados en una semana, pues el Back Up de ese día no lo sacaron.

De cosa que el profesor les dió una semana mas para la entrega, a ese tipo estaban que lo mataban.

Eso si que debe doler, gracias al señor no me ha pasado algo asi, pero si el que en una semana habia terminado algo, era ultimo dia, domingo y habia pensado pasar lo hecho al pendrive, pero preferí hacerlo al siguiente día temprano, lo que no conocia es que al siguiente día el pc presento un problema sumamente grabe, al parecer algo en el disco duro se habia corrompido a tal grado que llegue a pensar que tendria que formatear, reinstalar y no poder salvar nada (siempre pensando lo peor como cosa rara) y preocupado más por eso que no había pasado al pendrive, recordando el dicho de "no dejes para mañana lo que puedes hacer hoy" ahora cada vez que hago   (y sobre todo cuando lo termino) es hacerle como 3 o 4 copias de una vez, porque sino, dos meses tirados a la basura, ¿para empezar de nuevo desde 0? no gracias, paso <_<


110
La taberna del BIT / El Pan De Cada Dia
« en: Lunes 4 de Junio de 2007, 16:19 »
buenas, estaba endeudado con el tabernero por eso no pasaba por aqui  :P

Asi como una noche luego de un día largo y dificil, con los altibajos del día, la semana y el mes, llegar a tomarse algo frio y refrescante, espumoso :P que distrae un poco el pesar del día a dia y luego es cuando nos pregunta el que nos da los traguitos "y que tal, como estuvo el día" yo creo que un manejador de barra nunca debe preguntar eso hehe.

bueno, no es que todos los días sean horribles, al menos no preguntarles a quienes tengan cara de sicario y viviendo con suegra. Pues esto (post) esta o trata de cosas como:
- y como estuvo tu dia: bueno ayer luego de relacionar las tablas llego el jefe diciendo que debia....

- y que haras con respecto a eso: voy a hacer los cambios pero voy a hablar con...

- y que tal la entrega: bueno luego de 4 días tratando de resolver un problema con la conexión y consultas, entregamos todo estupendamente maravilloso y nos fuimos todos a la tasquita de la esquina, porque era vienes y porque ayer fue dia de pago y además tambien porque... etc.

De eso trata este post, cuentos y más cuentos del día a día de un programador  :)

Un día dificil que he tenido es tratar de entrar a una fortaleza de una empresa que se encarga de llevar en camiones blindados, dinero, y demás cosas como chequeras, tarjetas de credito a sus dueños etc. Todo un proceso, mucha vigilancia, solo para seguir con el levantamiento de datos para un proyecto pautado por el encargado del Dpto de RRHH, si mucha seguridad, luego de entrar a veces siento como si me estuviesen apuntando, mucha gente armada, no creo que nadie intente robar en ese lugar y si algun día pasa algo ahí, pues espero estar bien lejos.

Y luego algo nuevo, visita a un ginecologo para un programita de historial medico, ya fui una vez, las mujeres en la sala de espera me miraban raro ¬¬ al llegar ¿y este que hace pidiendo ver al doctor? :lol: pensando la secretaria que era visitador medico de esos que le venden medicinas a los doctores en su consultorio.

Bueno, conozco gente que tiene cosas verdaderamente locas que contar, como el caso de una persona que pidio que le mandaran entonces una copia en diskette, a la hora llego un motociclista con una "fotocopia" del diskette, dios mio dame pasiencia  :lol:  Y consultas de soporte tecnico por telefono a otras sucursales, indicando hacer algo en el "Escritorio" pero la persona al otro lado de la linea pues... hehe buscando lo que le decian, casi solo le falto meterse debajo de la mesa (escritorio) no encontraba la cuestion.  :lol:

Si definitivamente dentro y fuera de una oficina, por telefono, en reuniones o en la esquina a una calle del trabajo pasan cosas, normales y locas. Cualquier cosa para contar, de todo un poco desde los actos de magia a los cuales hayas tenido que recurrir para saltarte el proxys para chatear por messenger hasta como hiciste para pasar los datos de excel a la base de datos, luego tabulado en archivo plano y finalmente a formato mp3 para que el jefe lo escuche mientras tiene un romance con su secretaria y que tu eres el único que sabe en toda la oficina, etc :nosweat:




PD: se vale poner de todo aquí (bueno apegado al tema claro) tambien se vale matar una gallina y hacer ofrenda seremoniales con muñequitos vodoo del jefe con alfileres, cortarle mechones de pelo a la que tanto nos gusta de la oficina pero que no nos hace caso y montar un pedestal obsesivo con sus fotos, etc.. post no acto para personas cardiacas y menores de 18 años. LOL xD

111
Visual Basic 6.0 e inferiores / Re: Conexión Con Mysql
« en: Lunes 4 de Junio de 2007, 14:47 »
Si, suena mucho mejor asi como dices hernanvid, si es más rápido y si solo es colocar el driver empaquetado en el instalador, entonces me iré por esa vía, comenzaré a buscar información sobre ello.  :good:

112
Visual Basic 6.0 e inferiores / Re: Conexión Con Mysql
« en: Lunes 4 de Junio de 2007, 02:36 »
Perdon por la pregunta pero si yo ya cree un usuario nuevo el cual será con el que me conectare, ¿solo coloco el nombre de usuario sin la clave en la ventana ODBC? (por eso de que se guarda tal cual como uno la ha escrito sin encriptarla en el registro de windows).

Borrando rastro o existencia de usuarios anonimos de la tabla user de la bd mysql:
mysql> DELETE FROM user WHERE Host='localhost' AND User='';
Veo que el root siempre queda ahí, no se borra, fuiiiiuu! que bueno  :P

Creando nuevo usuario (por default va a la tabla user) mi Bd no tiene tabla user:
GRANT USAGE ON agenda.contactos To pepe Identified by '12345';
Este usuario tendría todos los privilegios (insert, update, delete, etc) de la tabla contactos de la bd agenda solo de esa tabla.

De todas formas probé cambiando root por el nuevo usuario y su clave en la ventana ODBC y la conexión es aceptada, pero al colocar ese usuario y su clave en el código de VB no se conecta, no sé porque, por allá si y por aqui no.  :unsure:

EDITANDO:
Perdon ya supe porqué, el usuario está creado pero aun no tenia privilegios como creía.
GRANT ALL ON agenda.contactos To pepe@localhost Identified by '12345';

Ahora si funciona tanto por la ventana ODBC como desde VB.
Si alguien llega a tener estas dudas, aquí está para quitar esas dudas, archivado en el foro.  B)

113
Visual Basic 6.0 e inferiores / Re: Conexión Con Mysql
« en: Domingo 3 de Junio de 2007, 23:52 »
Citar
Seria conveniente que no usaras el root ya que es el administrador de MySQL si alguien llega a obtenerlo  :blink:  puede hacer lo que quiera en el server mejor deverias de crear un usuario con los permisos solo para la base de datos en cuestion  :)

http://mysql.conclase.net/curso/index.php?cap=013

uhmm... faltaria conocer el password para eso pero ahora con esto de...
Citar
otra cosa, nunca dejes el ODBC configurado con contraseña pues esta se guarda en el registro de windows en texto plano  :devil:

Caramba :huh: increible, en efecto voy a reacomodar eso como me indicas para no lamentarme luego.

Gracias compadre, ya te debo bastante, como le dije en una ocasion a un dueño de kiosquito de comida, ponlo todo en mi cuenta :lol:

 :good:

114
Visual Basic 6.0 e inferiores / Re: Conexión Con Mysql
« en: Domingo 3 de Junio de 2007, 22:55 »
Citar
El usuario administrado de MySQL se llama root ese utilizarias para crear un nuevo usario, con cual accesaste en la linea de comando?

Hmm... así que no es el login de mi cuenta en windows sino que en mysql es por default root, bueno la terminal de mysql lo único que pide es password, no login/usuario.

Ahora si corre, era eso, root, no tengo experiencia con mysql, por eso de que era virgen, me falta experiencia  :P

muchas gracias Tanori, es casi seguro que probablemente nunca necesitas alguna ayuda, pero en caso que llegue ese día y pueda ser de herramienta de ayuda, ahí estare, dalo por hecho.  :comp:

 :hola:

115
Visual Basic 6.0 e inferiores / Conexión Con Mysql
« en: Domingo 3 de Junio de 2007, 19:00 »
Saludos, lamento el post, sé que ya hay post sobre conexión a MySQL, estuve viendo estos:

Post 1
Post 2
Web de MySQL

Pasando a bases de datos libres, pues tengo esto:


Esta es la configuración en ODBC:


Y este es el código con el que trato de conectarme:
Código: Text
  1.  
  2. 'Referencia: ADO 2.8
  3. Dim conexdb As ADODB.Connection
  4. Dim rs As ADODB.Recordset
  5.  
  6. Private Sub Form_Load()
  7.     Dim Servidor As String
  8.     Dim BaseDatos As String
  9.     Dim Usuario As String
  10.     Dim Password As String
  11.     Dim SQL As String
  12.     Dim Conexion As String
  13.    
  14.     Servidor = "localhost"
  15.     BaseDatos = "agenda_db"
  16.     Usuario = "admin"
  17.     Password = "123456789"
  18.     SQL = "Select * From agenda_tb"
  19.    
  20.     Conexion = "DRIVER={MySQL ODBC 3.51 Driver};"
  21.     Conexion = Conexion & "SERVER=" & Servidor & ";"
  22.     Conexion = Conexion & "PORT=3306;"
  23.     Conexion = Conexion & "DATABASE=" & BaseDatos & ";"
  24.     Conexion = Conexion & "USER=" & Usuario & ";"
  25.     Conexion = Conexion & "PASSWORD=" & Password & ";"
  26.     Conexion = Conexion & "OPTION=3;"
  27.    
  28.     Set conexdb = New ADODB.Connection
  29.         conexdb.ConnectionString = Conexion
  30.         conexdb.CursorLocation = adUseClient
  31.         conexdb.Open
  32.    
  33.     If conexdb.State > 0 Then
  34.         Set rs = New Recordset
  35.         rs.Open SQL, conexdb, adOpenStatic, adLockOptimistic
  36.     Else
  37.         MsgBox "No se ha podido realizar la Conexión con la Base de Datos", vbInformation, "Fallo la Conexion"
  38.         Unload Me
  39.     End If
  40. End Sub
  41.  
  42.  

Pero me genera el siguiente error:


En la ventana de conexión ODBC de MySQL no puedo asignar una Database, ese combo está vacio, si trato de seleccionar, como no tiene nada saca este aviso:
Request returned with SQL_ERROR. Si escribo le base de datos no pasa nada.

El código lo veo lógico, pero algo hace que no pueda conectarse, por favor ves algo que ocasiona la falla de conexión, soy virgen con mysql  :P

116
Visual Basic 6.0 e inferiores / Re: Calcular Hora
« en: Martes 29 de Mayo de 2007, 00:50 »
El código que he usado gracias a un ring y pregunta a alguien  :P

Código: Text
  1.  
  2. Dim hc As Variant
  3. Dim h As Variant
  4. Dim h1 As Variant
  5. Dim h2 As Variant
  6. Dim ht As Variant
  7. Dim m As Variant
  8. Dim s As Variant
  9. h1 = CmbEntradaD.Text
  10. h2 = CmbSalidaD.Text
  11. If h1 = "" Or h2 = "" Then
  12.    Exit Sub
  13. End If
  14. hc = Format(CDate(h2) - CDate(h1), "hh:mm:ss")
  15. h = Hour(hc)
  16. m = Format(Minute(hc) / 60, "0.00")
  17. s = Format(Second(hc) / 3600, "0.00")
  18. ht = h + m + s
  19. LbHorasTurnoD.Caption = ht
  20.  
  21.  

Resultados del código:
7:00 am - 12:00 pm = 5
7:30 am - 12:00 pm = 4,5
6:00 am - 6:30 am = 0,5

hc: Hora Completa
h1: Hora de Entrada
h2: Hora de Salida
h: La hora resultado de la diferencia de h2-h1 y ya con su formato "hh:mm:ss"
ht: Hora Total
m: minutos (obviamente)
s: segundos (obviamente)

Por cierto, había preguntado en una ocasión algo sobre como mostrar en controles de calendario DTPicker el 1er y ultimo dia del Mes. Bueno el ultimo día no es importante puesto que con respecto al día presente, no hay manera de conocer ni interes en ver datos que aun no han sido ingresados, ni que viesemos el futuro de los datos de mañana y los continuos dias  :P
Seria entonces desde el 1er día del mes hasta el día actual del mismo en el que nos encontramos para mostrar datos de días anteriores.

Primer día del Mes:
DTPicker.Value = "01/" & Month(Date) & "/" & Year(Date)

Para un TextBox pues seria eso mismo pero dentro de un Format.

Por fiiiiiiiin!!!  :P
Si alguien lo necesita, ahi ta :kicking:

117
Visual Basic 6.0 e inferiores / Re: Calcular Hora
« en: Sábado 26 de Mayo de 2007, 04:00 »
Citar


09:00
08:30
02:30
--------
19:60 ?

que no serian 20 hrs? en ese caso que pasaria si fueran algo como

Son 19 Hrs con 60 minutos  :P

Citar
09:50
08:40
02:30
--------
19:120

Ese 120 me está asustando  :(
tendría que revisar. Pero no es que no sea valido.
Sería fabuloso que por cada 60 minutos o más, se incremente el de hora, es decir, se distribuya como deberia, porque 3:60 podría ser realmente 4:00 por ejemplo.

De todas formas, creo que el formato de todo esto siempre es semanal, claro está que si se desea ver registros de un Empleado de más de una semana, un mes o más, el acumulado excederia lo normal de totales, pero por ejemplo, todo esto a partido de algo en Excel en donde solo se observa la semana, siendo así un control de semana por semana los 7 dias.

Si si, ya sé, ahí dice AM y PM, es que ese era el formato viejo, ahora es con todo este dolor de cabezas de horas haciendo que lo hecho anteriormente haya ido directo al caño cuando yo era feliz y el programa trabajaba por numeros  :(

F_Tanori:
Citar
desde mi punto de vista (humilde opinion rolleyes.gif ) deberias de convertir todo a segundos y hacer las operaciones matematicas con ellas una vez obtenido el resultado convertir en formato hh:mm:ss
Aun no sé hacer eso, es la primera vez que trabajo tanto con horas  :unsure:
procedere a investigar un poco sobre como hacer eso.

Angel38:
Citar
Varsuma= format(suma,"hh:mm:ss")

Hmmmm.... con razón no furulaba bien, eso tambien lo voy a revisar  :huh:

118
Visual Basic 6.0 e inferiores / Re: Calcular Hora
« en: Viernes 25 de Mayo de 2007, 21:26 »
Bueno, creo que ya esta solucionado el asunto de las sumas, siempre quise probar algo que daba mal hasta que ya de forma más organizada dio.

Debido al problema de mostrar un Total (formato dato numerico) en base a datos de Hora (formato hora), decidí hacer una tablita en la Bd y desde el programa truncar o tomar la porción de interés de cada Total_Horas (las horas y los minutos de cada turno).

Recurri a esto porque de usar alguna función en VB, no sabía luego como solucionarlo igual en Crystal.



Luego de recopilar o llenar eso con cada ingreso de datos, los organizo y sumo asi:
Ejemplo:
Código: Text
  1.  
  2. Select Sum(hD) As HrsD, Sum(mD) As MinD,
  3.           Sum(hN) As HrsN, Sum(mN) As MinN,
  4.           Sum(hExtD) As HrsExtD, Sum(mExtD) As MinExtD,
  5.           Sum(hExtN) As HrsExtN, Sum(mExtN) As MinExtN
  6. From chl_totalesemp
  7. Where NumEmp=30915 And
  8. Fecha Between #01/05/2007# And #31/05/2007#
  9.  
  10.  

Y metiendo eso en unos Labels en la ventana:
Código: Text
  1.  
  2.     Dim THrsD As Integer
  3.     Dim TMinD As Integer
  4.     Dim THrsN As Integer
  5.     Dim TMinN As Integer
  6.     Dim THrsExtD As Integer
  7.     Dim TMinExtD As Integer
  8.     Dim THrsExtN As Integer
  9.     Dim TMinExtN As Integer
  10.     Dim Clau26 As Integer
  11.    
  12.     With Data2.Recordset
  13.         While Not .EOF
  14.             '....................................
  15.             'hD:
  16.             If IsNumeric(![HrsD]) = False Then
  17.                 Exit Sub
  18.             Else
  19.                 THrsD = THrsD + Val(![HrsD])
  20.             End If
  21.             'mD:
  22.             If IsNumeric(![MinD]) = False Then
  23.                 Exit Sub
  24.             Else
  25.                 TMinD = TMinD + Val(![MinD])
  26.             End If
  27.             '....................................
  28.             'hN:
  29.             If IsNumeric(![HrsN]) = False Then
  30.                 Exit Sub
  31.             Else
  32.                 THrsN = THrsN + Val(![HrsN])
  33.             End If
  34.             'mN:
  35.             If IsNumeric(![MinN]) = False Then
  36.                 Exit Sub
  37.             Else
  38.                 TMinN = TMinN + Val(![MinN])
  39.             End If
  40.             '....................................
  41.             'hExtD:
  42.             If IsNumeric(![HrsExtD]) = False Then
  43.                 Exit Sub
  44.             Else
  45.                 THrsExtD = THrsExtD + Val(![HrsExtD])
  46.             End If
  47.             'mExtD:
  48.             If IsNumeric(![MinExtD]) = False Then
  49.                 Exit Sub
  50.             Else
  51.                 TMinExtD = TMinExtD + Val(![MinExtD])
  52.             End If
  53.             '....................................
  54.             'hExtN:
  55.             If IsNumeric(![HrsExtN]) = False Then
  56.                 Exit Sub
  57.             Else
  58.                 THrsExtN = THrsExtN + Val(![HrsExtN])
  59.             End If
  60.             'mExtN:
  61.             If IsNumeric(![MinExtN]) = False Then
  62.                 Exit Sub
  63.             Else
  64.                 TMinExtN = TMinExtN + Val(![MinExtN])
  65.             End If
  66.             '....................................
  67.             .MoveNext
  68.         Wend
  69.     End With
  70.    
  71.     LbHrsD.Caption = THrsD & ":" & TMinD
  72.     LbHrsN.Caption = THrsN & ":" & TMinN
  73.     LbTotalHrs.Caption = (THrsD + THrsN) & ":" & (TMinD + TMinN)
  74.     If (THrsD + THrsN) > 44 Then
  75.         Clau26 = (THrsD + THrsN) - 44
  76.     Else
  77.         Clau26 = 0
  78.     End If
  79.     LbHrsExtD.Caption = THrsExtD & ":" & TMinExtD
  80.     LbHrsExtN.Caption = THrsExtN & ":" & TMinExtN
  81.     LbClau26.Caption = Clau26
  82.  
  83.  

Lo cual saca al final de los datos traidos a la ventana, el tan sufrido total de horas y minutos como se ve remarcado en recuadro rojo.
Probando como rula:


Y ya con eso, igual para el Reporte, al cual procedere a terminarlos
Además de los totales, preocupaba el dato llamado "Clausula 26" que estima que un Empleado debe trabajar 44 horas a la semana, no más de eso.

Código: Text
  1.  
  2. If TotalHrsLb >44 Then
  3.     Clau26 = TotalHrsLb - 44
  4. Else
  5.     Clau26 = 0
  6. End If
  7.  
  8.  

Ya ese problema lo había mencionado en otro post, antes que viniese el Sr y cambiase todo haciendome perder tiempo, por remplazarlo casi todo  :angry:

Yo creo que si furula bien, pues lo dejo así, aplicandose al dicho de "si funciona, dejalo así, ni lo toques"  :P

 :hola:
 :comp:

119
Visual Basic 6.0 e inferiores / Re: Calcular Hora
« en: Viernes 25 de Mayo de 2007, 19:05 »
Citar
Busca informacion sobre la forma de sumar horas (TimeValue), y la verdad viejo eso funciona es sumando horas militar.

Buscando...  :P  thx.

120
Visual Basic 6.0 e inferiores / Re: Calcular Hora
« en: Viernes 25 de Mayo de 2007, 17:51 »
Bueno, la diferencia entre H1 y H2 = Nº Hrs

Las horas se indican en unos Combo y la diferencia de hroas entre estos en un Label, pues mientras (no sé si para siempre) cambie el Label de salida de horas por un Text
Cuando coloquen 7:00 am - 7:30 am =12:30 am quitan el 12 y ponen un 0

Despues de todo, aunque los combo tienen un listado de horas
6:00 am
6:30 am
7:00 am
7:30 am
.... etc
.... etc

Igual en ocasiones se escribe la hora en vez de seleccionarse de la lista porque al parecer, una persona puede haber llegado a las 7:08 am y haber salido a las 11:43 am
El codigo funciona con esto, solo falla en lo ya comentado antes. No es la solución ni lo más elegante, podría tardarme no sé cuántos días intentando nuevas sintaxis y buscando en internet, pero por los momentos, cambie los Labels de salida por Text y así el mismo usuario que corriga el problema.

Por cierto, alguien sabe como poner en controles de Calendario DTPicker, el primer y ultimo dia del mes? tengo dos: DTPFecha1 y DTPFecha2 pero los actualizo con el día actual con un = Date
¿Cómo sería para poner en el DTPFecha1.Value = 01/M/Año y en el otro DTPFecha2.Value=31/M/Año (de cada mes). Esos calendarios controlan de llenar en un MSFlexGrid los registros, es para ver si muestran la panoramica del mes y no del día actual.

Voy a seguir viendo que hago con eso de sumar horas, saludos  :hola:
 :comp:

121
Visual Basic 6.0 e inferiores / Re: Calcular Hora
« en: Viernes 25 de Mayo de 2007, 14:42 »
Igual si se coloca 6:00 am y 6:30 am y otro misma hora entre "hora en punto" y la msima hora pero "media hora" da 12:30am (resta de horas, la diferencia entre ellas) :(

Pero voy a trabajar con todo esto, creo que ni con hora militar serviria, puesto que igual estaria el problema por debajo de las horas de las 12pm. Eso porque tengo varios ComboBox con una lista de horas y existe datos de Horas Extra, sea Diurnas o Nocturnas y puede pasar que alguien trabaje al menos 30 minutos, tomandose eso en la parte de horas Extras.

gracias de igual forma  :)

122
Visual Basic 6.0 e inferiores / Re: Calcular Hora
« en: Viernes 25 de Mayo de 2007, 04:34 »
No importa por eso muchachos, seguire viendo, en la lucha como siempre  :comp:

123
Bases de Datos / Re: Sumar Horas En Sentencia Sql
« en: Jueves 24 de Mayo de 2007, 05:41 »
Caramba, DateDiff entonces no me sirve puesto que yo sumo los mismos o distintos datos de un mismo campo_nombre  :(

bueno... mañana comienzo nuevamente a ver con qué puedo hacerlo  :lightsabre:

 :good:

124
Bases de Datos / Re: Sumar Horas En Sentencia Sql
« en: Miércoles 23 de Mayo de 2007, 23:19 »
Tremendo detalles con el post, ahora le vengo yo  B)

Bueno en la tabla tengo estos dos registros con estos datos con intenciones de que exista alguna suma de ellos:



Hice una prueba con esto haber que arrojaba:
Código: Text
  1.  
  2. Select DateDiff('h', [TotalHrsD], [TotalHrsD]) As TotalHrsLbD From chl_tb;
  3.  
  4.  

Pero sea colocando 'n' para minutos o 'h' para horas (5+4=9) siempre sale un 0:


Esta suma debe estar presente tanto en la ventana que por los momentos no muestra nada de eso:


Y en el reporte de la misma que tampoco tiene nada de eso aun, lo cual deberia estar al final de las columnas indicadas, les faltan esos mismos toltales:
Con la misma SQL, ya podría incrustarla en el reporte el cual la generaria la cargarse.
]

No sé que tan obligadas sean esas columnas de datos, ojala no sea tan necesaria y puedan omitirse   <_<

125
Bases de Datos / Re: Sumar Horas En Sentencia Sql
« en: Miércoles 23 de Mayo de 2007, 15:55 »
Tengo esto montado asi:
Código: Text
  1.  
  2. SQL2 = "Select Sum(TotalHrsD) AS THrsD, Sum(TotalHrsN) AS THrsN, Sum(TotalHrsLb) As THrsLb, Sum(Clausula26) As Clau26, "
  3. SQL2 = SQL2 & "Sum(TotalExtD) AS THrsExtD, Sum(TotalExtN) AS THrsExtN "
  4. SQL2 = SQL2 & "From chl_tb "
  5. SQL2 = SQL2 & "Where NumEmp=" & TxtNEmp.Text & " And "
  6. SQL2 = SQL2 & "Fecha Between #" & Format(DTPFecha1.Value, "yyyy-mm-dd") & "# And #" & Format(DTPFecha2.Value, "yyyy-mm-dd") & "# "
  7.  
  8.  

Si le pongo Convert para pasar el dato a Numerico o Float me da error.

Probé esta SQL corta y simple en Access: (Prueba)
Select Convert(Numeric(chl_tb.TotalHrsD)) From chl_tb;
Select Convert(Numeric,TotalHrsD) From chl_tb;
Select Convert(Numeric(3),TotalHrsD) From chl_tb;

Y me saca el aviso de:
La función "Convert" no está definida en la expresion, espero que sea que la sintaxis está mal escrita y no que Access no tenga soporte para ella. Es increible, no he podido conseguir una web que me detalle a CONVERT, solo verlo entre lineas de otras SQL y son otras conversiones o están en una sintaxis de Query ASP.

Páginas: 1 ... 3 4 [5] 6 7 ... 15