• Domingo 19 de Mayo de 2024, 18:25

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

Páginas: 1 ... 3 4 [5] 6 7 ... 26
101
Visual Basic 6.0 e inferiores / Re: ¿cual Es El Caracter De Fin De Linea?
« en: Miércoles 20 de Febrero de 2008, 00:30 »
Hay 2 vbCrLf (como ya lo escribió posman) y VBNewLine, tienen la misma función.
 :comp:

102
Visual Basic 6.0 e inferiores / Re: Utilización Del Order By
« en: Miércoles 13 de Febrero de 2008, 03:44 »
La siguiente línea:

Citar
   Set rs = mBASE.abrirtabla("Select * from Afiliado1 order by Apellido")

Y la función:

Citar
Public Function abrirtabla(tb As String) As Recordset
   Set abrirtabla = BASE.OpenRecordset(tb, dbOpenTable)
End Function

No tienen la misma base de datos a abrir una dice mBASE y la otra BASE.
Te sugiero que elimines esa función, que solo crea confusión.

 :comp:

103
Visual Basic 6.0 e inferiores / Re: Utilización Del Order By
« en: Martes 12 de Febrero de 2008, 17:19 »
Explica esta línea

Citar
Set rs = mBASE.abrirtabla("Select * from Afiliado1 order by Apellido")

En especial
Citar
mBASE.abrirtabla

 abrirtabla ¿que es?

 :comp:

104
Visual Basic 6.0 e inferiores / Re: Sobre Visual Basic 6
« en: Viernes 8 de Febrero de 2008, 04:47 »
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.

 :comp:

105
Visual Basic para principiantes / Re: Imprimir Formulario
« en: Martes 29 de Enero de 2008, 01:54 »
Usa lo siguiente:

    Form1.PrintForm

 :comp:

106
Visual Basic 6.0 e inferiores / Re: Problemas Con Instalación De Un Programa
« en: Viernes 11 de Enero de 2008, 05:33 »
Para el   error: "Setup cannot continue because some system files are out of date" ...
En las siguientes discusiones puedes encontrar la posible solución.

http://foros.solocodigo.com/index.php?show...&hl=empaquetado
http://foros.solocodigo.com/index.php?show...=3586&hl=redist

 :comp:

107
Visual Basic 6.0 e inferiores / Re: Abrir Archivo Desde Vb6 Pero No Txt.....
« en: Jueves 3 de Enero de 2008, 18:26 »
Trata de abrir el archivo ejecutable en un control RichTextBox con la instrucción                     LoadFile con el parámetro para solo texto (rtfText), por ejemplo:
Código: Text
  1.    RichTextBox1.LoadFile strFilename, rtfText
  2.  
  3.  
:comp:

108
Visual Basic 6.0 e inferiores / Re: Ordenar Una Coleccion
« en: Viernes 21 de Diciembre de 2007, 18:53 »
El siguiente código es para ordenar un Array de texto, deberás adaptarlo para ordenar la colección.

Código: Text
  1. ' shell sort of an array of strings, fast version
  2. ' lngLenDic es la cantidad de palabras a ordenar (Ubound)
  3. Sub SortArrayDic(ByRef sArray() As String, lngLenDic As Long)
  4.     Dim Value As String
  5.     Dim Index As Long
  6.     Dim index2 As Long
  7.     Dim firstEl As Long
  8.     Dim lastEl As Long
  9.     Dim distance As Long
  10.     Dim numEls As Long
  11.    
  12.     If lngLenDic < 2 Then Exit Sub
  13.     firstEl = 0
  14.     lastEl = lngLenDic
  15.     numEls = lastEl - firstEl + 1
  16.     ' find the best value for distance
  17.     Do
  18.         distance = distance * 3 + 1
  19.     Loop Until distance > numEls
  20.  
  21.     Do
  22.         distance = distance \ 3
  23.         For Index = distance + firstEl To lastEl
  24.             Value = sArray(Index)
  25.             index2 = Index
  26.             Do While (sArray(index2 - distance) > Value)
  27.                 sArray(index2) = sArray(index2 - distance)
  28.                 index2 = index2 - distance
  29.                 If index2 - distance < firstEl Then Exit Do
  30.             Loop
  31.             sArray(index2) = Value
  32.         Next
  33.     Loop Until distance = 1
  34.  
  35. End Sub
  36.  
:comp:

109
Visual Basic 6.0 e inferiores / Re: Ordenar Una Coleccion
« en: Miércoles 19 de Diciembre de 2007, 19:37 »
En Planet Source Code (PSC) hay muchos algoritmos para hacer arreglos (sort) de palabras, por ejemplo:

http://www.planet-source-code.com/vb/scrip...=67253&lngWId=1

 :comp:

110
Visual Basic para principiantes / Re: Duda Con Datacombo1
« en: Viernes 14 de Diciembre de 2007, 18:23 »
La información que proporcionas no es suficiente para entender que es lo que deseas.

Al hacer un clic en el DataCombo seleccionas el registro de la base de datos a la cual está unida. Si el DataCombo está unido a un Control Data, la siguiente instrucción te selecciona el registro que señalaste en el DataCombo.
 
Código: Text
  1.                datID.Recordset.Bookmark = DBComboIDNames.SelectedItem
  2.  
  3.  
Una vez seleccionado el registro, puedes comparar la variable 'que se digito al intentar ingresar al Sistema' con el valor que existe en el registro.
 :comp:

111
Visual Basic 6.0 e inferiores / Re: Porq No Pasa De Un Registro Al Otro???
« en: Martes 11 de Diciembre de 2007, 17:52 »
Revisa el código colocando un MsgBox para ver si MoveLast te coloca en el último registro.
Por ejemplo

Código: Text
  1. If Not rs.EOF And Not rs.BOF Then
  2.       rs.MoveLast
  3.       MsgBox "Ultimo ID Registrado: " & Val(rs!ID)
  4.       NuevoID.ID = Val(rs!ID) + 1
  5. Else
  6.       NuevoID.ID = 1
  7. End If
  8.  
:comp:

112
Visual Basic 6.0 e inferiores / Re: Crear Vector De Valores Aleatorios
« en: Martes 11 de Diciembre de 2007, 07:29 »
Revisa los siguientes enlaces:

http://www.planet-source-code.com/vb/scrip...Id=892&lngWId=1
http://www.planet-source-code.com/vb/scrip...=52111&lngWId=1
http://www.planet-source-code.com/vb/scrip...=69650&lngWId=1

 :comp:

113
Visual Basic 6.0 e inferiores / Re: Encriptacion De Texto Oculto En Imagen...
« en: Viernes 7 de Diciembre de 2007, 20:35 »
Revisa estos enlaces

http://www.planet-source-code.com/vb/scrip...=61292&lngWId=1
http://www.planet-source-code.com/vb/scrip...=49331&lngWId=1

 :comp:

114
Visual Basic 6.0 e inferiores / Re: Instalar Fuentes
« en: Jueves 6 de Diciembre de 2007, 20:26 »
También puedes instalar fuentes, con el Inno Setup.

Código: Text
  1. Ejemplo:
  2. Source: "OZHANDIN.TTF"; DestDir: "{fonts}"; FontInstall: "Oz Handicraft BT"; Flags: onlyifdoesntexist uninsneveruninstall
  3.  
  4.  
:comp:

115
Visual Basic 6.0 e inferiores / Re: Instalar Fuentes
« en: Jueves 6 de Diciembre de 2007, 17:32 »
Encontré otro enlace con un ejemplo:

http://www.telecable.es/personales/jrubi/i...os/tip00299.htm

 :comp:

116
Visual Basic 6.0 e inferiores / Re: Instalar Fuentes
« en: Jueves 6 de Diciembre de 2007, 17:27 »
En el siguiente enlace puedes encontrar algo que te servirá.

http://www.elguille.info/colabora/vb/INST_TTF.HTM

 :comp:

117
Visual Basic 6.0 e inferiores / Re: Eliminar Y Modificar El Registro!
« en: Jueves 6 de Diciembre de 2007, 04:22 »
Encontré una respuesta a tu pregunta en este enlace

http://www.todoexpertos.com/categorias/tec...tro-del-sistema

 :comp:

118
Visual Basic 6.0 e inferiores / Re: Posicionarme En Valor Del Combolist
« en: Martes 4 de Diciembre de 2007, 17:26 »
El listbox tampoco te servirá.
El combo te sirve, si puedes obtener el nombre de la categoría (rs.fields("categoria")) y se la colocas como te decía: combo1.Text= rs.fields("categoria"). En el momento de seleccionar el auto.
 :comp:

119
Visual Basic 6.0 e inferiores / Re: Como Instalar "isam Iinstalable" En Vb6
« en: Martes 4 de Diciembre de 2007, 07:07 »
Te coloco los ISAM instalables

Citar
   Msexcl40.dll Microsoft Excel HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Jet\4.0\Engines\Excel
   Msexch40.dll Microsoft Exchange HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Jet\4.0\Engines\Exchange
   Msrd2x40.dll Microsoft Jet 2.x HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Jet\4.0\Engines\Jet 2.x
   Msrd3x40.dll Microsoft Jet 3.x HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Jet\4.0\Engines\Jet 3.x
   Msltus40.dll Lotus 1-2-3 HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Jet\4.0\Engines\Lotus
   Mspbde40.dll Imprise Paradox HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Jet\4.0\Engines\Paradox
   Mstext40.dll Texto HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Jet\4.0\Engines\Text
   Msxbde40.dll dBase HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Jet\4.0\Engines\Xbase
La manera de instalarlos es colocándolos en el directorio del System32 y registrándolos. Puedes registrarlos con la opción que te describo enseguida.

Revisa esta discusión
http://foros.solocodigo.com/index.php?show...87&hl=registrar

Descarga el archivo adjunto  que se llama Easy_Register.reg
Revisa las instrucciones de uso que se encuentran ahí mismo.

No tengo la seguridad de que funcione en el Vista. Espero que sí.

 :comp:

120
Visual Basic 6.0 e inferiores / Re: Posicionarme En Valor Del Combolist
« en: Martes 4 de Diciembre de 2007, 06:42 »
No funcionará de esa manera.
Si muestras el código cuando rescatas los datos del auto, tal vez pudiera ayudarte.

 :comp:

121
Visual Basic 6.0 e inferiores / Re: Problemas Al Intentar Conectarme A Una Bd Access
« en: Sábado 1 de Diciembre de 2007, 01:24 »
Debes de verificar en el menú 'Proyecto' las 'Referencias' y verificar que versión de base de la datos quieres abrir.

El VB6 puede abrir Access de Office 97 que tiene la referencia "Microsoft DAO 3.51 Object Library" y Access de Office 2000 que tiene la referencia "Microsoft DAO 3.6 Object Library"

También revisa las siguientes discuciones, te pueden servir.

http://foros.solocodigo.com/index.php?show...11231&hl=access
http://foros.solocodigo.com/index.php?show...22137&hl=access
http://foros.solocodigo.com/index.php?show...hl=access&st=15

 :comp:

122
Visual Basic 6.0 e inferiores / Re: No Mostrar Mensaje "imprimiendo"
« en: Sábado 1 de Diciembre de 2007, 01:05 »
No creo que con la forma que imprimes puedas quitar ese mensaje que genera directamente el VB6. Necesitarías imprimir el recibo de otra forma.

 :comp:

123
Visual Basic 6.0 e inferiores / Re: Variables...
« en: Jueves 29 de Noviembre de 2007, 21:51 »
Gracias por la información..
 :hola:

124
Visual Basic 6.0 e inferiores / Re: Posicionarme En Valor Del Combolist
« en: Miércoles 28 de Noviembre de 2007, 16:59 »
Cuando te posiciones en categorías puedes usar algo parecido a esto.

Código: Text
  1. combo1.Text= rs.fields("categoria")
  2.  
Para que el combo muestre adecuadamente la categoría.
 :comp:

125
Visual Basic 6.0 e inferiores / Re: Error
« en: Martes 27 de Noviembre de 2007, 21:06 »
Te recomiendo que descargues el archivo adjunto que creó Sagutxo y que se llama CreaIss.rar

http://foros.solocodigo.com/index.php?show...6&hl=inno+setup

Revisa la discusión anterior en su segunda página para que localices y descargues el archivo CreaIss.rar y con el Setup.lst elabores el Script para Inno Setup de tu aplicación.
Esa es la forma más confiable para saber que OCX o DLL necesita tu aplicación.

Habrá que darle otra vez las gracias a Sagutxo por su código.

 :comp:

Páginas: 1 ... 3 4 [5] 6 7 ... 26