• Martes 19 de Noviembre de 2024, 05:30

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 2 3 [4] 5 6 ... 15
76
Visual Basic 6.0 e inferiores / Re: Suma
« en: Sábado 30 de Junio de 2007, 01:37 »
Citar
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  :P

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  :hola:

77
Visual Basic 6.0 e inferiores / Msflexgrid.removeitem
« 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:

Código: Text
  1.  
  2.     MSF.Rows = MSF.Rows + 1
  3.     MSF.Row = MSF.Rows - 1
  4.  
  5.     MSF.Col = 1
  6.     MSF.Text = cmbDescripcion.Text
  7.    
  8.     MSF.Col = 2
  9.     MSF.Text = cmbDesc1.Text
  10.      
  11.     MSF.Col = 3
  12.     MSF.Text = txtMonto1.Text
  13.  
  14.  

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:
Código: Text
  1.  
  2.     For i = 1 To MSF.Rows - 1
  3.         MSF.Row = i
  4.         MSF.Col = i
  5.     Next
  6.     MSF.RemoveItem (MSF.Row)
  7.  
  8.  

Alguien ha logrado o sabe como hacer un correcto uso del RemoveItem del MSFlexgrid sin morir en el intento  :unsure:

78
Visual Basic 6.0 e inferiores / Re: Suma
« en: Viernes 29 de Junio de 2007, 22:05 »
Citar
Todo lo que necesito es hacer que el resultado del strSQL se vea en el textbox al momento de ejecutar.

hola  :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...

Código: Text
  1.  
  2.     Dim SumaResult As Double
  3.     With Rs
  4.         While Not .EOF
  5.             SumaResult = SumaResult + Val(![SumaDeLSLGBE])
  6.             .MoveNext
  7.         Wend
  8.     End With
  9.     Text31.Text = SumaResult
  10.  
  11.  

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:
Código: Text
  1.  
  2. While Not .EOF
  3.     If IsNumeric(![SumaDeLSLGBE])=Flase Then
  4.         Exit Sub
  5.     Else
  6.         SumaResult = SumaResult + Val(![SumaDeLSLGBE])
  7.     End If
  8.     .MoveNext
  9. Wend
  10.  
  11.  

ojala y te sirva :hola:

79
Visual Basic 6.0 e inferiores / Re: Sentencia Sql
« 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.

 :hola:

80
Visual Basic 6.0 e inferiores / Re: Sentencia Sql
« en: Jueves 28 de Junio de 2007, 00:50 »
hola

me apego a lo ultimo de
Citar
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.  :good:

81
no furula compa, pero yo creo que mejor no me mato tanto por eso, que el usuario haga copy+paste y listo  B)

 :comp:

82
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.

 :hola:  :comp:

83
Visual Basic 6.0 e inferiores / Seleccionar Campo Al Hacer Click En Datagrid
« 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
Visual Basic para principiantes / Re: Error Al Ejecutar El Programa
« 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.

 :hola:

85
Visual Basic 6.0 e inferiores / Re: Busqueda En Base De Datos Externa
« 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 :huh:

86
Bases de Datos / Re: Uso Del Count
« en: Sábado 23 de Junio de 2007, 04:59 »
hola,  :hola:

 :unsure:  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) :P 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.  :unsure:

Ya solucionaste este problema o aun esta presente?  :huh:

87
Visual Basic 6.0 e inferiores / Re: Problemas Con Inno
« en: Sábado 23 de Junio de 2007, 04:26 »
hola

Yo uso mucho el inno setup, es mi empaquetador hasta la fecha :P

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  :lightsabre:

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 :suerte:

88
Visual Basic 6.0 e inferiores / Re: Pantalla De Bienvenida....
« 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

Código: Text
  1.  
  2. Private Sub Timer1_Timer()
  3.     Form1.Show
  4.     Unload Me
  5. End Sub
  6.  
  7.  

Al terminar a los 2000 segundos o 3000 seg cargas el Form y se cierra la presentacion.
 :hola:

89
Visual Basic 6.0 e inferiores / Re: Algo Como El Control Mnubar Pero Conex A Bd
« en: Viernes 22 de Junio de 2007, 21:56 »
ta bueno!  B)

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 :P pero por ahora creo que como que mejor me voy por otra via y realizo esto de otra forma  :think: uhmmm...

90
Visual Basic 6.0 e inferiores / Re: Algo Como El Control Mnubar Pero Conex A Bd
« 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  :mellow:

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
Visual Basic 6.0 e inferiores / Algo Como El Control Mnubar Pero Conex A Bd
« 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:

Código: Text
  1.  
  2. Quiste de Ovario
  3. Embarazos -------> - Podalico
  4. Endometrioma        - Tranverso
  5. Cistitis                   - Gemelar
  6. VPH                       - Trillizos
  7. etc                        - Ectopico  
  8.                             - Amenazado
  9.  
  10.  

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
Visual Basic 6.0 e inferiores / Re: Enviar E-mail
« 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
Visual Basic 6.0 e inferiores / Re: Comprobar Que Un Campo Es Numerico
« 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:
Código: Text
  1.  
  2. Private Sub txtCedula_Change()
  3.     If IsNumeric(txtCedula.Text) = False Then
  4.         txtCedula.Text = ""
  5.     End If
  6. End Sub
  7.  
  8.  

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
Visual Basic 6.0 e inferiores / Re: Validando En If Horas
« en: Domingo 17 de Junio de 2007, 04:52 »
hehehe :P  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.

 :hola:

95
Visual Basic 6.0 e inferiores / Re: Validando En If Horas
« en: Domingo 17 de Junio de 2007, 01:57 »
solo faltaba AM/PM mierrrrcoles :huh:  :unsure:  <_<
compadre lo volvio a hacer, lo felicito :bravo:

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  :hola:

96
Visual Basic 6.0 e inferiores / Validando En If Horas
« en: Sábado 16 de Junio de 2007, 23:34 »
Hola, buen fin de semana que tal  :hola:

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.

Código: Text
  1.  
  2. If Format(CDate(h2), "hh:mm:ss") > Format(CDate("11:59:59 pm"), "hh:mm:ss") Then
  3.    'Aqui el codigo que debe ejecutarse al entrar
  4. End IF
  5.  
  6.  

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  :hola:

97
Visual Basic 6.0 e inferiores / Re: Crear Instalador
« en: Sábado 16 de Junio de 2007, 23:16 »
Yo sigo fiel a mi InnoSetup, chiquito y eficiente el condenado :rolleyes: hehe nunca me ha hecho quedar mal

98
Visual Basic 6.0 e inferiores / Re: Ayuda Con Dtpìcker
« 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:
Código: Text
  1.  
  2. Fecha Between #" & Format(DTPFecha1.Value, "yyyy-mm-dd") & "# And #" & Format(DTPFecha2.Value, "yyyy-mm-dd") & "# "
  3.  
  4.  

Feliz dia del Padre  :hola:

99
Visual Basic 6.0 e inferiores / Re: Utilización De Control Timer
« en: Sábado 16 de Junio de 2007, 23:04 »
Si es sencillo, un tiro al piso  :P
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.

Código: Text
  1.  
  2. Private Sub Timer1_Timer()
  3.     MDIForm.Show
  4.     Unload Me
  5. End Sub
  6.  
  7.  

Feliz dia del Padre  :hola:

100
La taberna del BIT / Re: Felicidades Para Angel_k_ido
« 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  :good:
e ir planificando para le proximo para botar la casa por la ventana :P aunque claro no tanto como esta persona de esta vieja noticia moderadamente  :)

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