|
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
« en: Domingo 10 de Junio de 2007, 20:54 »
Si, totalmente de acuerdo contigo, un Where y listo
102
« 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 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 If Rs.RecordCount > 0 Then 'para que el .movefirst no de error Rs.MoveFirst While Not Rs.EOF If Text1=Rs("Campo") Then Aqui todo el codigo anterior de edicion con esto sé que estoy parado en ese registro Exit Sub End If Rs.MoveNext Wend Msgbox "Registro No Encontrado", vbInformation, "Aviso"
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.
103
« en: Sábado 9 de Junio de 2007, 22:26 »
Hola desarrolladores Me gustaría conocer como editan en ADO, yo debo recurrir al control Adodc asi: Adodc1.CommandType = adCmdText Adodc1.ConnectionString = conexion Adodc1.RecordSource = "Select * From agenda_tb Where nombre='" & txtNombre.Text & "'" Adodc1.Refresh Adodc1.RecordSource = "Select * From agenda_tb Where nombre='" & txtNombre.Text & "'" Adodc1.Recordset.Fields("nombre") = txtNombre.Text Adodc1.Recordset.Fields("telefhab") = txtTelefHab.Text Adodc1.Recordset.Fields("telefcel") = txtTelefCel.Text Adodc1.Recordset.Fields("correo") = txtEmail.Text Adodc1.Recordset.Fields("direccion") = txtDireccion.Text Adodc1.Recordset.Update Adodc1.Refresh MsgBox "El Registro ha sido Actualizado", vbInformation, "Control de Registros"
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 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
104
« en: Sábado 9 de Junio de 2007, 21:19 »
EDITANDO...FEDERATA: Perdon, toy presentando unas fallas tecnicas 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
105
« en: Viernes 8 de Junio de 2007, 19:21 »
huuyyy llegue tarde, bueno la intencion vale igual, FELIZ CUMPLE compadre esteeeee.... quedo torta?
106
« en: Miércoles 6 de Junio de 2007, 14:45 »
Escrito en mi Lapida: If individuo_vivo = False Then Msgbox "Boveda Mortuoria vacia", vbInformation,"Estado Actual" Else Msgbox "Por favor, ingrese Flores",vbInformation,"Estado Actual" End If
107
« en: Martes 5 de Junio de 2007, 16:11 »
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.
108
« 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
109
« en: Lunes 4 de Junio de 2007, 21:49 »
Buenisimo el de Ikea
Si no la arma en 15 minutos, no hay entrevista 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
« en: Lunes 4 de Junio de 2007, 16:19 »
buenas, estaba endeudado con el tabernero por eso no pasaba por aqui 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 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? 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 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. 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 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
« 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.
112
« 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 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. 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.
113
« en: Domingo 3 de Junio de 2007, 23:52 »
Seria conveniente que no usaras el root ya que es el administrador de MySQL si alguien llega a obtenerlo 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... otra cosa, nunca dejes el ODBC configurado con contraseña pues esta se guarda en el registro de windows en texto plano
Caramba 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
114
« en: Domingo 3 de Junio de 2007, 22:55 »
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 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.
115
« 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 1Post 2Web de MySQLPasando 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: 'Referencia: ADO 2.8 Dim conexdb As ADODB.Connection Dim rs As ADODB.Recordset Private Sub Form_Load() Dim Servidor As String Dim BaseDatos As String Dim Usuario As String Dim Password As String Dim SQL As String Dim Conexion As String Servidor = "localhost" BaseDatos = "agenda_db" Usuario = "admin" Password = "123456789" SQL = "Select * From agenda_tb" Conexion = "DRIVER={MySQL ODBC 3.51 Driver};" Conexion = Conexion & "SERVER=" & Servidor & ";" Conexion = Conexion & "PORT=3306;" Conexion = Conexion & "DATABASE=" & BaseDatos & ";" Conexion = Conexion & "USER=" & Usuario & ";" Conexion = Conexion & "PASSWORD=" & Password & ";" Conexion = Conexion & "OPTION=3;" Set conexdb = New ADODB.Connection conexdb.ConnectionString = Conexion conexdb.CursorLocation = adUseClient conexdb.Open If conexdb.State > 0 Then Set rs = New Recordset rs.Open SQL, conexdb, adOpenStatic, adLockOptimistic Else MsgBox "No se ha podido realizar la Conexión con la Base de Datos", vbInformation, "Fallo la Conexion" Unload Me End If End Sub
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
116
« en: Martes 29 de Mayo de 2007, 00:50 »
El código que he usado gracias a un ring y pregunta a alguien Dim hc As Variant Dim h As Variant Dim h1 As Variant Dim h2 As Variant Dim ht As Variant Dim m As Variant Dim s As Variant h1 = CmbEntradaD.Text h2 = CmbSalidaD.Text If h1 = "" Or h2 = "" Then Exit Sub End If hc = Format(CDate(h2) - CDate(h1), "hh:mm:ss") h = Hour(hc) m = Format(Minute(hc) / 60, "0.00") s = Format(Second(hc) / 3600, "0.00") ht = h + m + s LbHorasTurnoD.Caption = ht
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 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!!! Si alguien lo necesita, ahi ta
117
« en: Sábado 26 de Mayo de 2007, 04:00 »
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 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: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 procedere a investigar un poco sobre como hacer eso. Angel38:Varsuma= format(suma,"hh:mm:ss")
Hmmmm.... con razón no furulaba bien, eso tambien lo voy a revisar
118
« 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: Select Sum(hD) As HrsD, Sum(mD) As MinD, Sum(hN) As HrsN, Sum(mN) As MinN, Sum(hExtD) As HrsExtD, Sum(mExtD) As MinExtD, Sum(hExtN) As HrsExtN, Sum(mExtN) As MinExtN From chl_totalesemp Where NumEmp=30915 And Fecha Between #01/05/2007# And #31/05/2007#
Y metiendo eso en unos Labels en la ventana: Dim THrsD As Integer Dim TMinD As Integer Dim THrsN As Integer Dim TMinN As Integer Dim THrsExtD As Integer Dim TMinExtD As Integer Dim THrsExtN As Integer Dim TMinExtN As Integer Dim Clau26 As Integer With Data2.Recordset While Not .EOF '.................................... 'hD: If IsNumeric(![HrsD]) = False Then Exit Sub Else THrsD = THrsD + Val(![HrsD]) End If 'mD: If IsNumeric(![MinD]) = False Then Exit Sub Else TMinD = TMinD + Val(![MinD]) End If '.................................... 'hN: If IsNumeric(![HrsN]) = False Then Exit Sub Else THrsN = THrsN + Val(![HrsN]) End If 'mN: If IsNumeric(![MinN]) = False Then Exit Sub Else TMinN = TMinN + Val(![MinN]) End If '.................................... 'hExtD: If IsNumeric(![HrsExtD]) = False Then Exit Sub Else THrsExtD = THrsExtD + Val(![HrsExtD]) End If 'mExtD: If IsNumeric(![MinExtD]) = False Then Exit Sub Else TMinExtD = TMinExtD + Val(![MinExtD]) End If '.................................... 'hExtN: If IsNumeric(![HrsExtN]) = False Then Exit Sub Else THrsExtN = THrsExtN + Val(![HrsExtN]) End If 'mExtN: If IsNumeric(![MinExtN]) = False Then Exit Sub Else TMinExtN = TMinExtN + Val(![MinExtN]) End If '.................................... .MoveNext Wend End With LbHrsD.Caption = THrsD & ":" & TMinD LbHrsN.Caption = THrsN & ":" & TMinN LbTotalHrs.Caption = (THrsD + THrsN) & ":" & (TMinD + TMinN) If (THrsD + THrsN) > 44 Then Clau26 = (THrsD + THrsN) - 44 Else Clau26 = 0 End If LbHrsExtD.Caption = THrsExtD & ":" & TMinExtD LbHrsExtN.Caption = THrsExtN & ":" & TMinExtN LbClau26.Caption = Clau26
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. If TotalHrsLb >44 Then Clau26 = TotalHrsLb - 44 Else Clau26 = 0 End If
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 Yo creo que si furula bien, pues lo dejo así, aplicandose al dicho de "si funciona, dejalo así, ni lo toques"
119
« en: Viernes 25 de Mayo de 2007, 19:05 »
Busca informacion sobre la forma de sumar horas (TimeValue), y la verdad viejo eso funciona es sumando horas militar.
Buscando... thx.
120
« 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
121
« 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
« en: Viernes 25 de Mayo de 2007, 04:34 »
No importa por eso muchachos, seguire viendo, en la lucha como siempre
123
« 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
124
« en: Miércoles 23 de Mayo de 2007, 23:19 »
Tremendo detalles con el post, ahora le vengo yo 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: Select DateDiff('h', [TotalHrsD], [TotalHrsD]) As TotalHrsLbD From chl_tb;
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
« en: Miércoles 23 de Mayo de 2007, 15:55 »
Tengo esto montado asi: SQL2 = "Select Sum(TotalHrsD) AS THrsD, Sum(TotalHrsN) AS THrsN, Sum(TotalHrsLb) As THrsLb, Sum(Clausula26) As Clau26, " SQL2 = SQL2 & "Sum(TotalExtD) AS THrsExtD, Sum(TotalExtN) AS THrsExtN " SQL2 = SQL2 & "From chl_tb " SQL2 = SQL2 & "Where NumEmp=" & TxtNEmp.Text & " And " SQL2 = SQL2 & "Fecha Between #" & Format(DTPFecha1.Value, "yyyy-mm-dd") & "# And #" & Format(DTPFecha2.Value, "yyyy-mm-dd") & "# "
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
|
|
|