|
|
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
1
« 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
« 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): Public Sub Wait(ByVal nSec As Integer) 'Esperar un número de segundos Dim t1 As Date, t2 As Date t1 = Second(Now) t2 = t1 + nSec Do DoEvents Loop While t2 > Second(Now) End Sub
Pero qué raro que no te sirva Sleep.
3
« 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
« 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
« 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
« 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
« en: Lunes 17 de Abril de 2006, 23:08 »
A Ver: Si lo que tenemos es: 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: Set rst_paterno = base.OpenRecordset("select * from maestro_atenciones where " & stcampo & " like '*" & Trim(Text1) & "*'order by [folio_atencion]")
En este caso, si más de una tabla tienen el mismo nombre de campo, no importa. Tu consulta dice: Select * Seleccione todos los campos From maestro_atenciones De la tabla maestro_atenciones where " & stcampo & " like '*" & Trim(Text1) & "*' Donde el Campo Usuario_Atencion contenga la cadena que está en el text1 order by [folio_atencion] Ordenado por el folio de atención. Espero te guíe.
8
« 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. Dim StCampo As String Dim StSql As String StCampo = "MiCampo" StSql = "Select MiBase." & StCampo & " FROM MiBase;"
Esto dará como resultado la instrucción Sql. "Select MiBase.MiCampo FROM MiBase;"
9
« 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
« 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. 
11
« en: Jueves 13 de Abril de 2006, 22:20 »
   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
« 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
« en: Miércoles 12 de Abril de 2006, 23:17 »
Hola! Es bueno el enfoque de Neorent, pero le haría algunas correcciones. Private Sub Text1_KeyPress(KeyAscii As Integer) If Text1.MaxLength = len(Text1) Then 'Has llegado al límite (MaxLenght) SendKeys "{Tab}" End If End Sub
Chau!
14
« 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
« en: Miércoles 12 de Abril de 2006, 22:45 »
Gracias amigo! Tu respuesta ha sido impecable, muy clara  . 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!! 
16
« 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: Private Sub TestNeorent() Dim pRueba As Database Dim taBla As Recordset Dim strSQL As String Dim strPalabrabuscada As String strPalabrabuscada = "SISTEMA" Set pRueba = DBEngine.OpenDatabase("\\obiwan\soporte\inventario06.mdb") strSQL = "SELECT * FROM maestra WHERE perfilUsuario like '*" & strPalabrabuscada & "*'" Set taBla = pRueba.OpenRecordset(strSQL, dbOpenDynaset) With taBla If .EOF And .BOF Then 'Si está al comienzo y al final del Recordset al mismo tiempo. MsgBox "La Palabra nos e encuentra" GoTo Salida Else .MoveLast .MoveFirst 'Voy al primer y al último registros con el objetivo de contar los registros. 'Por algún motivo, si no lo hago, DAO no los cuenta bien. MsgBox "La palabra se encuentra " & .RecordCount & " veces" 'La siguiente rutina recorre el recordset generado mostrando cada uno de los registros que contienen 'la palabra buscada. Do While Not .EOF MsgBox "Encontre: " & !PerfilUsuario .MoveNext Loop End If Salida: taBla.Close End With pRueba.Close End Sub
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
« 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: If Not tabla.NoMatch Then MsgBox "No encontré " & strpalabrabuscada Else
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: Dim prueba As Database Dim tabla As Recordset Dim strSQL As String Dim strpalabrabuscada As String strpalabrabuscada = "SISTEMA" Set prueba = DBEngine.OpenDatabase("\\obiwan\soporte\inventario06.mdb") strSQL = "SELECT * FROM maestra WHERE perfilusuario='*" & strpalabrabuscada & "*'" Set tabla = prueba.OpenRecordset(strSQL, dbOpenDynaset) With Tabla If .EOF and .BOF 'Si está al comienzo y al final del Recordset al mismo tiempo. MsgBox "La Palabra no existe" Goto SAlida Else .MoveLast .MoveFirst 'Voy al primer y al último registros msgbox "La palabra se encuentra " & .Recordcount & " veces" endif .close end With Salida: prueba.close
19
« 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! 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
« 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
« 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
« 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: TxtValor.Text = DBGrid1.Columns(3) 'Columna 3 de DbGrid1
Espero te sirva. Chau!
23
« en: Jueves 15 de Septiembre de 2005, 16:11 »
Todos los días se aprende algo nuevo! Gracias, también lo probaré. 
24
« 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
« 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.
|
|
|
Mostrar Mensajes
