|
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 - cpmario
Páginas: 1 2 3 [4] 5 6 ... 26
76
« en: Miércoles 4 de Junio de 2008, 19:49 »
Sin ver el código, está difícil adivinar de que se trata.
77
« en: Viernes 30 de Mayo de 2008, 04:48 »
Te puedo ayudar con la primera parte de los problemas que indicas. No debe de haber diferencia entre la instalación de VB de Win2000 y WinXP. Trata de rehacer el proyecto como sigue: Verifica que tengas la última actualización de VB6, el service pack 6. Elimina del proyecto los archivos que tienen las siguientes extensiones VBP, VBW y PDM. Vuelve a rehacer el proyecto agregando una por una las formas que lo compone, los módulos, clases, controles y otros archivos que tengas. Agrega todas las referencias y componentes (OCX). Intenta correr el proyecto.
78
« en: Viernes 30 de Mayo de 2008, 02:00 »
Intenta de la siguiente manera: Coloca el texto a enviar a una variable. Esta es la línea que toma el texto a enviar a Excel strText = strText & vbCrLf & "mas texto"
Luego coloca antes y después de la variable unas comillas, por ejemplo: strText = Chr$(34) & strText & Chr$(34)
Ahora ya esta lista la variable strText para que la pases a Excel. No lo probé, pero me ha funcionado cuando paso información de VB a Excel a través del portapapeles.
79
« en: Martes 27 de Mayo de 2008, 00:40 »
Normalmente el Inno Setup deja los accesos directos en el menú inicio de All Users con lo que todos los usuarios tienen acceso a los íconos. Revisa que tengas el siguiente parámetro en la sección Setup, ya que su ausencia puede ser la causa del error. PrivilegesRequired=admin [Setup] PrivilegesRequired=admin
80
« en: Miércoles 14 de Mayo de 2008, 21:48 »
La manera más fácil es usar la propiedad PasswordChar de un TextBox. O puedes usar un código parecido al siguiente en el evento Keypress de un TextBox Dim letters As String 'Caracteres permitidos en la contraseña letters = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyzáéíóúüÁÉÍÓÚÜñÑ0123456789" If KeyAscii = 8 Then If Len(mvarRespuesta) > 0 Then 'Resta un caracter a la contraseña mvarRespuesta = Left(mvarRespuesta, Len(mvarRespuesta) - 1) End If ElseIf InStr(letters$, Chr$(KeyAscii)) Then 'Guarda el valor de la contraseña mvarRespuesta = mvarRespuesta + Chr$(KeyAscii) KeyAscii = 42 Else KeyAscii = 0 End If 'El Ucase es para no tener que evaluar mayúsculas y minúsculas If UCase(mvarRespuesta) = UCase(gstrMainKey) Then 'Aquí va el código para evaluar la contraseña Endif
81
« en: Martes 6 de Mayo de 2008, 16:47 »
Como escribiste sBuscar = "pepe" no pensé que fuera un campo a buscar. En cuanto a lo que deseas, te diré que en cualquier tipo de búsqueda que hagas con SQL su comportamiento es como el que señalas, solo muestra lo buscado, o muestra todo. Si lo que deseas es hacer búsquedas y mostrar toda la información, trata con los métodos FindFirst, FindLast, FindNext, FindPrevious para encontrar la información. Por ejemplo: DataClientes.Recordset.FindFirst "Campo a buscar='" & cbClientes.Text & "'"
También puedes hacer dos DataControls uno con toda la información y otro con la información buscada. No puedo darte más información porque no entiendo a que te refieres con Y yo quiero que a partir de el/los encontrado/s, pueda moverme por todos los registros. Aunque creo entender lo que necesitas. Lo que hago al encontrar un dato de una consulta SQL es que tomo en una variable (lngIDPac) el valor de campo del registro encontrado, por ejemplo IDPac (campo autonumérico) que me identifica al paciente (cliente en tu caso) lngIDPac = DatPac.Recordset("IDPac")
Luego efectúo una instrucción DatPac.RecordSource ="Select * from Identificacion"
y enseguida DatPac.Recordset.FindFirst "IDPac = " & lngIDPac
Con lo anterior muestro todos los pacientes (clientes en tu caso) con el paciente que encontré, automáticamente seleccionado.
82
« en: Martes 6 de Mayo de 2008, 00:40 »
Primero la consulta tiene error, le faltan comillas simples. Debe quedar así: Consulta = "Select * from Direcciones where '" & sBuscar & "' like '" & cbClientes.Text & "*'"
Además la consulta SQL puede estar mal redactada, ya que después de Where debe de ir el nombre del campo en donde se buscará y después de Like debe de ir el dato a buscar. Revisa que estás haciendo. Segundo, para seleccionar todos los registros debe ser así: DataClientes.RecordSource ="Select * from Direcciones"
Estos códigos son para ControlData en DAO.
83
« en: Martes 29 de Abril de 2008, 17:10 »
Te agradezco nos ilustres en GAMBAS Esto va para Nebire Me disculpas pero el lapsus lo has cometido tu. Ya que If InStr(strValidChars, strCharLetter) Then
Hace el trabajo de localizar cualquiera de los caracteres anotados en la cadena. Esa rutina es la que uso para detectar cualquier conjunto de caracteres que deseo filtrar. En todo caso lo que tienes que hacer es colocar la rutina en el evento de un TextBox y ver si funciona
84
« en: Viernes 25 de Abril de 2008, 18:08 »
En VB6 uso esta rutina Private Sub Text1_KeyPress(KeyAscii As Integer) Dim strValidChars As String Dim strTitle As String Dim strCharLetter As String strCharLetter = UCase(Chr$(KeyAscii)) 'Cambiando strValidChar se puede usar para filtrar 'cualquier conjunto de caracteres strValidChars = "0123456789.," If InStr(strValidChars, strCharLetter) Then KeyAscii = Asc(strCharLetter) ElseIf KeyAscii = 8 Or KeyAscii = 13 Then Else 'Opcional, si deseas darle un aviso al usuario 'Lo puedes eliminar strTitle = "+ Convención +" MsgBox "Escriba solo números, puntos o comas.", vbInformation, strTitle KeyAscii = 0 End If End Sub
Puedes cambiar la línea strValidChars = "0123456789.,"
Por cualquier cadena de texto que desees validar por ejemplo: strValidChars = "SCVDUscvdu"
Para validar el estado civil de una persona, Soltero, Casado, Viudo, etc.
85
« en: Viernes 25 de Abril de 2008, 00:02 »
Crea un paquete de instalación de tu programa con el VB6. Esta es una explicación detallada de como activar la opción en VB6 para hacer un paquete de instalación. En VB6 y tu proyecto abierto, localiza en el menú 'Complementos' la opción que se llama 'Administrador de complementos' verás aparecer una ventana con Título 'Administrador de complementos'. Haz un clic en 'Asistente de distribución y empaquetado' y después en el Frame 'Comportamiento de carga' selecciona 'Cargado/Descargado' y 'Cargar al iniciar' y después haz clic en botón 'Aceptar'. Ahora en el menú 'Complementos' de VB aparece la opción 'Asistente de distribución y empaquetado' con lo que podrás hacer tu instalación, solo sigue las instrucciones.
86
« en: Miércoles 23 de Abril de 2008, 06:54 »
87
« en: Miércoles 16 de Abril de 2008, 03:08 »
Pensé que ya nadie vería este post, por eso dejé de visitarlo. No tengo la rutina para volver a comprimir nuevamente el archivo es.cwl, uso otra rutina para comprimir mi diccionario. Corrector Ortográfico para Medicina
88
« en: Domingo 13 de Abril de 2008, 18:38 »
Como no muestras por lo menos parte del código o el algoritmo del mismo, solo estamos tratando de adivinar que podrías hacer. Con tan poca información que proporcionas no se puede hacer otra cosa.
89
« en: Sábado 12 de Abril de 2008, 23:10 »
No me puedo imaginar que procedimiento puede necesitar 16000 líneas de código. La posible solución es algo parecido a esto. Private Sub Form_Load1() código subprocedimiento1 código subprocedimiento2 código subprocedimiento3..... End sub
90
« en: Domingo 23 de Marzo de 2008, 21:24 »
Dim Arreglo() As String Dim strText As String Dim lngLenText As Long Dim lnCnt As Long strText = Text1.Text lngLenText = Len(strText) ReDim Arreglo(lngLenText) For lnCnt = 1 To lngLenText Arreglo(lnCnt - 1) = Mid$(strText, lnCnt, 1) Next lnCnt
91
« en: Domingo 16 de Marzo de 2008, 19:30 »
Revisé lo que proporcionas, hay errores en el enrutamiento del archivo de texto. Te adjunto un proyecto con el código que proporcionas que hace la importación.
92
« en: Domingo 16 de Marzo de 2008, 19:02 »
Cambia tu pregunta a otro foro, este es solo de Vb6 e inferiores.
93
« en: Sábado 15 de Marzo de 2008, 04:21 »
Debes de proporcionar más información para poderte ayudar. Mostrar el código donde se produce el error y el texto exacto que se muestra en pantalla al aparecer el error.
94
« en: Miércoles 12 de Marzo de 2008, 15:57 »
Los códigos que te mostré son de VB, de GAMBAS no se nada.
95
« en: Lunes 10 de Marzo de 2008, 21:21 »
Coloca en ventana de propiedades de la forma WindowState= 2.- Maximized
O en Form_Load coloca Me.WindowState = vbMaximized
96
« en: Jueves 28 de Febrero de 2008, 04:39 »
Si te fijas con cuidado, en los mensajes que te indiqué, hay adjunta a un mensaje una aplicación diseñada por Saguxto que toma toda la información de Setup.lst y la trasforma en un archivo de instalación del Inno Setup.
98
« en: Lunes 25 de Febrero de 2008, 06:14 »
99
« en: Domingo 24 de Febrero de 2008, 00:50 »
Cambia la propiedad Style = 1- Graphical del CommandButton
100
« en: Viernes 22 de Febrero de 2008, 17:38 »
En VB busca la propiedad WindowState de la forma. No sé si existe foro para Gambas
Páginas: 1 2 3 [4] 5 6 ... 26
|
|
|