• Jueves 18 de Agosto de 2022, 18:42

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 - Juanolo

Páginas: [1] 2 3 ... 9
1
Visual Basic 6.0 e inferiores / Re: Innosetup
« en: Martes 6 de Junio de 2006, 23:44 »
Hola!
Pues Sí.

En la línea que describe el archivo en el script del instalador debes agregar el flag "uninsneverunistall"

Saludos!

2
Visual Basic 6.0 e inferiores / Re: Delay Sin Timer
« en: Viernes 12 de Mayo de 2006, 16:29 »
Qué raro que no te sirva Sleep. No funciona... te da conflicto??

En fin.

Aunque no he usado la siguiente instrucción, la guardé por 'ingeniosa'. Debo aclarar que la bajé hace mucho tiempo de la página de Guille Som (del tiempo en que aún no le daba por el VbNet):

Código: Text
  1. Public Sub Wait(ByVal nSec As Integer)
  2.     'Esperar un número de segundos
  3.     Dim t1 As Date, t2 As Date
  4.  
  5.     t1 = Second(Now)
  6.     t2 = t1 + nSec
  7.     Do
  8.         DoEvents
  9.     Loop While t2 > Second(Now)
  10. End Sub
  11.  



Pero qué raro que no te sirva Sleep.

3
Visual Basic 6.0 e inferiores / Re: Ascii De Las Teclas Del Cursor
« en: Lunes 24 de Abril de 2006, 02:04 »
Hola!
 Lo que necesitas requiere un cambio de enfoque, pues las teclas de cursor no tienen un valor keyascii (que yo sepa). Pero sí tienen un KeyCode que se puede manejar con el evento KeyDown. Esto es lo que yo uso para todas estas teclas raras, incluídas las de función.
Los valores KeyCode son:
Izquierda:  37
Arriba:       38
Derecha:    39
Abajo:        40

Bueno, un ejemplo vale más que mil palabras asi que ahí te va una pequeña rutina.

Chau!

4
Visual Basic 6.0 e inferiores / A Ver Si Me Pueden Aconsejar!!
« en: Viernes 21 de Abril de 2006, 06:35 »
Hola amigos!
  Me he forzado a aprender a usar el MySql y dejar de lado mis queridos DAO y Access. Para ello me he dedicado a Migrar una aplicación que manejaba datos en forma intensiva. Me he encontrado con lo siguiente:
Se me ha hecho fácil cambiar de objetos Database a Connection y también las consultas del tipo Execute. Mi problema son las grillas con las que mostraba información.
Por ejemplo: Para mostrar los registros en un FlexGrid le asignaba un control Data y luego, por código, llenaba el recordset de ese data antes de mostrarlo.

Bueno... los Data han muerto y las grillas no muestran nada.

¿Existe algún truco que me permita modificar mi aplicación lo menos posible?

Si no lo hay, recibo toda clase de consejos.

Gracias desde ya a quienes se tomen la molestia de dedicarle algo de tiempo a este novato del MySql.

Salu2.

5
Visual Basic 6.0 e inferiores / Re: Error 713 En Tiempo De Ejecución
« en: Jueves 20 de Abril de 2006, 19:17 »
Pues bien, siendo así lo primero sería revisar si las librerías de Crystal están correctamente instaladas en la máquina de destino.
Para el Crystal 4.5 (el que trae Visual) debería crearse la carpeta:
c:\windows\crystal
Si la instalación fue correcta, en esa carpeta debería haber alrededor de 25 librerías que Crystal necesita para trabajar.
Si no están, habría que revisar el empaquetado para que incorpore estos archivos faltantes.

Ahí nos cuentas.

Salu2.

6
Visual Basic 6.0 e inferiores / Re: Error 713 En Tiempo De Ejecución
« en: Jueves 20 de Abril de 2006, 15:51 »
Hola charlytos.

También creo que el problema va por ahí. La pregunta es ¿Cómo instalaste la aplicación en la otra máquina?

Usaste algún empaquetador?  ¿Cuál?

Si nos cuentas eso, iremos reduciendo las posibilidades.

Salu2.

7
Visual Basic 6.0 e inferiores / Re: Como Hacer Una Variable De Tipo Campo??
« en: Lunes 17 de Abril de 2006, 23:08 »
A Ver:  Si lo que tenemos es:

Citar
If Combo1.Text = "USUARIO ATENCION" Then
stcampo = "usuario_atencion"
End If

Set rst_paterno = base.OpenRecordset("select * from maestro_atenciones where stcampo like '*" & Trim(Text1) & "*'order by [folio_atencion]")

La forma correcta de plantearlo es:

Código: Text
  1. Set rst_paterno = base.OpenRecordset("select * from maestro_atenciones where " & stcampo & " like '*" & Trim(Text1) & "*'order by [folio_atencion]")
  2.  

En este caso, si más de una tabla tienen el mismo nombre de campo, no importa. Tu consulta dice:
Citar
Select *
Seleccione todos los campos
Citar
From maestro_atenciones
De la tabla maestro_atenciones
Citar
where " & stcampo & " like '*" & Trim(Text1) & "*'
Donde el Campo Usuario_Atencion contenga la cadena que está en el text1
Citar
order by [folio_atencion]
Ordenado por el folio de atención.

Espero te guíe.

8
Visual Basic 6.0 e inferiores / Re: Como Hacer Una Variable De Tipo Campo??
« en: Lunes 17 de Abril de 2006, 19:13 »
Hola.
  Me parece que no necesitas una variable tan especializada (a menos que haya entendido mal la pregunta). Las instrucciones Sql son  “Cadenas”. Luego, lo que necesitas es una variable de tipo String y ‘concatenar’ la Instrucción Sql de acuerdo a esto.  Por ejemplo, asignaremos “MiCampo” como nombre del campo que queremos consultar.

Código: Text
  1. Dim StCampo As String
  2. Dim StSql As String
  3.  
  4. StCampo = "MiCampo"
  5. StSql = "Select MiBase." & StCampo & " FROM MiBase;"
  6.  

Esto dará como resultado la instrucción Sql.

"Select MiBase.MiCampo FROM MiBase;"

9
Visual Basic 6.0 e inferiores / Re: Función Circle
« en: Sábado 15 de Abril de 2006, 16:30 »
Estimado Neone.
  No manejo mucho el tema, pero estuve haciendo algunas pruebas y logré llegar a algunas conclusiones.
  Por lo que vi, lo más probable es que tengas un objeto image en tu formulario y CREAS dibujar sobre él los círculos. Eso sería un problema, pues los círculos, por decirlo de alguna manera, se 'dibujan' en el form, y no en el image. Si tienes la propiedad Autoredraw en 'False', parecieran estarse dibujando sobre la imagen; pero no es así.
  Te propongo dos posibles soluciones:

1.-  No utilices un objeto image. Carga la imagen en el formulario, en su propiedad picture. Con autoredraw=true no deberías tener problemas.

2.-  Si esta no es una opción, puedes también usar objetos 'shape' en lugar de la función circle. Te saldrían unas fichas muy monas y esas sí se mantienen sobre un objeto image.

  Bueno, hasta ahí por lo que he visto. Si alguien tiene una mejor solución (siempre hay alguien), bienvenido a la discusión.

Salu2.

10
Visual Basic 6.0 e inferiores / Re: Función Circle
« en: Viernes 14 de Abril de 2006, 23:10 »
Lo siento. No logro comprender.

On eso de imágenes y fichas me has logrado confundir.

Si se me ocurre algo, te aviso.

 :blink:

11
Visual Basic 6.0 e inferiores / Re: Cristal
« en: Jueves 13 de Abril de 2006, 22:20 »
:(

 :blink:

 :brickwall:

 :losiento:

Todos los días se aprende algo nuevo. Pero hoy fue mejor.. Hoy des-aprendí algo que había aprendido mal. Espero que no haya sido en este foro que, tiempo ha, me convencieron que desistiera de buscar Crystal; que lo que venía era el datareport.

Perdón josemer.

Gracias cpmario!

12
Visual Basic 6.0 e inferiores / Re: Cristal
« en: Jueves 13 de Abril de 2006, 01:09 »
Hola!
  Sólo puedo hablar de mi experiencia personal. Yo uso el que venía con Visual 5.0 (versión 4.algo). Sin embargo, han pasado muchas versiones desde entonces, pero hay que pagarlas aparte.
Y nop... Visual 6.0 no trae Crystal.

Salu2.

13
Visual Basic 6.0 e inferiores / Re: Problema Tex Box
« en: Miércoles 12 de Abril de 2006, 23:17 »
Hola!
  Es bueno el enfoque de Neorent, pero le haría algunas correcciones.

Código: Text
  1. Private Sub Text1_KeyPress(KeyAscii As Integer)
  2.   If Text1.MaxLength = len(Text1) Then 'Has llegado al límite (MaxLenght)
  3.      SendKeys "{Tab}"
  4.   End If
  5. End Sub
  6.  


Chau!

14
Visual Basic 6.0 e inferiores / Re: Función Circle
« en: Miércoles 12 de Abril de 2006, 23:09 »
Hola Neone!
Qué extraño!
Estuve haciendo unas pruebas y bastaba con poner la propiedad autoredraw del formulario a true para que se solucionara el problema que describes.
Podrías subir el proyecto?
Sin duda hay algo que no nos has dicho que está influyendo el el resultado que obtienes.

Saludos.

15
Visual Basic 6.0 e inferiores / Re: Mysql 5.0?
« en: Miércoles 12 de Abril de 2006, 22:45 »
Gracias amigo!
   Tu respuesta ha sido impecable, muy clara :smartass: . El si estás equivocado o no... no me parece. Tendré fé en tu respuesta y me iré interiorizando de a poco en esto del MySql.

Saludos!!    :hola:

16
Visual Basic 6.0 e inferiores / Re: Busqueda Exacta???
« en: Lunes 10 de Abril de 2006, 16:36 »
Hola Neorent!
  Mira, estuve perfeccionando un poco el código que te entregué anteriormente (lo vi con cuidado y me dio vergüenza). Prueba este:

Código: Text
  1. Private Sub TestNeorent()
  2.     Dim pRueba As Database
  3.     Dim taBla As Recordset
  4.     Dim strSQL As String
  5.     Dim strPalabrabuscada As String
  6.     
  7.     strPalabrabuscada = "SISTEMA"
  8.     Set pRueba = DBEngine.OpenDatabase("\\obiwan\soporte\inventario06.mdb")
  9.     strSQL = "SELECT * FROM maestra WHERE perfilUsuario like '*" & strPalabrabuscada & "*'"
  10.     Set taBla = pRueba.OpenRecordset(strSQL, dbOpenDynaset)
  11.     
  12.     With taBla
  13.      If .EOF And .BOF Then   'Si está al comienzo y al final del Recordset al mismo tiempo.
  14.         MsgBox "La Palabra nos e encuentra"
  15.         GoTo Salida
  16.      Else
  17.         .MoveLast
  18.         .MoveFirst   'Voy al primer y al último registros con el objetivo de contar los registros.
  19.                               'Por algún motivo, si no lo hago, DAO no los cuenta bien.
  20.         MsgBox "La palabra se encuentra " & .RecordCount & " veces"
  21.         'La siguiente rutina recorre el recordset generado mostrando cada uno de los registros que contienen
  22.         'la palabra buscada.
  23.         Do While Not .EOF
  24.             MsgBox "Encontre: " & !PerfilUsuario
  25.             .MoveNext
  26.         Loop
  27.         
  28.      End If
  29. Salida:
  30.      taBla.Close
  31.     End With
  32.     pRueba.Close
  33. End Sub
  34.  

Respecto al error que se te produce..., bueno, debí verlo antes, pero ahora he notado lo siguiente:

La comparación (para lo que querías) debía ser 'like' y no '='.
Como buscabas el primer registro que cumpliera la condición, al ir al principio del loop, siempre llegarías al mismo registro. Luego: Era imposible que llegara al final de la tabla; condición para que saliera del loop.
Como yo había modificado tu código original, 'heredé' algunos de esos errores en mi propuesta.
En fin, quien se explica se complica. El error está reparado y el código anterior debería funcionarte sin problemas.

Chau!.. Y suerte!

17
Visual Basic 6.0 e inferiores / Re: Busqueda Exacta???
« en: Viernes 7 de Abril de 2006, 16:30 »
Hola Neorent!

Creo que tu código puede mejorar con un par de cosillas:

En primer lugar, creo que el error del código está en:

Código: Text
  1. If Not tabla.NoMatch Then
  2. MsgBox "No encontré " & strpalabrabuscada
  3. Else
  4.  

Pues, si encuentra la palabra te dirá que no la encontró. Me explico. Si no encuentra la palabra, tabla.nomatch es Verdadero. U sea, Si tabla.nomatch, entonces "No encontré la palabra" (El Not está de más)

Pero yendo al código (Puede que me equivoque en algo, no tengo Visual cerca; pero si algo falla sin duda te dará las pistas para corregirlo:

Código: Text
  1. Dim prueba As Database
  2. Dim tabla As Recordset
  3. Dim strSQL As String
  4. Dim strpalabrabuscada As String
  5.  
  6. strpalabrabuscada = "SISTEMA"
  7. Set prueba = DBEngine.OpenDatabase("\\obiwan\soporte\inventario06.mdb")
  8. strSQL = "SELECT * FROM maestra WHERE perfilusuario='*" & strpalabrabuscada & "*'"
  9. Set tabla = prueba.OpenRecordset(strSQL, dbOpenDynaset)
  10.  
  11. With Tabla
  12.   If .EOF and .BOF   'Si está al comienzo y al final del Recordset al mismo tiempo.
  13.      MsgBox "La Palabra no existe"
  14.      Goto SAlida
  15.   Else
  16.      .MoveLast
  17.      .MoveFirst   'Voy al primer y al último registros
  18.      msgbox "La palabra se encuentra " & .Recordcount & " veces"
  19.   endif
  20.   .close
  21. end With
  22. Salida:
  23. prueba.close
  24.  

18
Visual Basic 6.0 e inferiores / Re: Llamar A Informes Access97
« en: Viernes 7 de Abril de 2006, 16:11 »
Amigo neorent (creo que no nos habíamos topado), saludos.

Tu problema ya se trató en una discusión anterior y fue respondido por el Gran Brroz.
El Link es:

http://foros.solocodigo.com/index.php?showtopic=4656

Suerte.

19
Visual Basic 6.0 e inferiores / Mysql 5.0?
« en: Viernes 7 de Abril de 2006, 16:02 »
Hola amigos:
  Había deslizado estas preguntas al pie de una discusión anterior, pero no hubo resultados positivos. Ante la duda de puede no haber sido leída, la pongo como encabezado:
  Gracias por su paciencia!

Citar
Como estaba acostumbrado a los viejos DAO y Access, no me había decidido a usar MySql (además que el muy ignorante pensaba que era de pago).
He estado viendo documentación en internet y he decidido usar la versión 5.0 pues parece ser muy diferente de las anteriores (stored procedures, triggers y otras yerbas), pero tengo un par de dudas.
En la página de MySql hay un conector ODBC 5.0, pero no recomiendan utilizarlo.

¿Si uso el conector 3.51, podré tener acceso a todas las características de MySql 5.0?

¿Qué tan difícil es llegar via internet a un Pc en dónde tenga el servidor SQL?
Dentro de esto, un par de subpreguntas:
1.- Cuando un Pc en una intranet es el que tiene la conexión a Internet, es su IP la que aparece conectada. Las de los demás PCs parecen ser internas. ¿Debo mezclar las Ips (una concatenación o algo así) para llegar a un PC específico.
2.- Cómo sé si el modem o router me está bloqueando los puertos, o tengo algún problema en la cadena de conexión que he definido?

Perdón por abusar, es sólo que estoy muy entusiasmado con esto y las preguntas se me atropellan.
Si alguien me puede dar una guía, o consejo de un buen sitio con información (no esperos las cosas hechas, vamos!) se lo agradeceré mucho.

Salu2, y gracias por su tiempo.

20
Visual Basic 6.0 e inferiores / Re: Mysql 4.1 Vs. Mysql 5.0
« en: Miércoles 5 de Abril de 2006, 00:16 »
Hola amigos:
  Estoy en una posición parecida a la de seba m. Como estaba acostumbrado a los viejos DAO y Access, no me había decidido a usar MySql (además que el muy ignorante pensaba que era de pago).
  He estado viendo documentación en internet y he decidido usar la versión 5.0 pues parece ser muy diferente de las anteriores (stored procedures, triggers y otras yerbas), pero tengo un par de dudas.
En la página de MySql hay un conector ODBC 5.0, pero no recomiendan utilizarlo.

¿Si uso el conector 3.51, podré tener acceso a todas las características de MySql 5.0?

¿Qué tan difícil es llegar via internet a un Pc en dónde tenga el servidor SQL?
Dentro de esto, un par de subpreguntas:
1.- Cuando un Pc en una intranet es el que tiene la conexión a Internet, es su IP la que aparece conectada. Las de los demás PCs parecen ser internas. ¿Debo mezclar las Ips (una concatenación o algo así) para llegar a un PC específico.
2.- Cómo sé si el modem o router me está bloqueando los puertos, o tengo algún problema en la cadena de conexión que he definido?

Perdón por abusar, es sólo que estoy muy entusiasmado con esto y las preguntas se me atropellan.
Si alguien me puede dar una guía, o consejo de un buen sitio con información (no esperos las cosas hechas, vamos!) se lo agradeceré mucho.

Salu2, y gracias por su tiempo.

21
Visual Basic 6.0 e inferiores / Re: Ayuda Urgente
« en: Miércoles 28 de Septiembre de 2005, 01:07 »
Hola!
No conozco la librería mencionada, pero bastaría con arrastrarla sobre el archivo regsvr32.exe que debe estar en la carpeta windows\system

Por otro lado, si la incluyes en un instalador se registrará autom.

Chau!

22
Visual Basic 6.0 e inferiores / Re: Pregunta
« en: Miércoles 28 de Septiembre de 2005, 01:02 »
Hola!
Aunque tengo mis dudas respecto a la pregunta, creo que lo que buscas es:

       
Código: Text
  1. TxtValor.Text = DBGrid1.Columns(3) 'Columna 3 de DbGrid1
  2.  

Espero te sirva.

Chau!

23
Visual Basic 6.0 e inferiores / Re: Problemas Con Consulta Sql
« en: Jueves 15 de Septiembre de 2005, 16:11 »
Todos los días se aprende algo nuevo!

Gracias, también lo probaré.

 :kicking:

24
Visual Basic 6.0 e inferiores / Re: Hacer Mis Propios Forms
« en: Jueves 15 de Septiembre de 2005, 05:01 »
Hola acek.

Otra posibilidad, de la que también puedes buscar información en este mismo foro, es activeskin, que incluye más posibilidades de personalización, aunque es un poco más complejo de utilizar.

Espero tengas suerte.

25
Visual Basic 6.0 e inferiores / Re: Problemas Con Consulta Sql
« en: Jueves 15 de Septiembre de 2005, 04:52 »
Hola Mindeye!

No tengo la solución, pero si tengo comentarios.

Hace ya un tiempo tuve el mismo problema. El problema, como bien lo sospechas, es la comilla que está en la cadena a comparar.

Simplemente no pude. Me cansé de buscar en foros (éste y otros); si bien encontré discusiones referidas al problema, nunca se mencionó una solución real. Sólo proposiciones tentativas que terminaban en nada.

No quisiera decir esto, pero mi recomendación es que busques la forma de no incluir estas comillas en los campos de las tablas, pues son un problema. Al final, me convencí (si estoy equivocado, por favor que alguien lo diga ya). Como te decía, me convencí de que es un problema sin solución, y no importa el truco que tratemos de usar, siempre vence.

A la espera de algún iluminado con la solución, les saludo con la esperanza no del todo muerta.

 :(

Páginas: [1] 2 3 ... 9