|
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 2 3 [4] 5 6 ... 15
76
« en: Sábado 30 de Junio de 2007, 01:37 »
strSQL = "SELECT Sum(PLANEACION.LSLGBE) AS SumaDeLSLGBE FROM PLANEACION GROUP BY PLANEACION.STBGNR"
Si, esa SQL hace una Suma de ese campo de todos los registros de la tabla, para que la SQL solo agarre los registros que en particular se desean y no todos, pues habria que ponerle un WHERE por ejemplo, un Where con un campo o dato que solo tengan esos registros, ahorita no me viene a la mente alguna Clausula en especial o particular de SQLs, ya sabes que las SQLs son un lenguaje largo y al menos yo no he trabajado SQLs con todas las clausulas o funciones que la complementan (nota: acordarme de comprarme un libro de SQLs) SELECT Sum(PLANEACION.LSLGBE) AS SumaDeLSLGBE FROM PLANEACION WHERE Campo='dato' Ya encontre el post con el que yo tuve los mismos problemas, te pongo el link tal vez entre taaanta sintaxis de SQL esté algo que te pueda servir, veras que al final del largo post yo estaba con el dilema de como sacar un dato de una SQL y ponerla en un Text puesto que lo hacia siempre la SQL completa a un grid, MSFlexgrid por ejemplo Esta bien ilustrado todo ahi Post sobre problemas en SQL, la novela con capitulo final y todo Cualquier cosa, de ser posible indica todos los campos de la tabla, tal vez pueda haber un campo clave para el WHERE de la SQL y pueda verse mejor la panoramica de la consulta planificada. Aqui hay gente que son expertos en SQLs y no me refiero a mi, cualquier cosa por aqui estamos
77
« en: Viernes 29 de Junio de 2007, 23:02 »
hola muchachos, que tal le ha ido con quien ha hecho uso del .RemoveItem de un MSFlexgrid Yo lleno un MSFlexgrid en memoria al seleccionar unos Item de un Combobox asi: MSF.Rows = MSF.Rows + 1 MSF.Row = MSF.Rows - 1 MSF.Col = 1 MSF.Text = cmbDescripcion.Text MSF.Col = 2 MSF.Text = cmbDesc1.Text MSF.Col = 3 MSF.Text = txtMonto1.Text
Pero no he podido ver bien como armar el codigo sin que de errores del Remover en caso de desear quitar un agregado al MSFlexgrid Estaba probando algo como esto pero no me ha servido: For i = 1 To MSF.Rows - 1 MSF.Row = i MSF.Col = i Next MSF.RemoveItem (MSF.Row)
Alguien ha logrado o sabe como hacer un correcto uso del RemoveItem del MSFlexgrid sin morir en el intento
78
« en: Viernes 29 de Junio de 2007, 22:05 »
Todo lo que necesito es hacer que el resultado del strSQL se vea en el textbox al momento de ejecutar.
hola Yo tuve esa misma cuestion y pude resolverlo gracias a las consultas dadas aqui en solocodigo, el post era algo largo y inicialmente trataba sobre una cuestion y luego paseo a esto mismo que necesitas, yo pongo un codigo, la suma ya la tienes en el Alias del campo, y si solo necesitas mostrar eso en un Text pues te serviria asi, por ejemplo: Este es tu alias del campo: SumaDeLSLGBE entonces... Dim SumaResult As Double With Rs While Not .EOF SumaResult = SumaResult + Val(![SumaDeLSLGBE]) .MoveNext Wend End With Text31.Text = SumaResult
Por ahí va la cosa, para mostrar en un Text un campo o Alias de un Query SQL pues recoges el dato entre (![dato_sql]) sea Val(![ ]) o CDbl(![ ]), es decir, sea el caso de dato Intenger, Double, etc. Si el Query no se trae nada y el Alias está vacio pues tal vez tengas que frenar el codigo antes de pasar por ahi o validar algo asi o sino dara error de null. Luego del While: While Not .EOF If IsNumeric(![SumaDeLSLGBE])=Flase Then Exit Sub Else SumaResult = SumaResult + Val(![SumaDeLSLGBE]) End If .MoveNext Wend
ojala y te sirva
79
« en: Jueves 28 de Junio de 2007, 20:20 »
uhmmm... yo creo que no debe sacar error (bueno no toy seguro ahorita) no me acuerdo, se le da que busca todos los registors con estas fechas, por ejemplo, desde el 20/07/2007 al 28/07/2007, pero él va y ve que no hay porque las fechas las compara con 2007/07/27, de hecho, no deberia traerse nada tampoco, bueno ojala que puedas solventarlo, cualquier cosa indica el tipo de BD que usas, el tipo de conexión a la misma, haber si alguien que ha lidiado con eso asi, sepa y exponga su opinion.
80
« en: Jueves 28 de Junio de 2007, 00:50 »
hola me apego a lo ultimo de Cualquier comentario lo agradecería.
Tengo tanto tiempo frente al Pc que ya tengo seco el cerebro y no sé si entendi bien tu post pero en caso de que el reporte no te este trayendo correctamente los datos por eso de las fechas, es decir, que en vez de tomar el WHERE FECHA BETWEEN '" & DATE1 & "' AND '" & DATE2 & "'" o el FECHA BETWEEN #" & DATE1 & "# AND #" & DATE2 & "#) Sino que sale el query como si fuese un simple SELECT * FROM DIR Pues tal vez deberias probar darle un Format a los campso de fecha FECHA BETWEEN #" & Format(DATE1, "yyyy-mm-dd") & "# And #" & Format(DATE2, "yyyy-mm-dd") & "#" Bueno dependiendo del tipo de BD pues entre # # o entre ' ' Hay BDs que guardan los campos fechas en ese orden y hay que pasarselo igual porque sino, jamas se traera nada. Bueno si no es eso, o no dio en el detalle lo expuesto, perdona y ojala que des con la solution pronto.
81
« en: Martes 26 de Junio de 2007, 23:47 »
no furula compa, pero yo creo que mejor no me mato tanto por eso, que el usuario haga copy+paste y listo
82
« en: Martes 26 de Junio de 2007, 20:12 »
bueno en vista al problema que presentan estos controles, algo que victoriosamente si tiene el MsFlexgrid (en qué estarán pensando los programadores de Microsoft cuando hacen el lenguaje y demas objetos que conformaran al mismo), pues bueno, sombreo el dato del DataGrid lo pongo en un textCedula y ya ahí pues lo de siempre, preferia que se hiciese con un click pero tendra que ser copy+paste con el mouse el dato como digo.
83
« en: Martes 26 de Junio de 2007, 15:23 »
Hola amigos Yo era feliz con el MSFlexGrid, en el que cargaba registros y en donde, por ejemplo, colocaba en la primera columna el campo Cedula y al hacer click en esa columna, podía capturar el dato de esa celda y buscar la informacion. Pero estoy usando un DataGrid porque el ADO no se enlaza al MSFlexgrid, pero no consigo que al dar Click en una celda me traiga realmente ese dato, excluyendo al MsFexgrid, entre el DataGrid y DBGrid para ADO cual es el que mejor me podría servir para esto. Solo quiero hacer click en una celda y que efectivamente me traiga ese dato para trabajar con él, pero la propiedad .Text parece no servir como la del MsFlexGrid. Opiniones ¿?
84
« en: Martes 26 de Junio de 2007, 15:16 »
Lo que he leido por ahi sobre ese problema es que al parecer debe instalarse el net framework 2.0 o el más nuevo (busca el más nuevo), e instalar en dicho equipo, y por si acaso, revisar que no haya un software firewall frenando las cosas en red.
85
« en: Sábado 23 de Junio de 2007, 05:20 »
La conexion se ve bien, aunque yo he usado algo asi pero no con DBEngine, exacto pero sin esto. Y la SQL pues la sintaxis se ve correcta like '*" & strNoparte & "*'" bueno la tabla es RHDBD_16_LGBS y no LGBS pero asumo que se te paso terminarla de indicar aqui. No debe ser relacionar un dato de un formato con otro de la tabla, sera entonces que en AS400 la sintaxis varia un poco, porque si la sintaxis standar general de siempre de SQL si es igual, pues habria que ver más informacion, no sé, creo que aqui falta más informacion, un rompecabezas que le faltan piezas para velro todo
86
« en: Sábado 23 de Junio de 2007, 04:59 »
hola, perdon por meterme, nunca he trabajo con AS400 pero, tal vez crees que podrias porfa el ver si puedes hacer una copia de tu tabla del AS400 en Access (por ejemplo), es decir, todos los campos de la tabla, o los campos que deben estar involucrados, esos que mencionas son los únicos para lo que deseas formar la sql?. Y otra cosa (espero no pedir mucho) el que tal vez en Excel, hagas una estructura de como deberia ser la consulta, es decir, el resultado la forma como quisieses que saliesen los datos. Lo que me preocupa es que las sintaxis SQL cambien a formas que uno no conozca por ser un tipo de Bd que al menos yo no he trabajado. Ojala pudieses hacer unas capturitas de pantalla de la tabla de la Bd e igual con un recuadro excel de como deberian venir los resultados de la SQL, hechandole una "mirada" a eso podria ayudar a visualizar mejor las cosas, tal vez. Ya solucionaste este problema o aun esta presente?
87
« en: Sábado 23 de Junio de 2007, 04:26 »
hola Yo uso mucho el inno setup, es mi empaquetador hasta la fecha Yo primero recurro al Empaquetador del propio Visual Basic para conocer las dependencias, las dll y ocx, luego los busco uno por uno y los meto en una carpeta dentro de la carpeta del proyecto, fijate en los pasos de recoger archivos en caso de hacerlo por el wizard del inno setup Otra cosa, yo uso luego de haber hecho el instalador, el Microsoft Virtual PC, puede bajarse un Trial de la web de Microsoft o por algun prorama p2p como eMule o algun otro. Con Virtual PC yo tengo un Windows en una PC Virtual, que no tiene Office ni nada, puro el Windows XP Virgen, lo tengo para ahi probar mis Instaladores y ver si faltó algo, si el archivo msvbvm60.dll es importante, debe estar empaquetado con el resto de los archivos. Hasta la fecha, Inno Setup nunca me ha fallado, es todo un caballito de batalla PD: Claro el programa (su carpeta) estaria supongo en C:\Archivos de programa pero las dll y ocx estarian claro en c:\Wndows\system32 escribe cualquier progreso y cualqueir cosa por aqui detallamos más
88
« en: Sábado 23 de Junio de 2007, 04:13 »
hola, si, sea un form con su propiedad BorderStyle en 0-None, y colocandole la imagen de presentacion o con un formsplash, a la forma escogida, a ese form le pones un control Timer, y un intervalo de 2000 o 3000. Le das doble click al timer en su propiedad Timer pones el Form que luego de la presentacion deseas llamar Private Sub Timer1_Timer() Form1.Show Unload Me End Sub
Al terminar a los 2000 segundos o 3000 seg cargas el Form y se cierra la presentacion.
89
« en: Viernes 22 de Junio de 2007, 21:56 »
ta bueno! habia olvidado que estos menus siempre se situan arriba del form, como que no pueden ir en un Frame o algun tipo de contenedor para situarlo en cierta parte de la ventana, sé que eso me va a servir en algun momento pero por ahora creo que como que mejor me voy por otra via y realizo esto de otra forma uhmmm...
90
« en: Viernes 22 de Junio de 2007, 20:13 »
Epalee! creo que se llama "Editor de menús" si es como el 3er icono de la bara de iconos del VB bueno yo no digo que especifcamente quiera o tenga que ser ese, sino de saber si existe algun control que no me hayan presentado aun que no conozca y que me pueda servir para esta cierta exigencia. Tambien el Toolbar sirve pero no mi duda o detalle en esto es que la informacion viene de una tabla de la Bd, por lo que la cantidad de Items varia e igual sus subItems. Es que toy haciendo un programita de HistMedico a un vaginologo, perdon ginecologo pd: perdon por no especificar, al decir mnubar si puede pensarse que es el toolbar o el de hacer menus, o algun otro que yo no conozca.
91
« en: Viernes 22 de Junio de 2007, 20:00 »
hola Tengo una curiosidad de conocer si existe un control en todo el largo repertorio de componentes que hay para cargar en los proyectos de VB, algo como el MenuBar que uno coloca en los MDIForm pero que se coloque en un Form normal y que su informacion venga de una Base de Datos. es decir... Yo tengo un ComboBox que desplegara una lista de informacion, pero se desea que un Item o varios de la lista tengan un submenu (subitems) algo asi como en Windows: Inicio -> Programas -> EL_Programa -> subItems del Programa Tengo algo como esto: Quiste de Ovario Embarazos -------> - Podalico Endometrioma - Tranverso Cistitis - Gemelar VPH - Trillizos etc - Ectopico - Amenazado
No sé si sirva el MenuBar o exista algun control que pueda tener submenus o Items con sus SubItems, la información vendria de una Base de datos, he ahí mi duda. PD: todos los item luego del ----> van uno debajo del otro, pertenecen a Embarazos, lo comento porque en el post salen algo movidos, pero igual la idea se entiende.
92
« en: Viernes 22 de Junio de 2007, 19:51 »
Yo llegue a hacer algo asi hace mucho pero usando dos controles del VB llamados: MAPISession y MAPIMessages, pero cuando mandaba correo, el programa terminaba usando el envio del Outloock Express, no cargaba el OE sino que solo abria una pequeña ventana de envio de correo del OE, pero primero el OE debe estar configurado con una cuenta de correo para hacer lo suyo, trate de ver si podia que el programa enviase correos de forma independiente pero a la final eso quedo asi, enviaba correos y podia adjutar al menos 1 archivo al mismo, no sé si te sirva algo asi.
93
« en: Viernes 22 de Junio de 2007, 19:41 »
yo valido en cajas de texto donde solo pueden ingresarse numeros colocando una pequeña validacion en el change del texto: ejemplo: Private Sub txtCedula_Change() If IsNumeric(txtCedula.Text) = False Then txtCedula.Text = "" End If End Sub
Con eso al intentar ingresar letras, se borra, tambien podria ponerse un avisto que informe que solo puede ingresarse numeros en la caja de texto, eso sirve.
94
« en: Domingo 17 de Junio de 2007, 04:52 »
hehehe lo que son las cosas, si indico HoraEntrada=7:00pm y HoraSalida=12:00am si entra al IF pero si cambio HoraSalida=1:00am no entra, supongo porque asume que es el mismo dia (1:00am - 7:00pm), y eso debido a que estos datos de HrEntrada y HrSalida no tienen una Fecha que les ayude a diferenciar de un dia a otro. Tendre que poner 4 Fechas para cada HrEntrada y HrSalida de dos turnos (Diurno/Nocturno), más código, más trabajo, pero bueno, asi es esto.
95
« en: Domingo 17 de Junio de 2007, 01:57 »
solo faltaba AM/PM mierrrrcoles compadre lo volvio a hacer, lo felicito La solucion de algunas cosas siempre son simple, es uno el que se lo complica, supongo que es un defecto humano que algunos tenemos. Gracias, feliz dia del padre
96
« en: Sábado 16 de Junio de 2007, 23:34 »
Hola, buen fin de semana que tal Tengo una sentencia IF que me ha dado mucha pelea, le he cambiado y ajustado todas por haber, solo me falta pararme de manos porque he probado cambiando esto y aquello y nada. If Format(CDate(h2), "hh:mm:ss") > Format(CDate("11:59:59 pm"), "hh:mm:ss") Then 'Aqui el codigo que debe ejecutarse al entrar End IF
Ni siquiera puedo revisar bien el codigo dentro del IF porque no he logrado que entre. h2 es una variable que tiene una Hora, ahi se ve que los datos se les da su formato de hora para ser validados, pero he quitado el Format, lo he vuelto a poner, he puesto un solo Format para ambos lados del > le he puesto un Format a cada uno, he tratado validar solo con los CDate() y nada. El dato que tiene h2 es 12:00:00 am pero por algo que falta y no he visto aun qué podría ser, no entra al IF. Feliz dia del Padre
97
« en: Sábado 16 de Junio de 2007, 23:16 »
Yo sigo fiel a mi InnoSetup, chiquito y eficiente el condenado hehe nunca me ha hecho quedar mal
98
« en: Sábado 16 de Junio de 2007, 23:10 »
Si, com odice el amigo cpmario, para Access hay que poner las Fechas entre # # Yo tengo algo que estoy haciendo que trata de lo mismo, pero es por rango, es decir, En un MSFlexGrid1 muestro registros de una tabla en base a Fecha1 y Fecha2, es decir, Fecha_Desde y Fecha_Hasta Aqui la partecita de la SQL que trabaja el dato de fecha con dos DTPicker: Fecha Between #" & Format(DTPFecha1.Value, "yyyy-mm-dd") & "# And #" & Format(DTPFecha2.Value, "yyyy-mm-dd") & "# "
Feliz dia del Padre
99
« en: Sábado 16 de Junio de 2007, 23:04 »
Si es sencillo, un tiro al piso Solo pon el Intervalo de tiempo en las propiedades del Timer 2000 = 2 seg, 3000=3 seg y en su codigo pones tu MDIForm y mandas a cerrar la presentacion, al terminar el tiempo hace el codigo y listo. Private Sub Timer1_Timer() MDIForm.Show Unload Me End Sub
Feliz dia del Padre
100
« en: Sábado 16 de Junio de 2007, 22:54 »
Perdon por lo tarde, nunca me fijo bien Feliz Cumpleaños, toda la buena fiesta que haya habido que se repita e ir planificando para le proximo para botar la casa por la ventana aunque claro no tanto como esta persona de esta vieja noticia moderadamente
Páginas: 1 2 3 [4] 5 6 ... 15
|
|
|