SoloCodigo

Hola amigos:

Espero que me echeis una manilla en este tema, del que estoy totalmente pegado, y se que es muy básico en VB. Os doy las gracias de antemano.

Tengo un programa con acceso a una base de datos Access, todo ello a través de código por medio de DAORecordsets. Bien, el problema viene cuando se me ha planteado el hecho de tener campos de texto con más de 255 caracteres, es decir, textboxes (o richtextboxes en este casa habría de usar, ¿no?) que alberguen esa información. Claro, esa información no la puedo guardar en campos de Access (yo he de disponer en los registros de textboxes que pueden contener caracteres de hasta 1 o 2 folios A4 incluso), es por lo que me he supuesto que para ello he de usar ficheros.

La duda es, qué tipo he de usar; se que hay 3 tipos (secuenciales, aleatorios y binarios), pero de ahí no paso, aunque según lo que he estado rebuscando del tema, creo que los más convenientes serían los secuenciales, pero no sé.

Espero vuestra orientación sobre este tema. Y vuelvo a aclaroslo: en un formulario, registros que, junto a los campos que están enlazados a una base datos Access, contenga un textbox que albergue también un campo (tomado como tipo string) que contenga más de 255 caracteres. ¿Cómo lo hago, aún guardando los datos de los otros campos en Access y guardando también la información de ese extenso campo del registro también?

Muchas muchas gracias.

Hola amigos:
     Espero que me echeis una manilla en este tema, del que estoy totalmente pegado, y se que es muy básico en VB. Os doy las gracias de antemano.
     Tengo un programa con acceso a datos, a una base Access, todo ello a través de código por medio de DAORecordsets. Bien, el problema viene cuando se me ha planteado el hecho de tener campos de texto con más de 255 caracteres, es decir, textboxes (o richtextboxes en este casa habría de usar, ¿no?) que alberguen esa información. Claro, esa información no la puedo guardar en campos de Access (hay textboxes que pueden contener caracteres de hasta 1 o 2 folios A4 incluso), es por lo que me he supuesto que para ello he de usar ficheros.
     La duda es, qué tipo he de usar; se que hay 3 tipos (secuenciales, aleatorios y binarios), pero de ahí no paso, aunque según lo que he estado rebuscando del tema, creo que los más convenientes serían los secuenciales, pero no sé.
     Espero vuestra orientación sobre este tema. Y vuelvo a aclaroslo: registros en una base de datos -tomados como tipo string- que contengan más de 255 caracteres. ¿Cómo lo hago, aún guardando los datos de los otros campos en Access?
     Muchas muchas gracias.

Hola amigos:

Muchas gracias de antemano si me orientais en esto.

Tengo un MsFlexGrid, y en sus Rows (filas) quisiera que mostrara el texto (que va a ser el contenido, más o menos extenso, de un campo de texto de una BD) en varias líneas, es decir, que no se cortara cuando llegara al final del MSFlexGrid.

¿Cuál sería la propiedad para hacer que el contenido de una celda se justifique si no cabe en ella?

Muchas grcias.

Hola amigo:
   Uy, lo que comentas nunca lo había escuchado antes. Particularmente creo que no existe nada de eso, pero creo que, de existir, guau, nos sería de gran ayuda a muchos de los programadores noveles que deseamos abrirnos paso en nuevos lenguajes. No obstante, lamento decirte que seguramente no haya nada aún.

Puuuuuf, puedo respirar tranquiloooo...

Vaya tontería más gorda era el asunto este. Te cuento.

Me fui, por casualidad, a referencias, y vi que, de las que tenía marcadas, había una que enlazaba (no se porque) al Outlook Express 5, informando en su casillero de la izquierda directamente de que faltaba la biblioteca (o algo parecido, como que no enlazaba). Creo que hace un par de días también la vi, pero no hice caso, ya que suponía que las bibliotecas que me faltaban (ya sabemos, "Left" y "Right", referentes al manejo de cadenas) poco tenían que ver con las bibliotecas del susodicho programa de correo.

Pues bien, por casualidad también, esta tarde desmarqué la casilla de esa referencia, con la consiguente sorpresa de que, al volver a ejecutar mi programa, volvía a correr sin problemas. Pues algo tendría que ver con "Left" y "Right", ¿no?, digo yo...

¡Vaya tontería y vaya comedero de tarro que me ha dado!

Te lo comunico por si, alguna vez, surgiera cualquier problema de estos al que no veamos solución, podamos acordarnos de esa posibilidad.


Muchas muchísimas gracias de todas formas, un saludo.

Gracias amigo. Pero volví a reinstalar el Office 2000 y sigue dándome el mismo error de compilación. A ver qué podría ser.

Hola amigo:

Te agradezco de antemano tu ayuda en este asunto, lo he incluido aquí porque es el mismo tema de esta discusión. A ver si me puedes echar una manilla

Cuando ejecuto el programa (con el compilador, pulsando el botón play), me sale el error "No se encuentra el proyecto o biblioteca". Lo hace deteniéndose en "Hex" [en la parte... s = Format(Hex(Serial), "00000000")] y en "Left" [en la parte... VolumeSerialNumber = Left(s, 4) + "-" + Right(s, 4)]

Aclararte que, en un principio, mi programa funcionaba a la perfección, sólo que tuve que formatear mi disco duro y reinstalar el Win98, el Visual Studio y demás programas, por lo que supongo que las susodichas bibliotecas a las que acude no las halla: lo dice el mismo mensaje de 'Error de compilación, no se encuentra el proyecto o biblioteca')

Te muestro el código, a ver si pudieras indicarme qué bibliotecas son, y añadirlas o lo que se tenga que hacer en este caso:

----------------
Public Function VolumeSerialNumber(ByVal RootPath As String) As String
Dim VolLabel As String
Dim VolSize As Long
Dim Serial As Long
Dim MaxLen As Long
Dim Flags As Long
Dim Name As String
Dim NameSize As Long
Dim s As String

If GetVolumeSerialNumber(RootPath, VolLabel, VolSize, Serial, MaxLen, Flags, Name, NameSize) Then
'Crea una cadena de 8 caracteres
s = Format(Hex(Serial), "00000000")
'Agregar el caracter '-' entre los 4 primeros caracteres y los últimos 4 caracteres
VolumeSerialNumber = Left(s, 4) + "-" + Right(s, 4)
Else
'Si la llamada a la función API falla debe retornar un número de serie lleno de ceros
VolumeSerialNumber = "0000-0000"
End If
End Function
--------------

Muchas gracias.